13 Вариант 1211 . Схема Вариант 1211 12 $$$ 1 A Что такое

Вариант 1211
12
$$$ 1 A
Вариант 1211
1. Схема
Что такое Программное обеспечение?
A) совокупность машинных программ, необходимых для выполнения
автоматизированных процедур обработки информации
B) это совокупность математических методов, математических моделей и
алгоритмов обработки информации
C) совокупность технических средств, предназначенных для выполнения
автоматизированных процедур обработки информации
D) это язык общения проектировщика с ЭВМ
E) составляют документы, регламентирующие состав, правила отбора и
эксплуатации средств автоматизированной обработки информации
$$$ 2 A
В конце подпрограммы обязательно пишется оператор:
А)end
В)begin
С)write
D)writeln
Е)mod
$$$ 3 A
ex на языке Паскаль пишется:
А)exp(x)
В)exp^(x)
С)abc(x)
D)LN(x)
Е) sgr(x)
$$$ 4 B
Значениями указателей являются:
А) Переменные
В) Адреса переменных
С) Указатели
D) Массивы
Е) Адреса указателей
$$$ 5 C
В начале программы обязательно пишется оператор:
А)end
В)stop
С)begin
D)return
Е)repeat-until
Вариант 1211
12
Вариант 1211
$$$ 6 C
2. Схема
Процедура rewrite при работе с файлом позволяет:
А) закрыть файл
В) стереть файл
С) перезаписать файл
D) присвоить имя файловой переменной
E) не применяется
$$$ 7 D
Укажите операцию над множествами, результатом которой является первое множество,
дополненное недостающими элементами из второго множества
А)Включение
В)Разность
С)Пересечение
D)Объединение
Е)IN
$$$ 8 Е
Какая область памяти используется для хранения локальных переменных и параметров?
А)оперативная память
В)Динамическая память
С)Сегмент данных
D)Внешняя память
Е)Стек
$$$ 9 А
Укажите запись к какому оператору относится следующий формат?
IF<логическое выражение> THEN <оператор>[ELSE<оператор>;]
А) условный оператор
В) оператор выбора
С) оператор цикла
D) оператор перехода
Е) оператор присваевания
$$$ 10 А
Какой график функции будет построен по следующему алгоритму?
A) Строит график функции Y=[X]
В) Строит график функции Y=а[X]
С) Строит график функции Y=X
D) Строит график функции Y=-X
Е) Строит график функции Y=а X
$$$ 11 D
Логические переменные имеют значения а:=true и b:=true. Чему равно значение а and b
А)зависит от времени выполнения
В)false
С) не определено
D)true
Е)зависит от реализации компилятора
Вариант 1211
12
$$$ 12 В
Как описывается действительный тип:
А) array (1..n) of real
В) real
С) integer
D) array (1..n) of integer
Е) VAR A,B:integer
Вариант 1211
3. Схема
$$$13 А
Как произвести случайную выборку числа в диапазоне от «0» до «х»
А)Random(x)
В) Random*(x)
С) Random
D) Randomize(x)
Е) Random
$$$14 D
Укажите операцию над множествами, результатом которой является первое множество,
дополненное недостающими элементами из второго множества
А)IN
В) разность
С) пересечение
D) объединения
Е) включение
$$$ 15 Е
Что выполняет следующий фрагмент программы?
Var S:char; k:integer;
Repeat
Read (S);
If NOT (S IN[‘*’,’-‘]) then
Begin
If S IN [‘0’..’9’] then k:=k+1;
Write(S);
Until(S=’.’);
А)Выдает на печать количетсво цифр
В)Печатает количество цифр от 0 до 9
С)Подсчитывает количество цифр и выдает на печать все символы
D)Выдает на печать знаки операции и количество цифр
Е)Подсчитывает количество цифр и печатает все символы кроме символов '*','-'.
$$$ 16 D
Переменным x относится к типу real. К какому типу относится выражение sqr(x)
А) Boolean
В) char
С) integer
D) real
Вариант 1211
12
Е) к массиву
Вариант 1211
4. Схема
$$$ 17 С
Каковы значения X и У после выполнения:х:=2*5 div 3 mod 2;
у:=2*5 div(3 mod 2);
х:=х*у; у:=у*у ;
А) х=7; у=49
В) х=10; у=10
С) х=10; у=100
D) х=12; у=144
Е) х=11
$$$ 18 В
Укажите правильный вариант ответа при вычислении выражения [5..9,17..20]*[8..18]-[8,9]
А)[5..9]
В)[17,18]
С)[7..9]
D)[15..20]
Е)[5..9,19,20]
$$$ 19 Е
Что будет напечатано следующим фрагментом программы?
Var
x,y:^integer;
begin
new(y); y^:=3; y^:=2*y^+sqr(y^); x:=y; write(x^+10); Dispose(x);
End;
A) 0
B) y+10
C) 15
D) x^+10
E) 25
$$$ 20 А
Что будет напечатано следующим фрагментом программы?
Var
x,y:^integer;
begin
new(x); x^:=15; y:=x; write(y^); writeln(x^+10);
Dispose(x);
End;
A)15 25
B) y^ x^+10
C)y^25
D)x 25
E)15 x^+10
Вариант 1211
A)
B)
C)
D)
E)
12
$$$ 21 С
Что будет напечатано следующим фрагментом программы?
Var
F:file of char; I,n:integer; a:char;
Begin
Assign(f,’f.txt’);
Reset (f);
N:=filesize(f);
For i:=n-1 down to 0 do
Begin
Seek(f,i);
Read(f,a);
Write(a);
End;
End.
Выдает значение равное а
Печатает символы файла
Печатает символьный файл в обратном порядке
Печатает последний символ файла
Печатает первый символ файла
$$$ 22 Е
Процедура Close при работе с файлом позволяет:
А) перезаписать файл
В) не применяется
С) стереть файл
D) присвоить имя файловой переменной
Е) закрыть файл
$$$ 23 С
Укажите результат 48 mod (2+3) div 4
A) 2
B) 11
C) 0
D) 8
E) 10
$$$ 24 Е
Что вычисляет следующая программа
Program pr;
Const n=7
Var a: array[1…n,1…n] of integer;
p,k,j,i: integer;
begin
for i:=1 to n do
for j:= 1 to n do
read(A[I,j]);
p:=1; k:=0;
Вариант 1211
5. Схема
Вариант 1211
A)
B)
C)
D)
E)
12
Вариант 1211
for i:=1 to n-1 do
6. Схема
for j:=j+1 to n do
if (A[I,j] mod 2=0) and (A[I,j]>0) then
begin
p:=p*A[I,j]
inc(k);
end;
writeln(‘p=’,p,’k=’,k);
end.
Произведение и количество положительных, четных элементов массива А расположенных
на главной диагонали
Произведение и количество положительных, четных элементов массива А расположенных
ниже главной диагонали
Произведение и количество положительных, четных элементов массива А расположенных
выше главной диагонали
Произведение и количество положительных, четных элементов массива А расположенных
выше побочной диагонали
Произведение и количество положительных, четных элементов массива А расположенных
выше главной диагонали
$$$ 25 А
Укажите результат исполнения программы при значениях n=5;m=3;
Var
N,m: integer;c1,c2,c3:Longint;c:real;
Procedure fact (n: integer; var p: longint);
Var
I: integer;
Begin
P:=1;
For i:=1 to n do
P:=p*I;
End;
Begin
Readln(n,m);
Fact (n,c1);
Fact(n-m,c3);
C:=c1/(c2*c3);
Writeln(c);
End.
A)10
B)C
C)0.1
D)C1/(c2*c3)
E)120
$$$ 26 С
Укажите результат исполнения программы при значениях n=3; m=2
Var
Вариант 1211
12
N,m integer; c1,c2,c3: Longint; c:real;
Procedure fact (n: integer; var p: longint);
Var
I: integer;
Begin
P:=1;
For i:=1 to n do
P:=p*I;
End;
Begin
Readln (n,m);
Fact (n,c1);
Fact (m,c2);
Fact (n-m,c3);
Writeln(c);
End.
A)c1/(c2*c3);
B)1/3
C)3
D)6
E)C
Вариант 1211
7. Схема
$$$ 27 D
Какая фигура может быть нарисована заданием следующей процедуры: Rectangle
(10,20,20,40)
A)Параллелепипед
B)Треугольник
C)Прямая
D)Прямоугольник
E)Квадрат
$$$ 28 D
Какой из фрагментов программы выполняет построение списка из N целых чисед.
Типизированный указатель объявлен следующим образом:
Type
Tp=^posl;
Posl=record
A: integer;
Next:tp;
End;
Var p,g:tp;i:integer;
А) P:=nil;
For i:=1 to n do
Read (g^.a);
В) P:=nil;
For i:=1 to n do
Begin
Read(g^.a);g^.next=p;p:=g;
Вариант 1211
12
End;
С) P:=nil;
For i:=1 to n do
Begin
New(g);
Read(g. a); g. next=p;p:=g;
End;
D) P:=nil;
For i:=1 to n do
Begin
New(g);
Read(g^. a); g^. next=p;p:=g;
End;
Е) P:=nil;
For i:=1 to n do
Begin
New(g);
Read(g. a); g^. next=p;
End;
Вариант 1211
8. Схема
$$$ 29 С
Что будет выдано на печать в результате выполнения следующих операторов?
P^:=D^;
If P=D then P:=nil
Else if P^=D^ then D:=P;
If P=D then D^:=4;
Writeln (P^);
А)D
В)0
С)4
D)NIL
Е)P^
$$$ 30 D
Укажите правильный фрагмент программы.
Даны натуральное число n. Целые числа a1,a2,…,a n. Выяснить,имеются ли среди чисел
a1,a2,…a n совподающие.
А)label M;
Type t=array[1...n] of integer;
Var
a:t; i,j:integer;
begin
new(b);
for i:=1 to n do read(a^[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if (a^[j]=a^[i]) then
begin
Вариант 1211
12
writeln (‘есть совподающие’) ;goto M;end;
writeln(‘нет совподающих’);
M:end;
В) Type t=array[1...n] of integer;
Var
a:^t; i,j:integer;
begin
new(a);
for i:=1 to n do read(a^[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if (a^[j]=a^[i]) then
begin
writeln (‘есть совподающие’) ;
writeln(‘нет совподающих’);
end.
С) Type t=array[1...n] of integer;
Var
a:^t; i,j:integer;
begin
new(a);
for i:=1 to n do
read(a^[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if (a^[j]=a^[i]) then
begin
writeln (‘есть совподающие’) ;goto M;end;
writeln(‘нет совподающих’);
M:end.
D)
label M;
Type t=array[1...n] of integer;
Var
a:^t; i,j:integer;
begin
new(a);
for i:=1 to n do
read(a^[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if (a^[j]=a^[i]) then
begin
writeln (‘есть совподающие’) ;goto M;end;
writeln(‘нет совподающих’);
M:end.
Е)
label M;
Type t=array[1...n] of integer;
Var
Вариант 1211
9. Схема
Вариант 1211
12
a:^t; i,j:integer;
begin
new(a);
for i:=1 to n do
read(a^[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if (a^[j]=a^[i]) then
begin
writeln (‘есть совподающие’) ;goto M;end;
writeln(‘нет совподающих’);
M:end.
Вариант 1211
10. Схема
$$$ 30 D
В блок-схеме прямоугольник означает:
A) блок ввода/вывода
B) блок начало/конец
C) блок условии
D) блок вычисления
E) блок вычитание
$$$ 31 С
Вычислить значение выражения
pred(round(13/2)-succ(3))
trunk(12/5)
A) 3
B) 2
C) 1
D) 4
E) 5
$$$ 32 С
Укажите результат исполнения фрагмента программы при значении Х=6 Case X of
1,3:y:=1;
4..7:y:=2*X;
2,8:y:=sqr(X);
Else
Y:=0;
End;
Writeln(‘y=’, y:5:3);
A) 6
B) 2*X
C) 12
D) 0
E) 1
$$$ 33D
Вариант 1211
12
Что будет напечатано в результате выполнения фрагмента
программы, если элементами массива являются числа (3, 14, -3,6, FOR I:=1 TO 7 DO
IF (A[I] mod 3=0) AND (A[I]>0) THEN WRITELN (A[I]*2)
A) 6,28,12,10,24
B) 3, -3,6, -9,12
C) 6, -6,12 -18,24
D) 6,12,24
E) 6, -6,12, -18
Вариант 1211
11. Схема
9,5,12)
$$$ 34 C
Выберите правильный вариант заголовка процедуры для ввода массива
A) PROCEDURE (R:MATRIX)
B) PROCEDURE (R:ARRAY[1..N])
C) PROCEDURE (VAR R:MATRIX)
D) PROCEDURE (R:ARRAY [1..N] OF REAL)
E) PROCEDURE (R:ARRAY (1..N) OF INTEGER)
$$$ 35 C
Найдите строку в результате которого получится окружность
A) circle (100;150;50
B) circle (100;150),50
C) circle (100;150)
D) line (1,15)-(100,150),B
E) line (1,15;100;150)
$$$ 36 A Укажите операцию над множествами, результатом которой является первое
множество, дополненное недостающими элементами из второго множества
A) Объединения
B) Разность
C) IN
D) Включение
E) Пересечение
$$$ 37 А
Какой из алгоритмов находит наибольший общий делитель двух чисел.
A) 1. Если числа равны, то взять любое из них в качестве ответа, в противном случае
продолжить выполнение алгоритма.
2. Определить большее из чисел.
3. Заменить большее число разностью большего и меньшего чисел.
4. Начать алгоритм сначала.
B) Если числа равны, то взять любое из них в качестве ответа
2. Определить большее из чисел.
3. Заменить большее число разностью большего и меньшего чисел.
4. Начать алгоритм сначала.
C) 1. Если числа равны, то взять любое из них в качестве ответа, в противном случае
продолжить выполнение алгоритма.
2. Определить большее из чисел.
Вариант 1211
12
Вариант 1211
3. Заменить большее число меньшим числом.
12. Схема
4. Начать алгоритм сначала.
D) 1. Если числа равны, то взять любое из них в качестве ответа, в противном случае
продолжить выполнение алгоритма.
2. Определить большее из чисел.
3. Заменить большее число разностью большего и меньшего чисел.
E) 1. Если числа равны, то взять любое из них в качестве ответа, в противном случае
продолжить выполнение алгоритма.
2. Определить меньшее из чисел.
3. Заменить большее число разностью большего и меньшего чисел.
4. Начать алгоритм сначала
$$$ 38 A
Переменные логического типа a:=true и b:=false. Чему равно значение a and b:
A) false
B) не определено
C) true
D) зависит от реализации компилятора
E) зависит от времени выполнения
$$$ 39 A
Укажите правильный оператор цикла:
A) repeat
Операторы
until условие;
B) repeat
Begin
Операторы
Until условие;
End;
C) Repeat
Операторы
Until условие;
D) While условие do
Операторы
End;
E) repeat
Операторы
Until условие, метка;
$$$ 40 В
Укажите оператор ввода переменной “a”
A) Write (a)
B) Read (a)
C) Print a
D) Label a
E) Input a
Вариант 1211
12
$$$ 41 D
Что будет напечатано следующей программой
PROGRAM MASB;
VAR B:ARRAY[1..10] OF INTEGER;
L,I:INTEGER;
BEGIN L:=1;
FOR I:=1 TO 20 DO
IF ODD(I) THEN
BEGIN
B[L]:=sqr(I);
L:=L+1;
END;
FOR L:=1 TO 10 DO
WRITE(B(L):4)
END.
A) 4 36 100 196 324
B) 1 25 81 169 289
C) 4 16 36 64 100 144 196 256 324
D) 1 9 25 49 81 121 169 225 289 361
E) 1 4 9 16 25 36 49 64 81 100
$$$ 42 E
Что будет напечатано программой
PROGRAM SWP;
VAR C,D:REAL;
PROCEDURE SW1(VAR X, Y:REAL);
VAR Z:REAL;
BEGIN
Z:=X; X:=Y; Y:=Z;
END;
BEGIN
READ(C,D);
SW1(C,D); WRITE(‘C=’, C,’ D=’,D);
END.
Если в качестве исходных данных заданы числа 1.6 и 3.5
A) 1.6
3.5
B) С=3.5 С=3.5
C) С=1.6 С=1.6
D) С=1.6 С=3.5
E) С=3.5 С=1.6
$$$ 43 B
Выберите правильный вариант использования оператора WITH.
Описание приводится ниже
TYPE STUD=RECORD
Вариант 1211
13. Схема
Вариант 1211
12
FIO:STRING
NAZ:STRING;
STOIM:200..800;
END
END;
VAR ST:STUD;
A) WITH ST DO
BEGIN FIO:=‘Петров Р.’; NAZ:=’Горизонт’ ; STOIM:=500; END;
B) WITH ST DO
FIO:= ‘Петров Р.’; NAZ:=’Горизонт’ ; STOIM:=500;
C) WITH ST, SVED DO
FIO:= ‘Петров Р.’; NAZ:=’Горизонт’ ; STOIM:=500;
D) WITH ST, SVED DO
FIO:= ‘Петров Р.’; NAZ:=Горизонт ; STOIM:=500;
E) WITH ST, SVED DO
BEGIN FIO:=‘Петров Р.’; NAZ:=’Горизонт’ ; STOIM:=500; END;
$$$ 44 C
Что выполняет следующий фрагмент программы?
Var
f:file of integer; n,a,b,:integer;
Begin
Assign (f,’f.txt’);
Reset(f);
n:=filesize(f);
read(f,a);
b:=a; seek(f,n -1);
read(f,a);
writeln(b-a);
end;
A) находит разность b-a
B) указатель устанавливает на конец файла
C) находит разность последней и первой компоненты файла
D) находит разность первой и последней компоненты файла
E) печатает ноль
$$$ 45 C
Что выполняет следующий фрагмент программы?
Var
f:file of integer; n,a,b,:integer;
Begin
Assign (f,’f.txt’);
Reset(f);
n:=filesize(f);
seek(f,n -1); read(f,a);
b:=a;
read(f,a);
Вариант 1211
14. Схема
Вариант 1211
12
writeln(b-a);
end;
A) Находит разность последней и первой компоненты файла
B) Находит разность b-a
C) Указатель устанавливает на конец файла
D) Находит разность первой и последней компоненты файла
E) Печатает ноль
$$$ 46 B
Укажите правильный результат
:var n: integer;
begin n:=1000; writeln (n div 10); end.
A) 0
B) 100
C) 1000
D) 10.00
E) 10
$$$ 47 A
. Укажите правильный вариант записи.
A) Массив ARRAY [1..N] OF REAL
B) Массив ARRAY [1..N] OF
C) Массив ARRAY [1..N] REAL
D) Массив ARRAY [1..N] Integer
E) Массив ARRAY [1..N]
$$$ 48 D
Укажите результат исполнения программы при значениях n=3; m=2;
Var
N,m:integer;c1,c2,c3:Longint; c:real;
Procedure fact(n:integer; var p:longint);
Var
I:integer;
Begin
P:=1:
For i:= to n do
P:=p*I;
End;
Begin
Readln (n,m);
Fact(n,c1);
Fact(m,c2);
Fact(n-m,c3);
C:=c1/(c2*c3);
Writeln(c);
End.
A) 1/3
B) c
Вариант 1211
15. Схема
Вариант 1211
12
C) c1/(c2*c3)
D) 3
E) 6
Вариант 1211
16. Схема
$$$ 49 D
Укажите результат исполнения программы
var
a,b:real;
procedure pr;
var
d:integer;
begin
a:=2; d:=3; b:=b+d;
end;
begin
a:=0.5; b:=100;
Pr;
Writeln(a,b)
End.
A) a b
B) 0.5 103
C) 0.5 100
D) 2 103
E) 2 0
$$$ 50 C
Какая фигура может быть нарисована заданием следующей процедуры:
Rectangle (10, 20, 20, 40)
A) Квадрат
B) Параллелепипед
C) Прямоугольник
D) Треугольник
E) Прямая
$$$ 51 E
Какой из фрагментов программы выполняет построение списка из N целых чисел.
Типизированный указатель объявлен следующим образом:
Type
TP=^posl;
Posl=record
A:integer;
Next:tp;
End;
Var p,g:tp;i:integer;
A) p:=nil;
for i:=1 to n do
begin
read(g^. a); g^. next=p; p:=g;
Вариант 1211
12
end;
B) p:=nil;
for i:=1 to n do
read(g^. a);
C) p:=nil;
for i:=1 to n do
begin
new(g);
read(g. a); g . next=p; p:=g;
end;
Вариант 1211
17. Схема
D) p:=nil;
for i:=1 to n do
begin
new(g);
read(g^. a); g^. next=p;
end;
E) p:=nil;
for i:=1 to n do
begin
new(g);
read(g^. a); g^. next=p; p:=g;
end;
$$$ 52 D
Что будет выдано на печать в результате выполнения следующих операторов?
P^:=D^;
If P=D then P=Nil
Else if P^=D^ then D:=P;
If P=D then D^:=4;
Writeln(P^);
A) D
B) P^
C) NIL
D) 4
E) 0
$$$ 53 C
Приведенная ниже структура алгоритма
Начальные
присваивания
Вариант 1211
Да
Тело цикла
Вариант 1211
12
18. Схема
услов
ие
А) Соответствует циклу Пока
В) Соответствует Следованию
С) Соответствует циклу До
D) Соответствует Разветвлению
Е) Соответствует Множественному выбору
$$$ 54 А
Правильное описание переменной а целочисленного типа имеет вид:
А) a: integer
B) a: char
C) a:real
D) a:array
E) a:double
$$$ 55 С
Найдите правильную запись выражения
х  1  х 1
2х
на языке Паскаль:
А) (abs(x+1-sqr(x)-1)/2*x
В) (abs(x+1)-sqr(x-1))/2*x
С) (abs(x+1)-sqrt(x)-1)/2*x
D)abs(x+1)-sqr(x)-1)/2*x
E)(abs(x+1)-sqr(x)1)/2*x
$$$ 56 D
Ниже приведены фрагменты программ нахождения среднего арифметического N чисел.
Укажите какие из них верны
1) S:=0;
2) S:=0; I:=1;
FOR I:=1 TO N DO
WHILE I<=N DO
S:=S+A[I];
BEGIN
WRITE(S/N);
S:=S+A[I];
INC(I);
END; WRITE(S/N);
3) S:=0;
4) S:=0; I:=1;
FOR I:=1 TO N DO
REPEAT
BEGIN
S:=S+A[I];
S:=S+A[I];
INC(I);
WRITE(S/N);
UNTIL (I<N);
END;
WRITE(S/N);
A)
B)
C)
D)
E)
Вариант 1211
12
1,3,4
2,4
1,2,4
1,2
1,4
Вариант 1211
19. Схема
$$$ 57 D
Выбрать правильный вариант описания функции для вычисления факториала
A) FUNCTION FACT (k:INTEGER):REAL;
VAR I,P:INTEGER;
BEGIN
P:=1; FOR I:=2 TO k DO; P:=P*I;
FACT:=P
END;
B) FUNCTION FACT (k:INTEGER);
VAR I,P:INTEGER;
BEGIN
P:=1; FOR I:=2 TO k DO; P:=P*I;
FACT:=P
END;
C) FUNCTION FACT (k:REAL):REAL;
VAR I,P:INTEGER;
BEGIN
P:=1; FOR I:=2 TO k DO; P:=P*I;
FACT:=P
END;
D) FUNCTION FACT (k:INTEGER):INTEGER;
VAR I,P:INTEGER;
BEGIN
P:=1; FOR I:=2 TO k DO; P:=P*I;
FACT:=P
END;
E) FUNCTION FACT (k:INTEGER):INTEGER;
VAR I,P:INTEGER;
BEGIN
P:=1; FOR I:=2 TO k DO; P:=P*I;
END;
$$$ 58 A
С помощью оператора …… можно начертить прямую.
A) LINE
B) RETURN
C) READLN
D) SCREEN
E) CIRCLE
$$$ 59 D
Вариант 1211
12
Укажите операцию над множествами результатом которой является
множество общих элементов множеств
А) объединение
В) включение
С) разность
D) пересечение
Е) IN
Вариант 1211
20. Схема
$$$ 60 D
Процедура Dispose(p)
А) Уничтожает динамическую переменную
В) Освобождает динамическую память
С) Выделяет место в памяти
D) Возвращает в кучу память, связанную с указателем р.
Е) Уничтожает динамическую переменную, на которую указывает указатель р.
A)
B)
C)
D)
E)
$$$ 61 E
Переменные объявлены следующим образом: p1,p2:^real;
P3:^integer;
На сколько байт сместится указатель Heapptr после выполнения фрагмента программы?
Begin
new (p1);
new (p2);
new (p3);
end;
6
10
3
18
14
$$$ 62 C
Как описывается символьный тип:
А) real
B) array(1….n) of real
C) char
D) VAR A,B: integer
E) array(1…n) of string
$$$ 63 E
Операция сравнения «не равно» имеет вид:
А) =
В) !=
С) <
D) >
E) <>
$$$ 64 C
Вариант 1211
12
 2 
cos

8 

Какая форма записи в Turbo Pascal верна для
Exp(2 N )
A)
B)
C)
D)
E)
Cos(2*π/8)/e2*N
Cos(2π/8)/e2N
Cos(2*(π/8))/Exp(2*N)
Cos(2π/8)/Exp(2N)
Нельзя записать
A)
B)
C)
D)
E)
$$$ 65 A
Найдите правильную форму записи в Turbo Pascal для Tan(a)/Cos(α)
Sin(α)/Cos(α)/Cos(α)
Sin(α)/Cos(α)*Cos(α)
Нельзя записать
Tan(α)/Cos(α)
Tan(α)*Cos(α)
A)
B)
C)
D)
E)
$$$ 66 B
Что будет напечатано следующей программой
PROGRAM MASB;
VAR B:ARRAY[1…10] OF INTEGER;
L,I:INTEGER;
BEGIN L:=1;
FOR I:=1 TO 20 DO
IF ODD(I) THEN
BEGIN
B[L]:=sqr(I);
L:=L+1;
END;
FOR L:=1 TO 10 DO
WRITE(B(L):4)
END.
1 25 81 169 289
1 9 25 49 81 121 169 225 289 361
4 36 100 196 324
1 4 9 16 25 36 49 64 81 100
4 16 36 64 100 144 196 256 324
Вариант 1211
21. Схема
$$$ 67 D
Выберите правильный вариант упорядочения массива B[20] по не врзрастанию
A) FOR I:=1 TO 19 DO
FOR J:=1 TO 20 DO
IF B[I]<B[J] THEN
BEGIN C:=B[I]; B[I]:=B[J]; B[J]:=C; END;
B) FOR I:=1 TO 19 DO
FOR J:=I+1 TO 20 DO
Вариант 1211
12
IF B[I]<B[J] THEN
BEGIN C:=B[I]; B[I]:=B[J+1]; B[J]:=C; END;
C) FOR I:=1 TO 19 DO
FOR J:=I+1 TO 20 DO
IF B[I]>B[J]
D) FOR I:=1 TO 19 DO
FOR J:=I+1 TO 20 DO
IF B[I]<B[J] THEN
BEGIN C:=B[I]; B[I]:=B[J]; B[J]:=C; END;
E) FOR I:=1 TO 19 DO
FOR J:=I+1 TO 20 DO
IF B[I]>B[J] THEN
BEGIN C:=B[I]; B[I]:=B[J]; B[J]:=C; END;
Вариант 1211
22. Схема
$$$ 68 C
Укажите правильный фрагмент программы, описывающей процедуру вычисления суммы
положительных четных элементов, расположенных в нечетных столбцах массива
A) Procedure sum(x:mas;S:integer);
Begin
S:=0;
For i:=1 to n do
For j:=1 to n do
If j mod 2 <> 0 then
If (x[I,j]>0) and (x[I,j] mod 2=0) then
S:=S+ x[I,j];
End;
B) Procedure sum(x:mas;var S:integer);
Begin
S:=0;
For i:=1 to n do
For j:=1 to n do
If j mod 2 <> 0 then
If (x[I,j]>0) (and x[I,j] mod 2=0) then
S:=S+1;
End;
C) Procedure sum(x:mas;var S:integer);
Begin
S:=0;
For i:=1 to n do
For j:=1 to n do
If j mod 2 <> 0 then
If (x[I,j]>0) and ( x[I,j] mod 2=0) then
S:=S+ x[I,j];
End;
D) Procedure sum(x:mas): var S:integer;
Begin
S:=0;
For i:=1 to n do
Вариант 1211
12
For j:=1 to n do
If j mod 2 <> 0 then
If (x[I,j]>0) and (x[I,j] mod 2=0) then
S:=S+ x[I,j];
End;
E) Procedure sum(x:mas;var S:integer);
Begin
S:=0;
For i:=1 to n do
For j:=1 to n do
If i mod 2 <> 0 then
If (x[I,j]>0) and (x[I,j] mod 2=0) then
S:=S+ x[I,j];
End;
Вариант 1211
23. Схема
$$$ 69 B
Нарисовать 10 горизонтальных линии. Выберите правильный фрагмент программы.
A) k:=1;
While k<10 do
Begin
Line(50,10+k*10,400, 10+k*10);
Ink(k);
End;
B) k:=1;
While k<=10 do
Begin
Line(50,10+k*10,400, 10+k*10);
Ink(k);
End;
C) k:=1;
While k<=10 do
Begin
Line(50,Y,400,Y);
Ink(k);
End;
D) k:=1;
While k<=10 do
Begin
Line(50,10+k*10,400, 10+k*10);
End;
E) k:=1;
While k<=10 do
Begin
Line(50,k*10,400, 10+k*10);
Ink(k);
End;
$$$ 70 C
Вариант 1211
12
Выберите правильный вариант программы, которая выводит сведения
изданных аздательством Мир и которые поступили в магазин начиная с
года.
A) for i:=1 to n do
If (a[i].izd="Мир") or (a[i].datapost<2002) then
Begin
Writeln (a[i].awt);
Writeln (a[i].nazw);
Writeln (a[i].god);
Writeln (a[i]. datapost);
End;
B) for i:=1 to n do
If (a[i].izd=Мир) then
Begin
Writeln (a[i].awt);
Writeln (a[i].nazw);
Writeln (a[i].god);
Writeln (a[i]. datapost);
End;
C) for i:=1 to n do
If (a[i].izd="Мир") and (a[i].datapost>=2002) then
Begin
Writeln (a[i].awt);
Writeln (a[i].nazw);
Writeln (a[i].god);
Writeln (a[i]. datapost);
End;
D) for i:=1 to n do
If (a[i].izd=Мир) and (a[i].datapost=2002) then
Begin
Writeln (a[i].awt);
Writeln (a[i].nazw);
Writeln (a[i].god);
Writeln (a[i]. datapost);
End;
E) for i:=1 to n do
If a[i].izd=Мир and (a[i].datapost>=2002) then
Begin
Writeln (a[i].awt);
Writeln (a[i].nazw);
Writeln (a[i].god);
Writeln (a[i]. datapost);
End;
Вариант 1211
24. Схема
о книгах
2002
$$$ 71 B
Чему равно значение выражения 2*p^+sqrt(p^), если по адресу, на которую указывает
указатель p размещено число 9.
А) 99.
Вариант 1211
12
В) 21
С) Выражение записано неверно.
D) 9.
Е) 2*p^+sqrt(p^)
A)
B)
C)
D)
E)
$$$ 72 D
Что будет напечатано следующим фрагментом программы?
Var
x,y:^integer;
begin
new(x); x^:=15; y:=x; write(y^); writeln(x^+10);
Dispose(x);
End;
Y^25
X 25
15 x^+10
15 25
Y^ x^+10
$$$ 73 B
Что выполняет следующий фрагмент программы?
var
a:char;
Begin
Assign(f1,'f1.txt');
Assign(f1,'f2.txt');
Assign(f1,'f3.txt');
Rewrite(f3); reset(f1);
While not eof(f1) do
Begin
Read(f1,a);
White(f3,a);
End;
Close(f3);
Rewrite(f1); reset(f2);
While not eof(f2) do
Begin
Read(f2,a);
White(f1,a);
End;
Rewrite(f2); reset(f3);
While not eof(f3) do
Begin
Read(f3,a);
White(f2,a);
End;
Close(f2); Close(f3); Close(f1);
End;
Вариант 1211
25. Схема
A)
B)
C)
D)
E)
A)
B)
C)
D)
E)
Вариант 1211
12
Вариант 1211
Переписывает компоненты файла f2 в файл f3
26. Схема
Переписывает компоненты файла f1 в файл f2, а компоненты файла f2 в
Переписывает компоненты файла f1 и файла f3
Переписывает компоненты файла f1 в файл f3
Переписывает компоненты файла f1 в файл f2, а компоненты файла f2 в файл f3
$$$ 74 B
Что выполняет следующий фрагмент программы?
var
f:text;
a:string; s,k:integer;
begin
k:=1;
assign(f,'f.txt');
reset(f);
While not eof(f) do
Begin
Read(f,a);
S:=length(a);
If s>50 then ink(k);
End;
Writeln(k);
End;
Подсчитывает количество строк
Подсчитывает количество строк, содержащих более 50 символов
Находит длину каждой строки
Подсчитывает количество символов в строках
Печатает строки, содержащих более 50 символ
$$$ 75 B
Укажите результат 16 mod (7+9) div 3*2
А) 11
В) 0
С) 8
D) 10
E) 2
$$$ 76 D
Что вычисляет следующая программа
Program pr;
Const n=10;
var a: array[1….n] of integer;
s,k,i:integer;
begin
for i:=1 to n do
read([Ai]);
s:=0; k:=0;
for i:=1 to n do
файл f1
Вариант 1211
A)
B)
C)
D)
E)
12
begin
if not(odd(A[i])) then begin
k:=k+1;
s:=s+a[i];
end:;
end;
writeln('k=',k,'s=',s);
end.
Количество и сумму нечетных элементов массива А(10)
Количество и произведение нечетных элементов массива А(10)
Количество четных элементов массива А(10)
Количество и сумму четных элементов массива А(10)
Количество и произведение четных элементов массива А(10)
$$$ 77 B
Что выведет данный фрагмент
PROGRAM PAR (INPUT, OUTPUT);
VAR C,D,P: INTEGER;
Function Q(X,Y:INTEGER) :integer;
BEGIN
Q:=X+Y;
END;
BEGIN
C:=2; d:=0; P:=Q(C,D); WRITELN(P); END)
А) 2
В) 0
С) 5
D) 11
E) 10
$$$ 78 B
Описание строковых переменных:
А) Record
B) String
C) While
D) integer
E) Array
$$$ 79 A
Какая фигура может быть нарисована заданием следующей процедуры:
Rectangle(10,20,20,40)
А) Прямоугольник
В) Параллелепипед
С) Квадрат
D) Прямая
Е) Треугольник
Вариант 1211
27. Схема
Вариант 1211
12
Вариант 1211
28. Схема
$$$ 80 A
Что выполняет следующий фрагмент программы?
Type t=array[1..n] of integer;
Var
B:^t;
Begin
New(b);
Read(b^[1]); k:=b^[1];
For i:=2to n do
Begin
Read(b^[i]);
If b^[i]<k then k:=b^[i]
End;
Writeln(b^[k]);
End.
А) Печатает число b[k], номер которого равен минимальному из чисел b1,b2,…bn
B) Печатает наибольшее из чисел b1,b2,…bn
С) Печатает число b[k], номер которого равен максимальному из чисел b1,b2,…bn
D) Печатает наименьшее из чисел b1,b2,…bn
Е) Печатает адрес числа b^[k]
A)
B)
C)
D)
E)
$$$ 81 A
Что будет напечатано следующим фрагментом программы?
Var
X,y:^integer;
Begin
New(x); x^:5; y:=x; write(y^); writeln(x^+20);
Dispose(x);
End;
5 25
y^ x^+20
x 25
y^ 25
5 x^+10
$$$ 82 C
Укажите правильный фрагмент программы.
Даны натуральное число n. Целые числа а1,а2,….,аn. Выяснить, имеются ли среди чисел
а1,а2,….,аn совпадающие.
А) Type t=array[1…n] of integer;
Var
a:^t; I,j:integer;
begin
new(a);
for i:=1 to n do
read(a^[i]);
for i:=1 to n-1 do
Вариант 1211
12
for j:=i+1 to n do
if (a^[j]=a^[i]) then begin
whiteln('есть совпадающие'); goto M; end;
whiteln('нет совпадающих');
M:End.
B) label M;
Type t=array[1…n] of integer;
Var
a:t; I,j:integer;
begin
new(b);
for i:=1 to n do
read(a^[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if (a^[j]=a^[i]) then begin
whiteln('есть совпадающие'); goto M; end;
whiteln('нет совпадающих');
M:End.
C) label M;
Type t=array[1…n] of integer;
Var
a:^t; I,j:integer;
begin
new(a);
for i:=1 to n do
read(a^[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if (a^[j]=a^[i]) then begin
whiteln('есть совпадающие'); goto M; end;
whiteln('нет совпадающих');
M:End.
D) Type t=array[1…n] of integer;
Var
a:^t; I,j:integer;
begin
new(a);
for i:=1 to n do
read(a^[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if (a^[j]=a^[i]) then begin
whiteln('есть совпадающие'); goto M; end;
whiteln('нет совпадающих');
End.
E) label M;
Type t=array[1…n] of integer;
Вариант 1211
29. Схема
Вариант 1211
12
Var
a:^t; I,j:integer;
begin
for i:=1 to n do
read(a^[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if (a^[j]=a^[i]) then begin
whiteln('есть совпадающие'); goto M; end;
whiteln('нет совпадающих');
M:End.
Вариант 1211
30. Схема
$$$ 83 B
Выберите правильный вариант использования стандартной процедуры для вставки
подстроки ST1 в строку ST, начиная с третьего символа
А) INSERT (ST,ST1,3)
В) INSERT (ST1,ST,3)
С) INSERT (S,ST1,ST,3)
D) INSERT (ST1,5,ST,3)
Е) INSERT (ST,5,ST1,3)
$$$ 84 B
Что будет напечатано программой
PROGRAM SWP;
VAR C,D:integer;
PROCEDURE SW1(VAR X,Y:integer);
VAR Z:integer;
BEGIN
Z:=X; X:=Y; Y:=Z;
END;
BEGIN
READ(C,D);
SW1(C,D); WRITE (‘ C=’,C,’ D=’,D);
END.
если в качестве исходных данных заданы числа 5 и 7
А) 5
5
В) С=7 D=5
С) С=5 D=7
D) С=7 D=7
Е) C
D
$$$ 85 A
С помощью оператора LINE можно начертить
А) прямоугольник
В) окружность
С) шар
D) хорду
Вариант 1211
12
Е) круг
Вариант 1211
31. Схема
$$$ 86 B
Укажите операцию над множествами, результатом которой является первое множество,
дополненное недостающими элементами из второго множества
А) IN
В) объединения
С) разность
D) Включение
Е) Пересечение
$$$ 87 C
Значениями указателей являются
А) указатели
В) переменные
С) адреса переменных
D) адреса указателей
Е) массивы
$$$ 88 C
Значениями указателей являются
А) указатели
В) переменные
С) адреса переменных
D) массивы
Е) адреса указателей
$$$ 89 B
Какую задачу решает следующий алгоритм? Даны два натуральных числа.
1. Если числа равны, то взять любое из них в качестве ответа, в противном случае
продолжить выполнение алгоритма.
2. Определить большее из чисел
3. Заменить большее число разностью большего и меньшего чисел.
4. Начать алгоритм сначала.
А) Наибольшее из двух чисел
В) Находит наибольший общий делитель двух чисел
С) Находит общий делитель двух чисел
D) два равных числа
Е) Наименьшее из двух чисел
$$$ 90 A
Операция сравнения “больше или равно” имеет вид:
А) >=
В) =
С) <>
D) <=
Е) |=
Вариант 1211
12
$$$ 91 E
Какая форма записи верна для |x|Tan(x)
А) |x|Tan(x)
В) abs(x)*sin(x)*cos(x)
С) abs(x)*Tan(x)
D) |x|*Tan(x)
Е) abs(x)*sin(x)/cos(x)
Вариант 1211
32. Схема
$$$ 92 D
Найдите правильную форму записи для x2-y3
А) 2*x-3*y
В) x^2-y^3
С) sqr(x)-sqr(y)
D) x*x-y*y*y
Е) x*x-y*y
$$$ 93 A
Что будет напечатано следующей программой
PROGRAM ZAM;
CONST N=10;
VAR A:ARRAY [1..N] OF INTEGER;
C,MAX,MIN,L,M,I:INTEGER;
BEGIN {элементы массива: 15 6 3 7 12 13 25 11 9 4}
FOR I:=1 TO N DO
READ (A[I]);
MAX:=A[1]; M:=1; MIN:=A[1]; L:=1;
FOR I:=1 TO N DO
IF ODD(A[I]) THEN IF A[I]<MIN THEN BEGIN
MIN:=A[I]; L:=1;
END
ELSE
IF A[I]>MAX THEN DEGIN
MAX:=A[I]; M:=1;
END;
C:=A[L]; A[L]:=A[M]; A[M]:=C;
FOR I:=1 TO N DO
WRITE (A[I]:3);
END;
А) 15 6 12 7 3 13 25 9 2 4
В) 15 6 25 7 12 13 3 11 9 4
С) 15 6 3 7 2 13 25 9 12 4
D) 15 6 3 7 12 13 2 11 25 4
Е) 15 6 3 4 13 25 9 2 7 12
$$$ 94 D
Для заданного одномерного массива А=(-3,2,5,-1,0,3) укажите правильный ответ результата
исполнения программы
BEGIN
Вариант 1211
12
FOR I:=1 TO 6 DO
BEGIN
READ(A[I]);
IF (I MOD 2=0) AND (A[I]>0) THEN A[I]=SQR(A[I]);
END;
FOR I:=1 TO 6 DO
WRITE (A[I]);
END.
А) 3,4,5,-2,0,3
В) -6,2,10,-1,0,6
С) -3,4,10,-1,0,9
D) -3,4,5,-1,0,9
Е) -3,4,5,-1,6
Вариант 1211
33. Схема
$$$ 95 E
Укажите правильный фрагмент программы, описывающей функцию, вычисляющую сумму
положительных четных элементов, расположенных в нечетных столбцах массива
А) function sum(x:mas):integer;
Begin
sum:=0;
for i:=1 to n do
for j:=1 to n do
if j mod 2<>0 then
if (x[i,j]>0) and (x[i,j] mod 2=0) then
sum:=sum+1;
End;
В) function sum(x:mas):integer;
Begin
S:=0;
for i:=1 to n do
for j:=1 to n do
if j mod 2<>0 then
if (x[i,j]>0) and (x[i,j] mod 2=0) then
S:=S+x[i,j];
End;
С) function sum(x:mas):integer;
Begin
S:=0;
for i:=1 to n do
for j:=1 to n do
if j mod 2<>0 then
if (x[i,j]>0) and (x[i,j] mod 2=0) then
sum:=sum+x[i,j];
End;
D) function sum(x:mas):integer;
Begin
S:=0;
for i:=1 to n do
Вариант 1211
12
for j:=1 to n do
if j mod 2<>0 then
if (x[i,j]>0) and (x[i,j] mod 2=0) then
sum:=S+x[i,j];
End;
Е) function sum(x:mas):integer;
Begin
S:=0;
for i:=1 to n do
for j:=1 to n do
if j mod 2<>0 then
if (x[I,j]>0) and (x[I,j] mod 2=0) then
S:=S+x[i,j]
sum:=S;
End;
Вариант 1211
34. Схема
$$$ 96 C
Нарисовать 10 вертикальных линий. Выберите правильный фрагмент программы
А) k:=0
While k<10 do
Begin
Line(50+20,50, 50+k*20,200);
End;
В) k:=0
While k<10 do
Begin
Line(50+20,50, 50+k*20,200);
lnk(k);
End;
С) k:=0
While k<10 do
Begin
Line(50+k*20,50, 50+k*20,200);
lnk(k);
End;
D) k:=0
While k<=10 do
Begin
Line(50+k*20,50, 50+k*20,200);
lnk(k);
End;
Е) k:=0
While k<10 do
Begin
Line(50+k*20,50, 50+20,200);
lnk(k);
End;
Вариант 1211
12
$$$ 97 C
Выберите правильный фрагмент для вывода сведений о стундентах по
убыванию года рождения (сведения хранятся в массиве записей
А) for i:=1 to n do
If a[j].god>a[i].godthen
Begin
End;
For i:=1 to n do
with a[i]. do
begin
writeln(fio); writeln(grup);
writeln(den); writeln(mes);
end;
В) for i:=1 to n do
For j:=i+1 to n+1 do
If a[j].god>a[i].god then
Begin
a[i]:=a[j]; a[j]:=a[i];
End;
For i:=1 to n do
with a[i]. do
begin
writeln(fio); writeln(grup);
writeln(den); writeln(mes);
end;
С) for i:=1 to n-1 do
For j:=i+1 to n+1 do
If a[j].god>a[i].god then
Begin
p:=a[i]; a[i]:=a[j]; a[j]:=p;
End;
For i:=1 to n do
with a[i]. do
begin
writeln(fio); writeln(grup);
writeln(den); writeln(mes);
end;
D) for i:=1 to n-1 do
For j:=i+1 to n do
If a[j].god<a[i].god then
Begin
p:=a[i]; a[i]:=a[j]; a[j]:=p;
End;
For i:=1 to n do
with a[i]. do
begin
writeln(fio); writeln(grup);
writeln(den); writeln(mes);
Вариант 1211
35. Схема
Вариант 1211
12
end;
Е) for i:=1 to n-1 do
For j:=i to n do
If a[j].god>a[i].god do
For i:=1 to n do
begin
writeln(fio); writeln(grup);
writeln(den); writeln(mes);
end;
$$$ 98 D
Что будет напечатано следующим фрагментом программы?
Var
x,y:^integer;
begin
new(x); x^:=15; y:=x; write (y^); writeln(x^+10);
Dispose (x);
End;
А) y^ x^+10
В) 15 x^+10
С) x 25
D) 15 25
Е) y^ 25
$$$ 99 A
Что будет напечатано следующим фрагментом программы?
Var
x,y:^integer;
begin
new(y); y^:=5; y^:=2*y^+sqr(y^) x:=y; write(x^+10);
Dispose (x);
End;
А) 45
В) x^+10
С) y+10
D) 15
Е) 35
$$$ 100 B
Что выполняет следующий фрагмент программы?
Var
f:text;
s:string;
begin
Assign(f,’f.txt’);
Append(f);
Readln(s);
Writeln(f,s);
Вариант 1211
36. Схема
Вариант 1211
12
End;
Close(f)
End.
А) открывает фай для добавления
В) добавляет в конец файла строку s
С) открывает файл для чтения
D) открывает файл на запись
Е) записывает в файл строку
Вариант 1211
37. Схема