19. Необходимо в массиве подсчитать количество четных элементов. Какое условие верно?
A) if A[i] >0 then K:=K+1
B) if A[i] mod 2< > 0 then S:=S+A A[i]
C) if A[i] mod 2 < > then S:=A [i]+S
D) if A[i] mod 2 = 0 then K:=K+1
E) if A[i] mod 3 = 0 then K:=K+1
20. Что выполняется в результате программы? F:=1; FOR I:=1 TO 4 DO F:=F* I; WRITELN (F);
A) 4
B) 16
C) 24
D) 96
E) 10
21. Какой результат получится, если К=1 CASE K OF 1:CENA: = 22; 2. 4:CENA:=25; 56:CENA:=30 ELSE CENA:=35 END; WRITELN (CENA*2);
A) 22
B) 44
C) 30
D) 60
E) 70
Способы описания алгоритмов. Выберите лишний
A) циклический
B) словесный
C) графический
D) алгоритмический
E) программный
Параметры, которые задают в команде вызова процедуры называют
A) формальными
B) фактическими
C) глобальными
D) локальными
E) параметры-переменные
Переменные, описанные в разделе VAR основной программы называют
A) формальными
B) фактическими
C) глобальными
D) локальными
E) парaметры-переменные
Параметры, возвращающие результаты работы процедуры в основную программу называют
A) формальными
B) фактическими
C) глобальными
D) параметры-переменные
E) параметры –значения
Вариант 2
1. Дан фрагмент программы с использованием процедуры. Определите результаты выполнения процедуры, если при вызове процедуры a:=3; b:=-4 procedure swap (a,b: integer; var a,b: integer); var c:integer; begin c:=b; b:=a; a:=c; end;
A) процедура неправильно организована
B) a:=-4; b:=3
C) a:=3; b:=-4
D) a:=-4; b:=-4
E) a:=3; b:=3
2. Укажите верно написанный оператор цикла, где находится N!
A) p:=1; for i:=1 to n do p:=p*i
B) p:=1; for i:=1 to n do p:=p*I*i
C) p:=0; for i:=1 to n do p:=p*i
D) p:=1; for i:=1 to n do p:=p+i
E) p:=1; for i:=1 to n do p:=i*I
3. Укажите верно написанный фрагмент применения подпрограммы-функции:
A) function rasv(x,y:real):real; begin y:=x+y; end; begin rasv(10,2); end.
B) function rasv(x,y:real):real; begin y:=x+y; end; begin rasv; end.
C) function rasv(x,y:real):real; begin y:=x+y; end; begin writeln('Bвeдите x и у'); Readln(x,y); rasv; end.
D) function rasv(x,y:real); begin rasv:=x+y; end; begin writeln ('введи х и у'); Readln(x,y); rasv( 10,25);end.
E) function rasv(x.y:real):real; begin rasv:=x+y; end; begin rasv(l6,25): end.
4. Выберите правильную запись выражения Lnx+ух
A) ln(x)+sqrt(y)
B) ln(x)+exp(x*ln(y))
C) log(x)
D) ln(x)+exp(x+ln(y)
E) exp(x)
5. Как правильно описываются функции пользователя на Паскале:
A) procedure Summa( c,b: real;var d,s: real)
B) function Summa( c,b: real): real
C) function ( c,b: real;var d,s: real)
D) function Summa( c,b: real)
E) Summa function( d,s: real)
6. Какой оператор правильно вызывает процедуру PROCEDURE RST(X:char, var y,z:real);
A) RST(‘a’,c,d)
B) B:=RST(a,c,e)
C) RST('3','5',a)
D) RST('3',5.6,85)
E) A:=RST(3,4,5)
7. Как обозначен последний элемент массива P[1..732]
A) P[1..732]
B) P[732]
C) P=array[732]
D) Array p[732]
E) P[1]
8. Условию «Если х=0.05, то идти к 70 » соответствует программная строка
A) if x:=0.05 then goto 70
B) for x:=0.05 goto 70
C) if x:=0,05 to goto 70
D) if x:=0.05, then goto 70
E) for x:=0.05 then goto 70
9. Какой оператор правильно вызывает процедуру procedure kop(x:integer; var y:integer)
A) Kop(4,’a’)
B) N:=kop(5,a)
C) Kop(3,a)
D) Kop(3,7)
E) Kop(3.5,7.5)
10. В результате выполнения какой функции будет найдена третья степень Х
A) Function F(x:real): real; begin f:=x*x*x end
B) Function F(x,y:real) real; begin f:=y*y*y end
C) Function F(x:real); begin y:=x*x*x ; end
D) Function F(x,y:real); begin y:=x*x*x end
E) Function F(stop):real; begin y:=x*x*x end
11. Что появится на экране монитора после выполнения программы s:=0; for j:=1 to 10 do s:=s+1; Write(s);
A) 11
B) 55
C) 10
D) 156
E) 1
12. Что появится на экране монитора после выполнения программы s:=0;p:=1; for i:=1 to 10 do if i<6 then p:=p*i else s:=s+1; Write(s,p);
A) 5 120
B) 55 1
C) 120 40
D) 60 120
E) 0 1 120 40
13. Чему равно значение переменной Х , после выполнения операторов x:=4; while x<6 do begin x:=x+1; x:=x+5; end.
