Технология решения олимпиадных задач
 Скачать 0.51 Mb.
|
|
НЕПРАВИЛЬНО: A) max (10,25). B) max (0,0). C) max (-10,-25). D) max (10,20,30). E) max (20.1,10). F) max (a,25). G) maxx (10,25). H) max (b,c). $$$ 177 Дано описание процедуры procedure p(a: integer : var x: integer); begin x:=2 *a end; Перед обращением к этой процедуре в основной программе записаны такие операторы a:=10; b:=15 Указать какое из ниже перечисленных обращений НЕВЕРНО: A) p(a,12). B) p(b,b). C) p(7,b). D) p(a+1, b). E) p(25,a). F) p(8.6,b). G) p(3,3). $$$ 178 Что будет напечатано следующей программой: program a1; var x,y:char; procedure p(x:integer); const y=true; begin writeln(x,' ',y) end; begin x:='a'; y:='4'; p(5); end. A) 5 TRUE B) 4 FALSE C) 5 FALSE D) 4 5 E) 0 TRUE $$$ 179 Что будет напечатано следующей программой: program a1; var x,y:char; procedure p(x:integer); const y=false; begin writeln(y,' ',x) end; begin x:='a'; y:='4'; p(6); end. A) FALSE 5 B) FALSE 6 C) TRUE 6 D) TRUE 5 E) FALSE 7 $$$ 180 Что будет напечатано следующей программой: program a1; var x,y:char; procedure p; var x:char; begin x:=succ(y); y:='8';writeln(x,' ',y) end; begin x:='f'; y:='6'; p; end. A) 8 7 B) 7 8 C) 7 7 D) 8 8 E) 9 7 $$$ 181 Что будет напечатано следующей программой: program a1; var x,y:char; procedure p; var x:char; begin x:=succ(y); y:='8';writeln(y,' ',x) end; begin x:='a'; y:='4'; p; end. A) 8 4 B) 8 5 C) 5 4 D) 5 8 E) 6 5 $$$ 182 Что будет напечатано следующей программой: program a1; type ring=array [1..5] of char; var i:integer; r:ring; procedure p(var s:ring); begin i:=1; while s[i]<'4' do begin s[i]:=succ(s[i]); i:=i+1 end end; begin i:=1; r:='12345'; p(r); writeln(r[i]); readln end. A) 1 B) 2 C) 4 D) 3 E) 5 $$$ 183 Что будет напечатано следующей программой: program a1; type ring=array [1..5] of char; var i:integer; r:ring; procedure p(var s:ring); begin i:=1; while s[i]<'4' do begin s[i]:=succ(s[i]); i:=i+1; write(s[i]); end end; begin i:=1; r:='12345'; p(r); writeln(r[i]); readln end. A) 2345 B) 1234 C) 2344 D) 2456 E) 1245 $$$ 184 Задана функция, описанная в отрывке программы Function S (var a:integer; b: integer):real; Какое из обращение к этой функции НЕПРАВИЛЬНО: A) S(a, 13); B) S(c, a+b); C) S(k, b); D) S(b, 4); E) S(3, a); F) S(b,b); G) S(b,true); H) S(a,b,c); $$$ 185 Задана функция, описанная в отрывке программы Function min (var a, b:integer):integer; Какое из обращение к этой функции правильно: A) min(2, 13, 1); B) min(2, b); C) min(b, 4); D) min(a+b, 4); E) min(c, d); $$$ 186 В программе задана функция function sign(a:real):integer; begin if (a<0) then sign:=-1 else if (a>0) then sign:=1 else sign:=0; end; Если x=1, y=-2, то найти z:=(sign(x) + sign(y))*sign(x+y): A) 3 B) 2 C) 1 D) 0 E) -1 $$$ 187 В программе задана функция function sign(a:real):integer; begin if (a<0) then sign:=-1 else if (a>0) then sign:=1 else sign:=0; end; Если x=10, y=-12, то найти z:=(2*sign(x) -3*sign(y))*sign(3*x+y): A) 4 B) 2 C) 5 D) 0 E) -1 $$$ 188 Заданы коснтанты, типы и переменные: const N = 4; type TE = Integer; TA = array[1..N] of TE; var F: file of TA; A, B, C: TA; и часть программы. Reset( F ); Read( F, A, B ); for K := 1 to N do C[K] := A[N - K + 1] + B[K]; Файл F состоит из двух массивов: ( -5, 1, 2, -4 ) и ( -3, 2, -7, 8 ). Найти значения массива С: A) -1, 3, -12, 8. B) -8, 3, -5, 4. C) 3, -6, 4, -7. D) 4, -5, 3, -8. E) -7, 4, -6, 3. $$$ 189 Какой из перечисленных операторов считается оператором цикла: A) FOR <параметр> := A TO B DO <тело цикла>; B) WHILE <условие> DO <тело цикла>; C) WRITE <условие> DO <тело цикла>; D) REAL <тело цикла> UNTIL <условие>; E) REPEAT <тело цикла> UNTIL <условие>; $$$ 190 var f:file of integer; x,y:integer; Пусть файл f содержит два элемента: 3 и 7. Определить, какое значение будет иметь переменная y после выполнения следующих операторов: reset(f); read(f); if not eof(f) then read(f,y); A) 5 B) 4 C) 3 D) 7 E) 9 $$$ 191 var f:file of integer; x,y:integer; Пусть файл f содержит два элемента: 4 и 9. Определить, какое значение будет иметь переменная y после выполнение следующих операторов: reset(f); y:=0; while not eof(f) do begin read(f,x); y:=y+x end; A) 12 B) 13 C) 5 D) 7 E) 9 $$$ 192 var f:file of integer; x,y:integer; Пусть файл f содержит два элемента: 4 и 9. Определить, какое значение будет иметь переменная y после выполнение следующих операторов: reset(f); y:=1; while not eof(f) do begin read(f,x); y:=y*x -2 end; A) 14 B) 16 C) 18 D) 2 E) 9 $$$ 193 var f:file of integer; x,y:integer; Пусть файл f содержит три элемента: 5, 6, 8. Определить, какое значение будет иметь переменная y после выполнение следующих операторов: reset(f); y:=1; repeat read(f,x); y:=3*x +y until eof(f); A) 34 B) 16 C) 58 D) 16 E) 34 $$$ 194 var f:file of real; x,y:real; Пусть файл f содержит три элемента: 2.2, 6.1, -8.4. Определить, какое значение будет иметь переменная y после выполнения следующих операторов: reset(f); y:=0.0; repeat read(f,x); y:=2*x -y until eof(f); A) -24.6 B) -16.8 C) 7.8 D) 1.6 E) 3.4 $$$ 195 var f:file of real; x,y:real; Пусть файл f содержит три элемента: 1.2, 4.2, 5.4. Определить, какое значение будет иметь переменная y после выполнения следующих операторов: reset(f); y:=0.0; repeat read(f,x); y:=2*(x +y) until eof(f); A) 37.2 B) 18.6 C) 7.8 D) 24.6 E) 36.8 $$$ 196 Переменные каких типов можно вводить при помощи команд Read( ) или Readln( ): A) Boolean. B) Real. C) Integer. D) LongInt. E) Set of Byte. F) Decimal. G) Positive. H) Set of Char. $$$ 197 Переменные каких типов можно выводить при помощи команд Write( ) или Writeln( ): A) Boolean. B) Real. C) Integer. D) Set of 1..10. E) Set of Byte. F) Decimal. G) Positive. H) Set of Char. $$$ 198 Дано описание переменной var c: Char; Тогда следующий оператор допустим: A) c:= #21; B) c:= ‘7’; C) c:= ‘-8’; D) c:= ‘ h’; E) c:= ‘true’; F) c:= ‘*’; G) c:= 5; H) c:= 3.5; $$$ 199 Дано описание переменной var A: Boolean; Тогда следующий оператор допустим: A) A:= ‘true’; B) A:= 0; C) A:= 1; D) A:=false E) A:=’t’; F) A:=’f’; G) A:=true H) A:= ‘false’; $$$ 200 Дано описание переменной var A: Boolean; Тогда следующий оператор допустим: A) A:= 8=<6; B) A:= 0; C) A:= 1; D) A:=false E) A:=’t’; F) A:=’f’; G) A:=true H) A:= 7>4; $$$ end
|