Вариант 1208 14 Вариант 1208 1 $$$ 1 A В этом блоке A) задают условие B) вводят данные C) производят обработку данных D) дают комментарии E) выводят результат $$$ 2 A Описание действительной переменной содержит ключевое слово: А)real В)word С)char D)array Е)integer $$$ 3 A ex на языке Паскаль пишется: А)exp(x) В)exp^(x) С)abc(x) D)LN(x) Е) sgr(x) $$$ 4 B Вывести квадратную вещественную матрицу 5-го порядка построчно А) FOR I:=1 TO 5 DO FOR J:=1 TO 5 DO WRITE(A[I,J]:6:2); В)FOR I:=1 TO 5 DO BEGIN FOR J:=1 TO 5 DO WRITE (A[I,J]:6:2); WRITELN; END; С)FOR I:=1 TO 5 DO FOR J:=1 TO 5 DO Writeln(A[I,J]:6:2); D)FOR I:=1 TO 5 DO Begin FOR J:=1 To 5 DO WRITE(A[I,J]:6:2); END; Е) FOR I:=1 TO 5 DO FOR J:=1 TO 5 DO WRITE (A[I,J]); WRITELN; $$$ 5 A В конце подпрограммы обязательно пишется оператор: А)end В)stop С)goto D)return Е)repeat-until $$$ 6 D Укажите правильный вариант ответа для решения следующей задачи: напишите программу, которая вычерчивает в центре экрана горизонтальную линию. А)line(0,GetMaxY,GetMaxX,0) В)line(0,Round(GetMaxX/2),GetMaxY,0) С)line(GetMaxX,GetMaxY,GetMaxX,GetMaxY) D)line(0,Round(GetMaxY/2),GetMaxX,Round(GetMaxY/2)) Е)line(0,GetMaxX,GetMaxY,0) $$$ 7 D Укажите операцию над множествами, результатом которой является первое множество, дополненное недостающими элементами из второго множества А)Включение В)Разность С)Пересечение Вариант 1208 14 Вариант 1208 2 D)Объединение Е)IN $$$ 8 Е Какая область памяти используется для хранения локальных переменных и параметров? А)оперативная память В)Динамическая память С)Сегмент данных D)Внешняя память Е)Стек $$$ 9 А Значениями указателей являются А)Адреса переменных В)Переменные С)Указатели D)Массивы Е)Адреса указателей $$$ 10 А Какой график функции будет построен по следующему алгоритму? A) Строит график функции Y=[X] В) Строит график функции Y=а[X] С) Строит график функции Y=X D) Строит график функции Y=-X Е) Строит график функции Y=а X $$$ 11 D Логические переменные имеют значения а:=true и b:=true. Чему равно значение а and b А)зависит от времени выполнения В)false С) не определено D)true Е)зависит от реализации компилятора $$$ 12 В Значение переменной х равно 4. Чему равно ее значение после выполнения опреатора if x>0 then x:=x+1 else x:=x-1: А) 4 В)5 С)3 D)7 Е)8 $$$13 А Как произвести случайную выборку числа в диапазоне от «0» до «х» А)Random(x) В) Random*(x) С) Random D) Randomize(x) Е) Random $$$14 D Выберите правильный вариант проверки последовательности a1,...an на возрастание (переменной PR присвоить 1, если последовательность возрастающая, в противном случае PR присвоить 0 ) А)PR:=1;FOR I:=TO N DO IF A[I]>A[I+1] THEN break; В)FOR I:=1 TO N-1 DO IF A[I]>A[N+1] THEN begin PR:=0; break;end; С)PR:=1; FOR I:=1 TO N DO IF A[I]>A[I+1] THEN break; D)PR:=1; FOR I:=1 TO N DO IF A[I]>A[I+1] THEN Begin PR:=0; break;END; Е)PR:=1; FOR I:=1 TO N DO IF A[I]>A[I+1] THEN PR:=0;break; $$$ 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=’.’); Вариант 1208 14 Вариант 1208 3 А)Выдает на печать количетсво цифр В)Печатает количество цифр от 0 до 9 С)Подсчитывает количество цифр и выдает на печать все символы D)Выдает на печать знаки операции и количество цифр Е)Подсчитывает количество цифр и печатает все символы кроме символов '*','-'. $$$ 16 D Укажите результат исполнения программы Program pr; Var a,b,c:integer; Procedure P; Var d:integer; Begin d:=a; a:=b; b:=d; end; procedure Q; begin c:=a+b; b:=c-a; end; begin a:=10; b:=5; c:=2; P;writeln(a,c); Q;writeln(a,c); End. А) 0 0 0 0 В) 10 5 5 10 С) a,b a,b D) 5 2 10 2 Е) 10 10 15 5 $$$ 17 С Укажите правильный вариант ответа для решения следующей задачи: Построить прямоугольник, у которого координаты левого верхнего угла (10,10) и правого нижнего угла (150,100) А)Rectangle (10,10,100,150) В) Rectangle (100,10,10,150) С) Rectangle (10,10,150,100) D) Rectangle (10,100,10,150) Е) Rectangle (100,10,150,100) $$$ 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 Вариант 1208 14 Вариант 1208 4 D)x 25 E)15 x^+10 A) B) C) D) E) $$$ 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 A) B) C) D) E) $$$ 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; for i:=1 to n-1 do 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 Вариант 1208 14 Вариант 1208 5 A. B. C. D. E. P:=p*I; End; Begin Readln(n,m); Fact (n,c1); Fact(n-m,c3); C:=c1/(c2*c3); Writeln(c); End. 10 C 0.1 C1/(c2*c3) 120 A. B. C. D. E. $$$ 26 С Укажите результат исполнения программы при значениях 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:=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. c1/(c2*c3); 1/3 3 6 C A. B. C. D. E. $$$ 27 D Какая фигура может быть нарисована заданием следующей процедуры: Rectangle (10,20,20,40) Параллелепипед Треугольник Прямая Прямоугольник Квадрат $$$ 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; 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); Вариант 1208 14 Вариант 1208 6 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; $$$ 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 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 Вариант 1208 14 Вариант 1208 7 if (a^[j]=a^[i]) then begin writeln (‘есть совподающие’) ;goto M;end; writeln(‘нет совподающих’); M:end. Е) 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. $$$ 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 Что будет напечатано в результате выполнения фрагмента программы, если элементами массива являются числа (3, 14, -3,6, -9,5,12) 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 $$$ 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 Вариант 1208 14 Вариант 1208 8 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. Определить большее из чисел. 3. Заменить большее число меньшим числом. 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 $$$ 41 D Что будет напечатано следующей программой PROGRAM MASB; VAR B:ARRAY[1..10] OF INTEGER; L,I:INTEGER; Вариант 1208 14 Вариант 1208 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 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) находит разность последней и первой компоненты файла 9 Вариант 1208 14 Вариант 1208 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); 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 C) c1/(c2*c3) D) 3 E) 6 $$$ 49 D Укажите результат исполнения программы var a,b:real; procedure pr; var d:integer; begin a:=2; d:=3; b:=b+d; end; 10 Вариант 1208 14 Вариант 1208 11 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; 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; 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 Приведенная ниже структура алгоритма Вариант 1208 Вариант 1208 14 12 Начальные присваивания Тело цикла Да условие А) Соответствует циклу Пока В) Соответствует Следованию С) Соответствует циклу До 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 A) B) C) D) E) $$$ 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); 1,3,4 2,4 1,2,4 1,2 1,4 $$$ 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 Вариант 1208 14 Вариант 1208 13 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 Укажите операцию над множествами результатом которой является множество общих элементов множеств А) объединение В) включение С) разность D) пересечение Е) IN $$$ 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 2 cos 8 Какая форма записи в Turbo Pascal верна для Exp(2 N ) A) Cos(2*π/8)/e2*N B) Cos(2π/8)/e2N Вариант 1208 14 Вариант 1208 14 C) Cos(2*(π/8))/Exp(2*N) D) Cos(2π/8)/Exp(2N) E) Нельзя записать 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 $$$ 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 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; $$$ 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; Вариант 1208 14 Вариант 1208 15 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 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; $$$ 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 Выберите правильный вариант программы, которая выводит сведения о книгах изданных аздательством Мир и которые поступили в магазин начиная с 2002 года. 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); Вариант 1208 14 Вариант 1208 16 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; $$$ 71 B Чему равно значение выражения 2*p^+sqrt(p^), если по адресу, на которую указывает указатель p размещено число 9. А) 99. В) 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); Вариант 1208 14 Вариант 1208 A) B) C) D) E) End; Close(f2); Close(f3); Close(f1); End; Переписывает компоненты файла f2 в файл f3 Переписывает компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1 Переписывает компоненты файла f1 и файла f3 Переписывает компоненты файла f1 в файл f3 Переписывает компоненты файла f1 в файл f2, а компоненты файла f2 в файл f3 A) B) C) D) E) $$$ 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 A) B) C) D) E) $$$ 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 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) 25 B Что выведет данный фрагмент PROGRAM PAR (INPUT, OUTPUT); VAR C,D,P: INTEGER; Function Q(X,Y:INTEGER) :integer; BEGIN Q:=X+Y; END; BEGIN 17 Вариант 1208 14 Вариант 1208 18 C:=2; d:=0; P:=Q(C,D); WRITELN(P); END) А) 2 В) 0 С) 5 D) 11 E) 10 26 B Описание строковых переменных: А) Record B) String C) While D) integer E) Array 27 A Какая фигура может быть нарисована заданием следующей процедуры: Rectangle(10,20,20,40) А) Прямоугольник В) Параллелепипед С) Квадрат D) Прямая Е) Треугольник 28 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) 29 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 30 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 for j:=i+1 to n do if (a^[j]=a^[i]) then begin whiteln('есть совпадающие'); goto M; end; whiteln('нет совпадающих'); M:End. B) label M; Вариант 1208 14 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; 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. Вариант 1204 Блок 3 – Технология программирования (TPascal) 1. B Приведенная ниже структура алгоритма Начальные присваивания да Условие Тело цикла А) Соответствует Следованию В) Соответствует циклу Пока С) Соответствует циклу До D) Соответствует Разветвлению Вариант 1208 19 Вариант 1208 14 Вариант 1208 20 Е) Соответствует Множественному выбору 2. C Правильное описание переменной а действительного типа ???? А) a:char В) a:array С) a: real D) a:word Е) a:integer 3. B Оператор цикла с параметром включает ????? А) while do В) for do С) repeat until D) for do next Е) while do next 4. 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) 5. 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 6. A С помощью оператора LINE можно начертить А) прямоугольник В) окружность С) шар D) хорду Е) круг 7. B Укажите операцию над множествами, результатом которой является первое множество, дополненное недостающими элементами из второго множества А) IN В) объединения С) разность D) Включение Е) Пересечение 8. C Значениями указателей являются А) указатели В) переменные С) адреса переменных D) адреса указателей Е) массивы 9. C Значениями указателей являются А) указатели В) переменные С) адреса переменных Вариант 1208 14 Вариант 1208 21 D) массивы Е) адреса указателей 10. B Какую задачу решает следующий алгоритм? Даны два натуральных числа. 1. Если числа равны, то взять любое из них в качестве ответа, в противном случае продолжить выполнение алгоритма. 2. Определить большее из чисел 3. Заменить большее число разностью большего и меньшего чисел. 4. Начать алгоритм сначала. А) Наибольшее из двух чисел В) Находит наибольший общий делитель двух чисел С) Находит общий делитель двух чисел D) два равных числа Е) Наименьшее из двух чисел 11. A Операция сравнения “больше или равно” имеет вид: А) >= В) = С) <> D) <= Е) |= 12. 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) 13. 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 14. 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 15 D. Для заданного одномерного массива А=(-3,2,5,-1,0,3) укажите правильный ответ результата исполнения программы BEGIN 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 Вариант 1208 14 Вариант 1208 22 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 16. 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 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; 17. 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); Вариант 1208 14 Вариант 1208 23 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; 18. 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); 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; 19. D Что будет напечатано следующим фрагментом программы? Var x,y:^integer; begin Вариант 1208 14 Вариант 1208 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 20. 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 21. B Что выполняет следующий фрагмент программы? Var f:text; s:string; begin Assign(f,’f.txt’); Append(f); Readln(s); Writeln(f,s); End; Close(f) End. А) открывает фай для добавления В) добавляет в конец файла строку s С) открывает файл для чтения D) открывает файл на запись Е) записывает в файл строку 22. B Описание текстовой файловой переменной х имеет вид: А) x;text В) x:text С) x;file D) x:document Е) x.text 23. D Укажите результат Х: x div 5= x mod 5 А) 43 В) 45 С) 30 D) 12 Е) 10 24. E Что выполняет следующая программа Program pr; Const n=6; Var a:array[1..n,1..n] of integer; S,I,j:integer; Begin For i:=1 to n do For j:=1 to n do Read (A[i,j]); For i:=1 to n do Begin S:=0; For j:=1 to n do If A[i,j]>0 then s:=s+A[i,j]; A[i,7-i]:=s; End; For i:=1 to n do 24 Вариант 1208 14 Вариант 1208 25 Begin for j:=1 to n do Write (A[i,j]:4); Writeln; End; End. А) находит сумму элементов каждой строки массива А(6,6) и присваивает соответственно элементам побочной диагонали В) находит сумму элементов каждого столбца массива А(6,6) и присваивает соответственно элементам побочной диагонали С) находит сумму положительных элементов каждой строки массива А(6,6) и присваивает соответственно элементам главной диагонали D) находит положительных сумму элементов каждой строки массива А(6,6) Е) находит положительных сумму элементов каждой строки массива А(6,6) и присваивает соответственно элементам побочной диагонали 25. D Что получите в результате выполнения следующей программы PROGRAM PR5; VAR P,Q:INTEGER; BEGIN READ(P,Q,P); WRITELN(‘P+Q=’,P+Q,’P=’,P); END) За первоначальное значение 16,17,26 А) 43 16 В) 33 16 С) P+Q=33 P=17 D) P+Q=43 P=26 Е) P+Q=43 P=16 26. B Как определяются формальные параметры процедуры А) переменные объявленные в части программы В) введенные в тело процедуры идентификаторы С) процедура в части объявления операторов D) в конце программы Е) постоянные в части программы 27. E Что делает процедура SetBkColor А) Устанавливает цвет выводимых линий В) Устанавливает разные цвета для фона и текста С) Устанавливает цвет выводимого текста D) Устанавливает одинаковый цвет выводимых линий Е) Устанавливает цвет фона 28. E Что будет напечатано следующим фрагментом программы? Var x,y:^integer; begin new(y); y^:=5; y^:=2*y^+sqr(y^) x:=y; write(x^+10); Dispose (x); End; А) 0 В) y^+10 С) x^+10 D) 37 Е) 25 29. B Что выполняет следующий фрагмент программы Type t=array [1..n] of integer; Var b:^t; begin new(b); read (b^[1]); k:=b^[1]; for i:=2 to n do begin read(b^[i]); if b^[i]>k then k:=b^[i]; end; writeln(k); end. А) Печатает адрес b^[k] В) Печатает наибольшее из чисел b1,b2…,bn С) Печатает наименьшее из чисел b1,b2…,bn D) печатает число b[k], номер которого равен минимальному из чисел b1,b2…,bn Е) печатает число b[k], номер которого равен максимальному из чисел b1,b2…,bn Вариант 1208 14 Вариант 1208 26 30. B Укажите правильный фрагмент программы. Даны натуральное число n. Целые числа a1,a2,…,an. Выяснить, имеются ли среди чисел a1,a2,…,an совпадающие. А) 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. В) 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 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 writeln (‘есть совпадающие’); goto M; end; writeln(‘нет совпадающих’); 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 writeln (‘есть совпадающие’); goto M; end; writeln(‘нет совпадающих’); M: End. Е) label M; Type t=array [1..n] of integer; 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 writeln (‘есть совпадающие’); goto M; end; writeln(‘нет совпадающих’); M: End. Вариант 5217 Технология программирования (TPascal) Вариант 1208 14 Вариант 1208 27 1 B. В блок-схеме ромб означает: А) блок ввода/вывода В) блок условии С) блок вычисления D) блок начало/конец Е) блок вычитание 2.B Что будет напечатано программой PROGRAM VV(INPUT,OUTPUT); VAR X,Y:INTEGER; BEGIN READ(X,Y,X); WRITELN(X,Y,X); END; Если для ввода заданы числа 12,13,14 А)12 13 13 В)12 13 12 С)12 13 14 D)14 13 13 Е)14 13 14 3 B. Что вычисляет приведенный ниже программный фрагмент P:=1; i:=2; Repeat P:=p*i; I:=i+1; Until i>N; А) Производную В) Факториал С) Интеграл D) Произведение Е) Сумму 4 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); А) 1,3,4 В) 1,2,4 С) 1,4 D) 1,2 Е) 2,4 5A В конце подпрограммы обязательно пишется оператор: А) end В) stop С) goto D) return Е) Repeat-until 6A С помощью оператора CLOSEGRAPH можно… А) перейти в текстовый режим В) начертить окружность С) перейти в графический режим экрана D) начертить многогранник Е) начертить круг 7 B. Укажите операцию над множествами, результатом которой является множество элементов первою множества, не принадлежащих второму множеству Вариант 1208 14 Вариант 1208 28 А) IN В) Разность С) Объединение D) Включение Е) Пересечение 8.B Процедура new(p) А) Освобождает динамическую память В) Выделяет память под динмаическую переменную. С) Выделяет место в памяти D) Уничтожает динамическую переменную Е) Уничтожает динамическую переменную,на которую указывает указатель p. 10. E Какую задачу решает следующий алгоритм: 1) поставить ножку циркуля в точку А; 2) установить раствор циркуля равным длине отрезка АВ; 3) провести окружность 4) поставить ножку циркуля в точку В; 5) провести окружность; 6) через точки пересечения окружностей провести прямую; 7) отметить точку пересечения этой прямой с отрезками АВ. А) Проводит две окружности В) Строит перпендикулярную прямую через середину отрезка С) Находит длину отрезка. D) Находит точку пересечения окружностей Е) Находит середину отрезка АВ. 11. A Значение переиенных логического типа равны а:=true и b:=false. Чему равно а or b? А) true В) зависит от реализации компилятора С) не определено D) зависит от времени выполнения Е) false 13.B Укажите правильное описание функции tgx А) Atan(x) В) Sin(x)/Cos(x) С) TAN(X) D) Artan(x) Е) TGx 14 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:=I; END ELSE IF A[I]>MAX THEN BEGIN MAX:=A[I]; M:=I; END; C:=A[L]; A[L]:=A[M]; A[M]:=C; FOR I:=1 TO N DO WRITE (A[I]:3); END; Вариант 1208 14 Вариант 1208 29 А) 15 6 25 7 12 13 3 11 9 4 В) 15 6 3 7 12 13 2 11 25 4 С) 15 6 12 7 3 13 25 9 2 4 D) 15 6 3 4 13 25 9 2 7 12 Е) 15 6 3 7 2 13 25 9 12 4 15 D Для заданного одномерного массива А=(-3,2,5,-1,0,3) укажите правильный ответ результата исполнения программы BEGIN 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 В) -3,4,10,-1,0,9 С) -3,4,5,-1,6 D) -3,4,5,-1,0,9 Е) -6,2,10,-1,0,6 16 C. Выбрать правильный вариант описания функции для определения длины стороны А) FUNCTION DLINA (X1,X2,Y1,Y2:REAL):REAL; BEGIN DLIN:=SQRT(SQR(X1-X2)+SQR(Y1-Y2)); END; В) FUNCTION DLIN (X1,X2,Y1,Y2:REAL):INTEGER; BEGIN DLIN:=SQRT(SQR(X1-X2)+SQR(Y1-Y2)); END; С) FUNCTION DLIN (X1,X2,Y1,Y2:REAL):REAL; BEGIN DLIN:=SQRT(SQR(X1-X2)+SQR(Y1-Y2)); END; D) FUNCTION DLIN (X1,X2,Y1,Y2:REAL):REAL; BEGIN DLIN:=SQR(SQR(X1-X2)+SQR(Y1-Y2)); END; Е) FUNCTION DLIN (X1,X2,Y1,Y2:REAL); BEGIN DLIN:=SQRT(SQR(X1-X2)+SQR(Y1-Y2)); END; 17 E Укажите правильный вариант ответа для решения следующей задачи: напишите программу,которая вычерчивает на экране закрашенный прямоугольник,координаты левого верхнего угла которого (50,40), а праваго нижнего –(250,120) А) Rectangle(50, 40, 250, 120) В) Bar(40, 50, 250, 120) С) Bar(50, 40, 120, 250) D) Bar(50, 120, 40, 250) Е) Bar(50, 40, 250, 120) 18 С. Выбрать правильный вариант вывода сведений о книгах по программированию, поступивших в библиотеку позже 1995 года А) FOR I:=1 TO N DO WITH MASSVED DO IF(‘программир’=NAZ) AND (GOD>1995) WRITELN (AUTOR,NAZ); В) FOR I:=1 TO N DO WITH MASSVED [I] DO IF POS(‘программир’,NAZ)<>0 AND (GOD>1995) WRITELN (AUTOR,NAZ); С) FOR I:=1 TO N DO Вариант 1208 14 Вариант 1208 WITH MASSVED [I] DO IF(POS(‘программир’,NAZ)<>0) AND (GOD>1995) WRITELN (AUTOR,NAZ); D) FOR I:=1 TO N DO WITH MASSVED DO IF (POS(‘программир’,NAZ)<>0) AND (GOD>1995) WRITELN (AUTOR,NAZ); Е) FOR I:=1 TO N DO WITH MASSVED DO IF(NAZ=‘программир’) AND (GOD>1995) WRITELN (AUTOR,NAZ); 21 В. Что выполняет следующий фрагмент программы? var f:file of integer; n, I, a, s:integer; Begin Assign(f,’f.txt’); Reset(f); I:=1; n:=filesize(f); s:=0; While (i<n) do Begin Seek(f,i); Read(f,i); S:=s+a; inc(I,2); End; А) Вычисляет сумму чисел файла В) Вычисляет сумму чисел файла с нечетными номерами С) Вычисляет сумму чисел файла с четными номерами D) Вычисляет сумму нечетных чисел Е) Вычисляет сумму четных чисел 22 С. Что выполняет следующий фрагмент программы? var f:file of integer; n, I, a, s: integer; Begin Assign(f,’f.txt’); Reset(f); I:=0; n:=filesize(f); s:=0; While (i<n) do Begin Seek(f,i); Read(f,i); S:=s+a; inc(I,2); End; А) Вычисляет сумму чисел файла В) Вычисляет сумму чисел файла с нечетными номерами С) Вычисляет сумму чисел файла с четными номерами D) Вычисляет сумму нечетных чисел Е) Вычисляет сумму четных чисел 23 E Укажите правильный результат :var s : string; ml,k,k1:integer; Begin k1:=0; k:=0; s:=‘bcbccckk’; For mI:=1 to 8 do begin if s[mI]=’c’ then k:=k+1; if s[mI]=’b’ then k1:k1+1; end; writeln (k,’‘,k1); end. А) 1 и 3 В) 2 и 2 С) 2 и 4 D) 10 и 8 Е) 4 и 2 30 Вариант 1208 14 Вариант 1208 31 24 С. Дана матрица A[10,10]. Построить массив [10] по следующему правилу: элементы B[1]-сумма элементов 1-ой строки, B[2]- сумма элементов 2-ой строки. А) FOR I:=1 TO 10 DO BEGIN FOR J:=1 TO 10 DO BEGIN B[I]:=b[I]+A[I,J]; END; WRITELN(B[I]); END; В) FOR I:=1 TO 10 DO BEGIN FOR J:=1 TO 10 DO BEGIN B[I]:=b[I]+A[I,J]; END; END; WRITELN(B[I]); С) FOR I:=1 TO 10 DO BEGIN FOR J:=1 TO 10 DO BEGIN B[I]:=b[I]+A[I,J]; WRITELN(B[I]); END; END; D) FOR I:=1 TO 10 DO BEGIN FOR J:=1 TO 10 DO BEGIN B[I]:=b[I]+A[I,J]; END; WRITELN(B[I]); END; Е) FOR I:=1 TO 10 DO BEGIN FOR J:=1 TO 10 DO BEGIN B[I]:=b[I]+A[I,J]; WRITELN(B[I]); END; 25 С. Как определяются формальные параметры процедуры А) процедура в части объявления операторов В) переменные объявленные в части программы С) введенные в тело процедуры идентификаторы D) в конце программы Е) постоянные в части программы 26 Е. Укажите результат исполнения фрагмента программы 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,d) End. А) 0.5 100 0 В) a b d С) 2 103 0 D) 2 0 0 Е) неизвестный идентификатор 27. A Что делает процедура SetBkColor: А)Устанавливает цвет фона В)Устанавливает одинаковый цвет для фона и текста С) Устанавливает разные цвет для фона и текста D) Устанавливает цвет выводимых линий Е) Устанавливает цвет выводимого текста Вариант 1208 14 Вариант 1208 32 28 С. Что будет выдано на печать в результате выполнения следующих операторов ? Var x:^Boolean; y:^Boolean; Begin New(x); x^:=true; y:=not x^; Dispose (x); Writeln(y); End. А) y В) true С) false D) 0 Е) not x^; Вариант 5217 Технология программирования (TPascal) 1. B Что будет напечатано программой PROGRAM VV(INPUT,OUTPUT); VAR X,Y:INTEGER; BEGIN READ(X,Y,X); WRITELN(X,Y,X); END; Если для ввода заданы числа 12,13,14 А)12 13 13 В)12 13 12 С)12 13 14 D)14 13 13 Е)14 13 14 5 А. В конце подпрограммы обязательно пишется оператор: А) end В) stop С) goto D) return Е) Repeat-until 6. A С помощью оператора CLOSEGRAPH можно… А) перейти в текстовый режим В) начертить окружность С) перейти в графический режим экрана D) начертить многогранник Е) начертить круг 8.B Процедура new(p) А) Освобождает динамическую память В) Выделяет память под динмаическую переменную. С) Выделяет место в памяти D) Уничтожает динамическую переменную Е) Уничтожает динамическую переменную,на которую указывает указатель p. 11. A Значение переиенных логического типа равны а:=true и b:=false. Чему равно а or b? А) true В) зависит от реализации компилятора С) не определено D) зависит от времени выполнения Е) false Вариант 1208 14 Вариант 1208 33 (1208)Блок 3 - Технология программирования (TPascal) 1. С В блок-схеме для обозначения блока условии используется: А) эллипс В) параллелограмм C) ромб D) круг Е) прямоугольник / 2.C Правильное описание переменных а,b, и с символьного типа имеет вид: A) a,b,c;char B) a.b.c:char C) a,b,c:char D) a;b;c:char E) a-b-c:char 3 D.Оператор перехода начинается с ключевого слова: A) enter B) return C) stop D) goto Е) go to 4 E.Оператор ввода компонентов массива: A)FOR -TO-DO B) GOTO C) IF - THEN - ELSE D)LABEL E) READ 5 B.Выберите правильный вариант заголовка процедуры для ввода масссива A)PROCEDURE (R:ARRAY[1..N]) B)PROCEDURE (VAR R.MATRIX) C)PROCEDURE (R:MATRIX) D)PROCEDURE (R:ARRAY (1..N) OF INTEGER) E)PROCEDURE (R:ARRAY [1..N] OF REAL) 6 E.Найдите строку в результате которого получится прямоугольник A) circle (100; 150),50 B) circle(100;150) C) circle (100;150;50 D)line(l,15)-(100,150),B E) line(l,15;100;150) 7 B.Укажите операцию над множествами, результатом которой является множество элементов первою множества, не принадлежащих второму множеству A)IN В) Разность С) Объединение D)Пересечение Е) Включение 8 A.Какие переменные называются динамическими? A) Переменные, которые создаются и уничтожаются в процессе выполнения программы. B)Динамические переменные - это статические переменные. C)Переменные, которые размещены в памяти компьютера D)Переменные, которым присваиваются различные значения в процессе работы программы. E) Динамические переменные - это указатели. 9 A.Значениями указателей являются A) адреса переменных B) указатели С) переменные D) адреса указателей E) массивы 10 E.Какую задачу решает следующий алгоритм: 1) поставить ножку циркуля в точку А; 2) установить раствор циркуля равным длине отрезка АВ; 3) провести окружность; 4) поставить ножку циркуля в точку В; 5) провести окружность; 6) через точки пересечения окружностей провести прямую; 7) отметить точку пересечения этой прямой с отрезком АВ. А) Находит длину отрезка. Вариант 1208 14 Вариант 1208 B) Строит перпендикулярную прямую через середину отрезка C)Находит точку пересечения двух окружностей D)Проводит две окружности E) Находит середину отрезка АВ. 11 A.Чему равно значение выражения 10 div 3: A) 3 B)2 С) 1 D)5 Е) 10 12 D. Найдите правильную форму записи в Turbo Pascal для Exp ( x ) Ln ( y ) Tan( z ) A) Exp ( x ) Ln ( y ) Tan( z ) B) Exp(x)*Ln(y)*Tan(z) C) Нельзя записать D) Ехр(х)/ Ln(у) * Sin(z) I Cos(z) E) Ехр(х)/Ln(y) * Tan(z) 13 B .Выражение sin(a+b+c) в Паскале записывается следующим образом: A) sin{a+b+c} B) sin(a+b+c) C)sin[a+b+c] D)sh(a+b+c) E) sin[a+b+c} 14 A.Укажите результат исполнения фрагмента программы var n,cod : integer; begin s:='2525'; val (s,n,cod); writeln('n=',n,'cod=',cod); s:='25.25'; val (s,n,cod); writeln(' n=' ,n, 'cod=',cod); s:='abcd'; val (s,n,cod); writeln('n=,,n,'cod=',cod); A) n=2525 cod=0 n=0 cod=3 n=0 cod=l B)n=2525 cod=4 n=25.25 cod=0 n=0 cod=l C)25.25 cod=0 n=4 cod=4 D)n=’2525’ cod=0 n=0 cod=2 n=0 cod=0 E) n=32.45 cod=0 n=0 cod=3 n=0 cod=1 34 Вариант 1208 20 Вариант 1208 15 C.Что вычисляет следующая программа program pr; var a: array[1..10] of integer; s,i: integer; begin for i:=l to 10 do read(A[i]); s:=l; for i:=l to 10 do if A[i] mod 2=1 then s:=s*A[i]; writeln('s=',s); end. A) сумму нечетных элементов массива А[10] B) произведение четных элементов массива А[10] C) произведение нечетных элементов массива А[10] D) сумму четных элементов массива А[10] E) произведение и сумму четных элементов массива А[10] 16 D.Выбрать правильный вариант описания функции для определения длины стороны A) FUNCTION DLINA (X1,X2,Y1,Y2:REAL): REAL; BEGIN DLIN:=SQRT(SQR(X 1 -X2)+SQR(Y 1-Y2)); END; B) FUNCTION DLIN (X1,X2,Y1,Y2:REAL); BEGIN DLIN:=SQRT(SQR(X 1 -X2)+SQR(Y 1-Y2)); END; C) FUNCTION DLIN (X1,X2,Y1,Y2:REAL): REAL; BEGIN DLIN:=SQR(SQR(X1-X2)+SQR(Y1-Y2)); END; D) FUNCTION DLIN (X1,X2,Y1,Y2:REAL): REAL; BEGIN DLIN:=SQRT(SQR(X 1 -X2)+SQR( Y1-Y2)); END; E) FUNCTION DLIN (X1,X2,Y1,Y2:REAL): INTEGER; BEGIN DLIN:=SQRT(SQR(X1-X2)+SQR(Y1-Y2)); END; 17 C.Укажите правильный вариант ответа для решения следующей задачи: напишите программу, которая вычерчивает на экране закрашенный прямоугольник, координаты левого верхнего угла которого (50, 40), а правого нижнего - (250, 120). A) Ваr (40, 50, 250, 120) B) Ваr (50, 120,40, 250) ' С) Ваr (50, 40, 250, 120) D) Rectangle (50, 40, 250, 120) Е) Ваr (50, 40, 120, 250) 18 B.Выбрать правильный вариант вывода сведений о книгах по программированию, поступивших в библиотеку позже 1995 года A) FOR I:=l TO N DO WITH MASSVED [I] DO IF POS(‘программир’, NAZ)<>0 AND (GOD > 1995) WRITELN (AUTOR, NAZ); B) FOR I:=l TO N DO WITH MASSVED [I] DO IF (POS(‘программир’, NAZ)<>0) AND (GOD > 1995) WRITELN (AUTOR, NAZ); C)FOR I:=l TO N DO WITH MASSVED DO IF (POS(‘программир ‘, NAZ)<>0) AND (GOD > 1995) WRITELN (AUTOR, NAZ); D)FOR I:=l TO N DO WITH MASSVED DO IF (‘программир’=NAZ) AND (GOD > 1995) WRITELN (AUTOR, NAZ); E)FOR I:=l TO N DO WITH MASSVED DO IF (NAZ=’ программир) AND (GOD > 1995) WRITELN (AUTOR, NAZ); 35 Вариант 1208 20 19 A.Чему равно значение выражения 2*р^ + sqrt(p^), если по адресу, которую указывает указатель р размещено число 9. A) 21 B) 2*p^ + sqrt(p^) С) Выражение записано неверно. D) 9. Е) 99. 20 A. Что будет напечатано следующим фрагментом программы? Var х,у : ^ integer; begin new(y); у ^:=5; у^:=2*у^ + sqr(y^); х:=у; write(x^+10); Dispose(x); End; A)45 B) x^+10 C) 35 D)y+10 E) 15 21 C.Что выполняет следующий фрагмент программы? var f:file of integer; n,a,b:integer; Begin Assign(f,'f.txt'); Reset(f); n:=filesize(f); seek(f,n-l); read(f,a); b:=a; read(f,a); writeln(b-a); end, A)Указатель устанавливает на конец файла B)Печатает ноль C)Находит разность последней и первой компоненты файла D)Находит разность b-а E) Находит разность первой и последней компоненты файла 22 A.Что выполняет следующий фрагмент программы? var f:file of integer; n,I,a,s:integer; Begin Assign(f,'f.txt'); Reset(f); I:=l; n:=filesize(f); s:=0; While (i<n) do Begin Seek(f,i); Read(f,a); S:=s+a; inc(I,2); End; A) Вычисляет сумму чисел файла с нечетными номерами B) Вычисляет сумму чисел файла с четными номерами С) Вычисляет сумму чисел файла D) Вычисляет сумму нечетных чисел E) Вычисляет сумму четных чисел 23 D.Каковы значения X и У после выполнения: х:=15 div (8 mod 3); у:=17 mod х*5-19 mod 6*2; А) х=1;у-7 В) х=12; у=7 C) х=5 D) х=7;у=13 Е) х=7; у=4 24 B.В предложении найти самое короткое слово. Слова разделены пробелами. Укажите правильный фрагмент программы A) Var s:string; c,d:string[20];k,i,max:integer; k :=1; max :=0; i:=l; while s[i] <> '.' do if s[i]=' ' then begin c:=copy(s,k,i-k); Вариант 1208 36 Вариант 1208 20 1 :=length (c); if l>max then begin max:=l;d:=c;k:=i+l end; end; writeln(d); В) Var s:string; c,d:string[20];k,i,max:integer; k :=1; max :=0; i:=l; s:=s+' '; while i<=length(s) do if s[i]=' ' then begin c:=copy(s,k,i-k); l:=length (c); if 1<max then begin max:=l;d:=c;k:=i+l; inc(i) end; else begin k:=i+l; inc(i) end end; writeln(d); C)Vars:string; c,d:string[20];k,i,max:integer; k :=1; max:=0; i:=l; while s[i] <> '.' do if s[i]=' ' then begin c:=copy(s,k,i-k); l:=length (c); if l>max then begin max:=l;d:=c; end; end; writeln(d); D) Var s:string; c,d:string[20];k,i,max:integer; k :=1; max :=0; i:=l; while s[i] <> '.' do if s[i]= ' ' then begin c:=copy(s,k,k-i); l:=length (c); if l>max then begin max:=l;d:=c;k:=i+l end; else k:=i+l end; writeln(d); E) Var s:string; c,d:string[20];k,i,max:integer; k :=1; max :=0; i:=l; while s[i] <> '.' do if s[i]=' ' then begin c:=copy(s,k,i-k); 1 :=length (c); if l>max then max:=l;d:=c;k:=i+l else k:=i+l end; writeln(d); 25 E.Укажите результат исполнения программы 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) 2 0 B) a b C) 0.5 103 D) 0.5 100 E) 103 26 E.Укажите результат исполнения фрагмента программы var a, b: real; procedure pr; var d: integer; Вариант 1208 37 Вариант 1208 20 Вариант 1208 Begin a:=2;d:=3;b:=b+d; End; Begin a:=0.5;b:=100; Pr; Writeln(a,b,d) End. A) a b d B) 0.5 100 0 C) 2 0 0 D) 2 103 0 E) неизвестный идентификатор 28 B.Что будет напечатано следующим фрагментом программы? Var х,у : ^ integer; begin new(y); у ^:=3; у^:=2*у^ + sqr(y^); х:=у; write(x^+ 10); Dispose(x); End; А) 0 B) 25 С) у^+10 D) х^+10 Е) 37 29 E.Что выполняет следующий фрагмент программы? Type t=array [ 1. .n] of integer; Var b: At; begin new(b); read(bA[l]); k:=bA[l]; for i:=2 to n do begin read(bA[i]); if bA[i] > k then k:=bA[i] end; writeln(k); end. A)Печатает адрес числа bA[k] B) Печатает наименьшее из чисел Ы,Ь2,...,Ьп C) Печатает число b[k], номер которого равен минимальному из чисел Ы,Ь2,...,Ьп D)Печатает число b[k], номер которого равен максимачьному из чисел Ы,Ь2,...,Ьп (Е^Печатает наибольшее из чисел Ы ,Ь2,.. .,bn 30 B. Укажите правильный фрагмент программы. Даны натуральное число n. Целые числа al, а2,..., а n . Выяснить, имеются ли среди чисел al, а2,..., а n совпадающие. A) Type t=array [1..n] of integer; Var а: ^ t; i,j:integer; begin new(a); for i:=l to n do read(a^[i]); for i:=l to n-1 do for j:=i+l to n do if (a^[j]=a^[i]) then begin writeln('есть совпадающие');goto M; end; writeln('нет совпадающих'); M: End. B) label M; Type t=array [l..n] of integer; Var a: ^ t; i,j:integer; begin new(a); for i:=l to n do read(a^[i]); for i:=l to n-1 do for j:=i+l to n do if (a^[j]=a^[i]) then begin writeln('есть совпадающие');gото M; end; writeln('нет совпадающих'); M: End. C) Type t=array [1..n] of integer; Var a: ^ t; i,j:integer; begin new(a); for i:=l to n do read(a^[i]); for i:=l to n-1 do 38 Вариант 1208 20 for j:=i+l to n do if (a^[j]=a^[i]) then begin writeln('есть совпадающие'); writeln('нет совпадающих'); End. Вариант 1208 39 D) label M; Type t=array [l..n] of integer; Var a: t; i,j:integer; begin new(b); for i:=l to n do read(a^[i]); for i:=l to n-1 do for j:=i+l to n do if (a^[j]=a^[i]) then begin writeln('есть совпадающие');goto M; end; writeln('нет совпадающих'); M: End. E) label M; Type t=array [1..n] of integer; Var a: ^ t ; i,j:integer; begin for i:=l to n do read(a^[i]); for i:=l to n-1 do for j:=i+l to n do i f (a^[j]=a^[i])then begin w riteln('есть совпадающие');goto M; end; writeln('нет совпадающих'); M: End. Вариант 5541 Блок 3 – Технология программирования 1. A В блок схеме для обозначения блока ввода/вывода используется: А) параллелограмм В) прямоугольник С) эллипс D) круг Е) ромб 2. C Выберите правильную запись выражения 5√e3x+5. А) sqr(exp(3*x+5))*sqr(exp(3*x+5))*exp(3*x+5) В) sqr(exp(3*x+5)) С) exp(1/5*ln(exp(3*x+5))) D) exp(3*x+5)*sqr(exp(3*x+5)) Е) exp(3*x+5) 3. B Выберите правильный вариант вычисления функции 4 3 √x +sinx+lni, если -1<x<=3 y= x5-e2x, если 3<x<=7 А) IF x>-1 AND x<=3 then y:=EXP(1/4*LN(sqr(x)*x+sin(x)))+ln(x) ELSE y:= EXP(5*LN(x))-EXP(2*x); В) IF (x>-1) AND (x<=3) then y:=EXP(1/4*LN(sqr(x)*x+sin(x)))+ln(x) ELSE if (x>3) and (x<=7) then y:=EXP (5*LN(X))-exp(2*x) else writeln (‘функция не определена”); С) IF (x>-1) AND (x<=3) then y:=EXP(1/4*LN(sqr(x)*x+sin(x)))+ln(x) ELSE y:= EXP(5*LN(x))-EXP(2*x); D) IF (x>-1) or (x<=3) then y:=EXP(1/4*LN(sqr(x)*x+sin(x)))+ln(x) ELSE y:= EXP(5*LN(x))-EXP(2*x); Е) IF (x>-1) or (x<=3) then y:=sqrt(1/4*LN(sqr(x)*x+sin(x)))+ln(x) ELSE y:= EXP(5*LN(x))-EXP(2*x); 4. E Выберите правильный вариант определения четности элементамассива А[10] А) IF ODD(I) THEN … В) IF ODD(A[I]) THEN … С) IF A[I+1] mod 2=0 then … D) IF I mod 2=0 then … Е) IF A[I] mod 2=0 then … 5. B Укажите процедуру ввода двумерного массива А) procedure inpmas(x:mas); Begin For i:=1 to n do For j:=1 to n do Read(x[I,j]; End; В) procedure inpmas(var x:mas); Begin For i:=1 to n do For j:=1 to n do Read(x[I,j]; End; С) procedure inpmas(var x:mas); Begin For i:=1 to n do Read(x[I,j]; End; D) procedure (var x:mas); Begin For i:=1 to n do For j:=1 to n do Read(x[I,j]; End; Е) procedure inpmas(var x:mas); Begin For i:=1 to n do For j:=1 to n do Read(x[I]; End; 6. A Функция CLOSEGRAPH А) завершает работу адаптера в графическом режиме и восстанавливает текстовый режим работы экрана В) определяют текущие координаты указателя по горизонтали и вертикали С) определяют максимальные координаты экрана в текущем режиме работы по горизонтали и вертикали D) инициирует графический режим работы адаптера Е) определяет результат последнего обращения к графическим процедурам 7. A Укажите операцию над множествами результатом которой является множество общих элементов множеств А) пересечение В) разность С) объединение D) включение Е) IN 8. C Что хранится в стандартной переменной Heapptr? А) Конец динамической памяти В) Начало динамической памяти С) Текущая граница динамической памяти D) Адрес указателя Е) Содержимое указателя 9. A Переменные объявлены следующим образом: р1, р2:^integer; p3:^real; Сколько байт вернут в кучу операторы Dispose (p1); Dispose (p2); Dispose (p3); А) 10 В) 3 С) 8 D) 6 Е) 12 10. E Что называется системой команд исполнителя? А) Указание исполнителю В) Команды исполнителя С) Алгоритм исполнителя D) Совокупность команд, которые выполняются исполнителем по заданному алгоритму Е) Совокупность команд, которые могут быть выполнены исполнителем 11. A Логическое переменные имеют значения a:=true и b:=true. Чему равно значение a and b. А) true В) false С) не определено D) зависит от времени выполнения Е) зависит от реализации компилятора 12. C Если А=5, Write(‘B-C=’,A); Тогда что выйдет на экран: А) А=5 В) В=А+С С) В-С=5 D) В-С=А Е) A and B 13. E Что выйдет на экран программы: Begin A:=5; B:=19; C:=A+B; Write (C); End. А) 19 В) 5 С) 0 D) 15 Е) 24 14. D Укажите результат исполнения фрагмента программы Var N,cod:integer; Begin s:=’2525’; val (s,n,cod); writeln(‘n=’,n,’cod=’,cod); s:=’25.25’; val (s,n,cod); writeln(‘n=’,n,’cod=’,cod); s:=’abcd’; val (s,n,cod); writeln(‘n=’,n,’cod=’,cod); А) n=’2525’ cod=0 n=0 cod=2 n=0 cod=0 В) n=2525 cod=4 n=25.25 cod=0 n=0 cod=1 С) n=32.45 cod=0 n=0 cod=3 n=0 cod=1 D) n=2525 cod=0 n=0 cod=3 n=0 cod=1 Е) n=25.25 cod=0 n=4 cod=4 15. A Что вычисляет следующая программа Program pr; Var a:array[1..10] of integer; S,i:integer; Begin For i:= 1 to 10 do Read (A[i]); s:=1; for i:=1 to 10 do if A[i] mod 2=1 then s:=s*A[i]; writeln (‘s=’,s); end. А) произведение нечетных элементов массива A[10] В) произведение четных элементов массива A[10] С) сумму четных элеменотов массива A[10] D) сумму нечетных элементов массива A[10] Е) произведение и сумму четных элементов массива A[10] 16. D Что будет напечатано программой Program swap (INPUT,OUTPUT); Var A,B:INTEGER: PROCEDURE SW(VAR X,Y:INTEGER); VAR T:INTEGER; BEGIN T:=X; X:=Y; Y:=T; END; BEGIN A:=1; B:=2; SW(A,B); WRITE(A,B); END. А) 2 2 В) 1 2 С) 0 0 D) 2 1 Е) 1 1 17. B Чему равно значение ‘abc’>’ab’ А) true В) false С) ‘abcab’ D) ‘abc’ Е) ‘ab’ 18. B Требуется переменной К присвоить значение, соответствуещее кругу радиуса 2.5 с центром в точке (0, 1.8). Описание переменной К приводится ниже TYPE КРУГ=RECORD РАДИУС: REAL; ЦЕНТР: RECORD X,Y:REAL END END: VAR K:КРУГ; А) WITH K DO BEGIN РАДИУС:=2.5; X:=0; Y:=1.8 END; В) WITH K DO BEGIN РАДИУС:=2.5; ЦЕНТР.X:=0; Y:=1.8 END; С) WITH ЦЕНТР, K DO BEGIN РАДИУС:=2.5; X:=0; Y:=1.8 END; D) WITH K, ЦЕНТР DO BEGIN РАДИУС:=2.5; X:=0; Y:=1.8; Е) WITH K DO РАДИУС:=2.5; WITH ЦЕНТР DO BEGIN X:=0; Y:=1.8 END; 19. E Что будет напечатано следующим фрагментом программы? Var x,y:^integer; begin new(y); y^:=5; y^:=2*y^+sqr(y^) x:=y; write(x^+10); Dispose (x); End; А) x^+10 В) y+10 С) 15 D) 35 Е) 45 20. C Процедура close при работе с файлом позволяет: А) перезаписать файл В) присвоить имя файловой переменной С) закрыть файл D) не применяется Е) стереть файл 21. D Покажите оператор цикла А) case В) read С) goto D) Repeat until Е) whil .. do 22. E Описание массивов А) String В) Record С) Var D) While Е) Array 23. D Укажите функцию вычисления количества нечетных положительных элементов в четных столбцах массива. А) function kol(x):integer; Var s:integer; For j:=1 to n do If j mod 2=0 Then For i:=1 to n do If (x[I,j]>0) and (x[I,j] mod 2<>2) then s:=s+1; Kol:=s; End; В) function kol(x:mas) Var s:integer; For j:=1 to n do If j mod 2=0 Then For i:=1 to n do If (x[I,j]>0) and (x[I,j] mod 2<>2) then s:=s+1; Kol:=s; End; С) function kol(x:mas):integer; Var s:integer; For j:=1 to n do If j mod 2=0 Then For i:=1 to n do If (x[I,j]>0) then s:=s+1; Kol:=s; End; D) function kol(x:mas):integer; Var s:integer; For j:=1 to n do If j mod 2=0 Then For i:=1 to n do If (x[I,j]>0) and (x[I,j] mod 2<>2) then s:=s+1; Kol:=s; End; Е) function kol(x:mas):integer; Var s:integer; For j:=1 to n do For i:=1 to n do If (x[I,j]>0) and (x[I,j] mod 2<>2) then s:=s+1; Kol:=s; End; 24. E Укажите функцию вычисления количества нечетных положительных элементов в нечетных столбцах массива. А) function kol(x):integer; Var s:integer; For j:=1 to n do If j mod 2<>0 Then For i:=1 to n do If (x[I,j]>0) and (x[I,j] mod 2<>2) then s:=s+1; Kol:=s; End; В) function kol(x:mas) Var s:integer; For j:=1 to n do If j mod 2<>0 Then For i:=1 to n do If (x[I,j]>0) and (x[I,j] mod 2<>2) then s:=s+1; Kol:=s; End; С) function kol(x:mas):integer; Var s:integer; For j:=1 to n do If j mod 2<>0 Then For i:=1 to n do If (x[I,j]>0) then s:=s+1; Kol:=s; End; D) function kol(x:mas):integer; Var s:integer; For j:=1 to n do If j mod 2=0 Then For i:=1 to n do If (x[I,j]>0) and (x[I,j] mod 2<>2) then s:=s+1; Kol:=s; End; Е) function kol(x:mas):integer; Var s:integer; For j:=1 to n do If j mod 2<>0 Then For i:=1 to n do If (x[I,j]>0) and (x[I,j] mod 2<>2) then s:=s+1; Kol:=s; End; 25. D Укажите результат 20 mod 7+5 div 4*2 А) 0 В) 11 С) 2 D) 8 Е) 33 26. E Что выполняет следующий фрагмент программы? Type t=array [1..n] of integer; Var B:^t; Begin new(b); read (b^[1]); k:=b^[1]; for i:=2 to n do begin read(b^[i]); if b^[i]<k then k:=b^[i] end; writeln(b^[k]); end. А) Печатает наименьшее из чисел b1,b2…,bn В) Печатает адрес b^[k] С) Печатает наибольшее из чисел b1,b2…,bn D) печатает число b[k], номер которого равен минимальному из чисел b1,b2…,bn Е) печатает число b[k], номер которого равен максимальному из чисел b1,b2…,bn 27. E Укажите правильный фрагмент программы. Даны натуральное число n. Целые числа a1,a2,…,an. Выяснить, имеются ли среди чисел a1,a2,…,an совпадающие. А) 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 writeln (‘есть совпадающие’); goto M; end; writeln(‘нет совпадающих’); M: End. В) label M; Type t=array [1..n] of integer; 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 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. 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 writeln (‘есть совпадающие’); goto M; end; writeln(‘нет совпадающих’); M: End. Е) 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. (1209)Блок 3 - Технология программирования (TPascal) 1. B В блок-схеме для обазначения блока вычислении используется: А) параллелограмм В)прямоугольник С)эллипс D)круг Е) ромб 2. A Описание процедуры начинается с ключевого слова: A)procedure B)function C)program D)begin E)subprogram 3. E Оператор варианта содержит ключевое слово: A)variant B)choice С)seek D)option E)case 4. B Оператор Объявления массивов: A) FOR -TO-DO В) ARRAY C)TYPE D)IF - THEN - ELSE E)GOTO 5. A Выбрать правильный вариант описания функции для вычисления факториала A) FUNCTION FACT (k:INTEGER): INTEGER; VAR I,P: INTEGER; BEGIN P:=l; FOR I:=2 TO k DO P:=P*I; FACT:=P END; C) FUNCTION FACT (k:REAL): REAL; VAR I,Р:NTEGER; BEGIN P:=l; FOR I:=2 TO k DO; P:=P*I; FACT:=P END; D) FUNCTION FACT (k:INTEGER): REAL; VAR I,P: INTEGER; BEGIN P:=l; FOR I:=2 TO к DO; P:=P*I; FACT:=P END; E) FUNCTION FACT (k:INTEGER): INTEGER; VAR I,P:INTEGER; BEGIN P:=l; FOR I:=2 TO к DO; P:=P*I; END; F) FUNCTION FACT (k:INTEGER); VAR I,P:INTEGER; BEGIN P:=l; FOR I:=2 TO к DO; P:=P*I; FACT:=P END; 6. C С помощью оператора LINE можно начертить: A) прямоугольник B) окружность C) хорду D) шар Е) круг 7. D Укажите операцию над множествами результатом которой является множество общих элементов множеств A)разность B) IN С)объединение D)пересечение E)включение 8. E Чему равно значение выражения 5*р^ - sqr(p^), если по адресу, на которую указывает указатель р размещено число 3. А) 39 B)5*p^ + sqr(p^) C) Выражение записано неверно. D)-36 Е)6 9. A Значениями указателей являются A)адреса переменных B)массивы C)указатели D)адреса указателей E)переменные 10. C Как описывается символьный тип: A)real B)array(l .. n) of real С)char D)VAR A,B: integer E)array(l . . n) of string 11. A Чему равно значение выражения 12 div 5: А) 2 B) l С) 3 D) 4 Е) 5 12. C Отсечение дробной части числа в его десятичной записи дается функцией: A) pred В) succ C) trunc D) ord E) round 13. D Дано: х=2; у=3.7;. Чему равно значение выражения x+trunc(y) А)3 B) 2 C) 6 D)5 Е)4 14. B Что вычисляет следующая программа program рr; const n=10; var a: array[l..n] of integer; m,i: integer; begin for i:=l to n do read(A[i]); m:=A[l]; i:=l; while (A[i] <> 0) do begin if m>A[i] then m:=A[i]; inc(i); end; writeln('m=',m); end. A)максимальный элемент после 1 -го нулевого элемента массива А B)минимальный элемент до 1-го нулевого элемента массива А C)минимальный элемент после 1-го нулевого элемента массива А D)максимальный элемент до 1-го нулевого элемента массива А E)минимальный элемент массива А 15. C Если у массива A(N) есть элемент равный квадрату последнего элемента, то все элементы следующие за ним , возвести в квадрат, иначе вывести массив без изменения. Выберите правильный фрагмент программы A) for i:=l to n do if a[i]=sqr(a[n]) then begin for L:=i-l to n do a[L]:=sqr(a[L]); end; B) for i:=l to n do if a[i]=sqrt(a[n]) then begin for L:=i+l to n do a[L]:=sqrt(a[L]); end; C) for i:=l to n do if a[i]=sqr(a[n]) then begin for L:=i+l to n do a[L]:=sqr(a[L]); end; D) for i:=l to n do if a[i]=sqr(a[n]) then begin for L:=l to n do a[L]:=sqr(a[L]); end; E) for i:=l to n do if a[i]=sqr(a[n]) then begin fori:=i+l to n do a[L]:=sqr(a[L]); end; 16. A Что будет напечатано следующей программой PROGRAM CD; VAR c,d: INTEGER; PROCEDURE PZ (X,Y:ІNTEGER); BEGIN Y:=3*X+5; END; PROCEDURE PV (X:INTEGER; VAR Y:INTEGER); BEGIN Y:=3*X+5; END; BEGIN C:=4; D:=0; PZ(SQR(C)+C, D); WRITELN ('D=`,D); C:=4; D:=0; PV(SQR(C)+C, D); WRITELN ('D=`,D); END. A)D=0 D=65 B)D=0 D=0 C)D=16 D=18 D)D=65 D=65 E) D=20 D=20 17. A Нарисовать 10 горизонтальных линии. Выберите правильный фрагмент программы. А) k:=1; While k<= 10 do Begin Line(50,10+k* 10,400, 10+k*10); Ink(k); End; B) k:=l; While k<=10 do Begin Line(50,k* 10,400, 10+k*10); Ink(k); End; C) k:=l; While k<= 10 do Begin Line(50,10+k* 10,400, 10+k*10); End; D)k:=1; While k<= 10 do Begin Line(50,Y,400, Y); Ink(k); End; E)k:=l; While k< 10 do Begin Line(50,10+k*10,400, 10+k* 10); Ink(k); End; 18. C Выберите правильный фрагмент программы книгах Фаронова, изданных с 1990 года массиве записей) A) for i:=l to with mas[i] do if роs(‘Фаронов’, avtor) <> 0 and god_izd>1990 then writeln(nazv); B) for i:=l to n do if роs('Фаронов', avtor)=0 and god_izd>1990 then writeln(nazv); C) for i:=l to with mas[i] do if (роs(‘Фаронов’, avtor) <> 0) and (god_izd>1990) then writeln(nazv); D) for i:=l to n do if (роs('Фаронов', avtor)=0) or (god_izd>1990) then writeln(nazv); E) for i:=l to n do if (сору('Фаронов',avtor) <> 0) and (god_izd> 1990) then writeln(nazv); 19. A Что будет напечатано Var х,у : ^ integer; begin new(x); х ^:=15; у:=х; write(y^); writeln( х^ +10); Dispose(x); End; A) 15 25 B) y^ х^ +10 C) х 25 D) y^ 25 E) 15 х^+10 20. C Число 0,5*10 -5 записывается в Паскале следующим образом A) 0.5Е-5 B) 0,5Е-5 для (сведения следующим вывода о книгах сведений хранятся о в n do n do фрагментом программы? C) 0.5*10Л-5 D) 0,5*10л-5 E) 5Е-5 21. B Что выполняет следующий var F:file of integer; n,I,a,s:integer; Begin Assign(f,'f.txt'); Reset(f); I:=0; n:=filesize(f);s:=0; While (i<n) do Begin Seek(f,i); Read(f,a); S:=s+a; inc(I,2); End; A) Вычисляет сумму чисел файла с нечетными номерами B) Вычисляет сумму чисел файла с четными номерами C) Вычисляет сумму чисел файла D) Вычисляет сумму нечетных чисел файла E) Вычисляет сумму четных чисел файла 22. E Что выполняет следующий var f:file of char; i,n:integer; a:char; Begin Assign(f,'f.txt'); Reset(f); N:=filesize(f); For i:=n-l down to 0 do Begin Seek(f,i); Read(f,a); Write(a); End; End. A) Печатает последний символ файла B) Печатает символы файла C) Печатает первый символ файла D) Выдает значение равное а E) Печатает символьный файл в обратном порядке 23. C Каковы значения X и У после выполнения:х:=2*5 div 3 mod 2; у:=2*5 div(3 mod 2); х:=х*у; у:=у*у ; А) х=7; у=49 В)х=10; у=10 C) х=10; у=100 D)х=12; у=144 Е)х=11 24. C В тексте заменить все малые буквы одноименными большими буквами и записать новый текст в строку St. Укажите правильный фрагмент решения задачи A) for i :=1 to length (s) do If (ord(s[i])>=97) and ( ord (s[i)<=122) then St:=upcase (s[i]) Else St:=s[i]; Writeln(st); B) for i :=1 to length (s) do If (ord(s[i])>=97) or ( ord (s[i])<=122) then St:=St+delete (s[i]) Else St:=St+ s[i]; Writeln(st); C) for i :=1 to length (s) do If (ord(s[i])>=97) and ( ord (s[i)<=122) then St:=St+upcase (s[i]) Else St:=St+ s[i]; фрагмент программы? фрагмент программы? Writeln(St); D) for i :=1 to length (s) do If (ord(s[i])>=97) and ( ord (s[i)<=122) then St:=St+upcase (s[i]) Else St:=St; Writeln(St); E) for i :=1 to length (s) do If (ord(s[i])>=97) and ( ord (s[i)<=122) then St:=St+upcase (s[i]) Else St:=s[i ] + St; Writeln(St); 25. 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) A) 10 B) 0 C) 5 D) 2 E) 11 26. C Описание строковых переменных: A) Array B) integer С) String D) Record E) While 27. A Какая фигура может быть нарисована заданием следующей процедуры: Rectangle( 10,20,20,40) A) Прямоугольник B) Прямая C) Параллелепипед D) Квадрат E) Треугольник Вариант 1211 Вариант 12 1211 53. Схема 28. C Какой из фрагментов программы выполняет построение списка из N целых чисел. Типизированный указатель объявлен следующим образоm: Туре Тр=^ posl; Posl=record A: integer; Next:tp; End; Var p,g:tp;i:integer; A) p:=nil; for i:=l to n do begin read(g^. a); g ^ . next=p; p:=g; end; B) p:=nil; for i:=l to n do begin new(g); read(g^. a); g ^ . next=p; end; C) p:=nil; for i:=l to n do begin new(g); read(g^. a); g ^ . next=p; p:=g; end; D) p:=nil; for i:=l to n do read(g^. a); E) p:=nil; for i:=l to n do begin new(g); read(g. a); g . next=p; p:=g; end; 29. B Что будет выдано на операторов? P^:=D^; If P=D then P:=Nil Else if P^=D^ thenD:=P; If P=D then D^:=4; Writeln(P^); A) P^ B)4 C)0 D) NIL E)D печать в результате выполнения следующих 30. A Укажите правильный фрагмент программы. Даны натуральное число n. Целые числа a l , а2,..., а n . Выяснить, имеются ли среди чисел a l , а2,..., а n Вариант 1211 12 совпадающие. A) label М; Type t=array [l..n] of integer; Var a: ^ t; i,j:integer; begin new(a); for i:=l to n do read(a^[i]); for i:=l to n-1 do for j:=i+l to n do if (a^[j]=a^[i]) then begin writeln(‘есть совпадающие’);goto M; end; writeln(‘нет совпадающих’); M: End. B) label M; Type t=array [l..n] of integer; Var a: t; i,j:integer; begin new(b); for i:=l to n do read(a^[i]); for i:=l to n-1 do for j:=i+l to n do if (a^[j]=a^[i]) then begin writeln(‘есть совпадающие');goto M; end; writeln(‘нет совпадающих'); M: End. С) Type t=array [ 1.. n] of integer; Var а: ^ t; i,j:integer; begin new(a); for i:=l to n do read(a^[i]); for i:=l to n-1 do for j:=i+l to n do if(a^[j]=a^[i])then begin writeln(‘есть совпадающие'); writeln(‘нет совпадающих'); End. D) Type t=array [ 1 ..n] of integer; Var а: ^ t; i,j:integer; begin new(a); for i:=l to n do read(a^[i]); for i:=l to n-1 do forj:=i+l to n do if (a^[j]=a^[i]) then begin writeln(‘есть совпадающие');goto M; end; writeln(‘нет совпадающих'); M: End. Вариант 1211 54. Схема Вариант 1211 Вариант 12 E) label M; Type t=array [1 ..n] of integer; Var a: ^ t; i,j:integer; begin for i:=l to n do read(a^[i]); for i:=l to n-1 do for j:=i+l to n do if (a^[j]=a^[i]) then begin writeln(‘есть совпадающие');goto M; end; writeln(‘нет совпадающих'); M: End. 1211 55. Схема (1210)1 А В блок-схеме для обозначения блока ввода/вывода используется: A) параллелограмм B) прямоугольник C) эллипс D) круг Е) ромб 2 Е Описание функции начинается с ключевого слова: A) procedure B) subprogram C) begin D) program E) function 3А Стандартная процедура ключевого слова: A) write B) read C) assign D) close E) print 4D Выберите правильный А[10] A) IF ODD(I) THEN ... B) IF I mod 2=0 then ... C) IF ODD(A[I]) THEN … D) IF A[I] mod 2=0 then ... E) IF A[I+l]mod 2=0 then ... 5B вывода вариант результата определения на экран четности начинается элемента с массива Вариант 1211 Вариант 12 В конце подпрограммы обязательно пишется оператор: A) return B) end C) goto D) stop E) Repeat-until 1211 56. Схема 6B С помощью оператора CLOSEGRAPH можно ... А) перейти в графический режим экрана В) перейти в текстовый режим С) начертить многогранник D) начертить круг E) начертить окружность 7A Укажите операцию первое множество, множества A) объединения В) разность С) Включение D) IN E) Пересечение над множествами, результатом которой дополненное недостающими элементами из 8E Чему равно значение выражения 2*р^ которую указывает указатель р размещено число 2. А) 1 B) Выражение записано неверно. C) 2*р^ + sqr(p^)-5 D) 5 Е) 3 + sqr(p^)-5, 9C Переменные объявлены следующим образом: pl,p2 : ^ integer; рЗ: ^геа1; Сколько байт вернут в кучу операторы Dispose (p1); Dispose (р2); Dispose (рЗ); А) 3 B) 6 C) 10 D) 12 E) 8 10 E если по является второго адресу, на Вариант 1211 Вариант 12 Какую задачу решает следующий алгоритм? Даны два натуральных 1211 57. Схема числа. 1. Если числа равны, то взять любое из них в качестве ответа, в противном случае продолжить выполнение алгоритма. 2. Определить большее из чисел. 3. Заменить большее число разностью большего и меньшего чисел. 4. Начать алгоритм сначала. А) Наименьшее из двух чисел В) Два равных числа C) Наибольшее из двух чисел D) Находит общий делитель двух чисел. E) Находит наибольший общий делитель двух чисел. 11 C Чему равно значение выражения 7 div 2: А) 1 В) 2 C)3 D)7 Е)4 12 B Дано х=2;у=3.7;. Чему равно значение выражения x+round(y) A) 5 В) 6 С) 3 D) 2 Е) 4 13 C Дано х=-3;у=4.2;. Чему равно значение выражения abs(x)+round(y) А) 3 В) -3 С) 7 D) 4 Е) 2 14 A Что выполняет program рr; const n=50; var b: array[l..n] of integer; i,L,m: integer; begin for i:=l to n do read(B[i]); m:=B[l]; L:=l; for i:=2 to n do if B[i] > m then begin m:=B[i]; L:=i; следующая программа Вариант 1211 Вариант 12 End; 1211 58. Схема writeln('m=:',m,'L=',L); end. А) определяет в массиве B(50) максимальный элемент и его порядковый номер B) определяет в массиве В(50) минимальный элемент C) определяет в массиве В(50) максимальный элемент D) определяет в массиве В(50) минимальный элемент номер E) определяет в массиве В(50) максимальный и минимальный элементы 15 C Укажите результат исполнения фрагмента программы var n: integer; c,s:string; begin n:=pos('bc','abefabcdeabc'); writeln('n=',n); с :=copy(' abefabcdeabc ',5,3); writeln('c=',c); s:=' abcd '; insert ('123', s,4); writeln('s=',s); end; A) n=l1 C=' bcd'; S='ab123cd'; B) n=5 C= 'bcde' S='ab123cd'; С) n=6 C=,abc’; S=,abcl23d'; D) n=6 C=' abc'; S=,abl23cd'; E) n=5 S=' 123abcd'; 16 A Выберите правильный фрагмент описания процедуры для ввода массива А(10) A) procedure vv(var а : matrix); Var i: integer; Begin For i:=l to n do read (a[i]) End; B) procedure vv( var a : matrix); For i:=1 to n do read (a[i]) C) procedure vv(var a : matrix); Var i:=integer; и его порядковый Вариант 1211 Вариант 12 Begin For i:=l to n do read a[i] End; D) procedure vv(var a : matrix): matrix; For i:=l to n do read (a[i]) E) procedure vv(var a : matrix); Var i:real; Begin For i:=l to n do read (a[i]) End; 1211 59. Схема 17 A Нарисовать 10 вертикальных линии. Выберите правильный фрагмент программы. А)к:=0; While k<10 do Begin Line(50 +к*20,50, 50 +к*20,200); Ink(k); End; B)k:=0; While k<10do Begin Line(50 +20,50, 50 +k*20,200); Ink(k); End; C)k:=0; While Begin Line(50 +k*20,50, 50 +k*20,200); End; D)k:=0; While Begin Line(50 +k*20,50, 50 +k*20,200); Ink(k); End; E) While k<10 Begin Line(50 +k*20,50, 50 +20,200); Ink(k); End; 18 A Выберите правильный вариант фрагмента для вывода автомобилях определенной марки (сведения хранятся в массиве записей) A) readln for i with mas[i] do if mark=marka then writeln( fio,nom); B) readln for i :=1 to n do :=1 to k<10do k<=10do k:=0; do сведений n об (marka); do (marka); Вариант 1211 Вариант 12 if mark=marka then writeln(fio,nom); C) readln for i :=1 to n do if (mark=marka then write(fio,nom); D)readln for i := 1 to n do if mark=marka then writeln(fio); writeln(nom); E)for i := 1 to n do if mark=marka then writeln(fio,nom); (marka); 1211 60. Схема (marka); 20 Что будет напечатано следующим Var х,у : ^ integer; begin new(y); у ^:=5; у^:=2*у^ + sqr(y^); х:=у; write(x^+ 10); Dispose(x); End; A) 45 B) у +10 C) х^+10 фрагментом программы? D) 35 E) 15 23 E После выполнения фрагмента программы , чему будет равно число X х:=5; if х>=5 then х:=х*2 else if х<=10 then х:=-х; х:=х*5 А) х=10 B) х=5 C) х=8 D) х=-5 Е) х=50 24 C В заданном тексте везде заменить слово А1 D (в качестве разделителей слов употребляются пробелы) Укажите правильный фрагмент программы A) var C,D:string; i,K:intger; K:=1;D:="; For i:=l to length(S) do If S[i]=' 'then Begin C:=copy(S,k,k); If C=A1 then begin D:=D+A2+S[i]; k:=i +1 end Else begin D:=D+C+S[i1; k:=i +1 end End; B) var S,C,D:string; i,K:intger; K:=l; D:="; For i:=l to length(S) do If S[i]=' ' then на А2 и записать в строку Вариант 1211 12 Begin C:=copy(S,k,i-k); If C=A1 then D:=D+A2+S[i] Else D:=D+C+S[i]; End; C) var C,D:string; i,K:intger; K:=l; D:="; For i:=l to length(S) do If S[i]=' ' then Begin C:=copy(S,k,i-k); If C=A1 then begin D:=D+A2+S[i]; k:=i +1 end Else begin D:=D+C+S[i]; k:=i +1 end End; D) var C,D:string; i,K:intger; K:=1;D:="; For i:=l to length(S) do If S[i]= ‘ ‘ then Begin C:=copy(S,k,i-k); If C=A1 then begin D:=A2+S[i]; k:=i +1 end Else begin D:=C+S[i]: k:=i +1 end End; E) var C,D:string; i,K:intger; K:=1;D:="; For i:=l to length(S) do If S[i]=' ' then Begin C:=copy(S,k,i-k); If C=A1 then begin D:=D+A2+S[i]; k:=i +1 end End; 25 D Что получите в результате PROGRAM PR5; VAR P,Q:INTEGER; BEGIN READ (P,Q,P); WRITELN ('P+Q=’ P+Q, 'P =', P); END) За первоначальное значение 16,17, 26 A)43 16 B)P+Q=33 P=17 C)33 16 D) P+Q=43 P=26 E)P+Q=43 P=16 выполнения 26 A Как определяются формальные параметры процедуры А) введенные в тело процедуры идентификаторы В) процедура в части объявления операторов С) постоянные в части программы D) переменные объявленные в части программы Е) в конце программы Вариант 1211 61. Схема следующей программы. Вариант 1211 12 Вариант 28 A 1211 62. Схема Что будет выдано на печать в результате выполнения следующих операторов? Var х:^Вооlеаn; у:^Воо1еаn; Begin New(x); x^:=true; y:=not х^; Dispose (x); Writeln(y); End. A) false B) true C) y D) not х^; E) 0 30 A Укажите правильный фрагмент программы. Даны натуральное число n. Целые числа al, а2,..., а n . Выяснить, имеются ли среди чисел al, а2,..., а n совпадающие. A) label М; Type t=array [l..n] of integer; Var а: ^ t; i,j:integer; begin new(a); for i:=1 to n do read(a^[i]); for i:=l to n-1 do for j:=i+l to n do if (а^[j]=а^[1]) then begin writeln(‘ecть совпадающие');goto M; end; writeln('нет совпадающих'); M: End. B) Type t=array [l..n] of integer; Var а: ^ t; i,j:integer; begin new(a); for i:=l to n do read(a^[i]); for i:=l to n-1 do for j:=i+l to n do if (a^[j]=a^[i]) then begin writeln('ecть совпадающие');goto M; end; writeln('нет совпадающих'); M: End. C) label M; Type t=array [l..n] of integer; Var a: t; i,j:integer; begin new(b); for i:=l to n do read(a^[i]); for i:=l to n-1 do Вариант 1211 Вариант 12 for j:=i+l to n do if (a^ [j]=a^[i]) then begin writeln('ecть совпадающие');goto M; end; writeln('нет совпадающих'); M: End. Type t=array D) Var a: ^ t; i,j:integer; begin new(a); for i:=l to n do read(a^[i]); for i:=l to n-1 do for j:=i+l to n do if (a^[j]=a^[i]) then begin writeln('ecть совпадающие'); writeln('нет совпадающих'); End. E) label M; Type t=array [l..n] of integer; Var a: ^ t; i,j:integer; begin for i:=l to n do read(a^[i]); for i:=l to n-1 do for j:=i+l to n do if(a^[j]=a^[i])then begin w riteln('ecть совпадающие");goto M; end; writeln('нет совпадающих'); M: End. 1211 63. Схема [l..n] of integer; Вариант 5543 1. B В блог-схеме параллелограмм означаат: A. Блок начало/конец B. Блок ввода/вывода C. Блок условии D. Блок вычисления E. Блок вычитание 2. A Исходя из заданного обьявления переменных a,b и c, укажите, что будет содержаться в них после выполнения вычислений Var a,b,c:integer; Begin a:=5; b:=a*10 div 8; c:=a*b mod 4; writeln(‘a=’,a,’b=’,b,’c=’,c); end. A. a=5 b=6 c=2 B. a=8 b=6 c=2 C. a=5 b=8 c=3 Вариант 1211 12 Вариант D. a=11 b=6 c=2 1211 64. Схема E. a=5 b=12 c=3 3. D Выберите правильный вариант вычисления значения функции 𝑥𝑐𝑡𝑔𝑥 + 𝑐𝑜𝑠𝑥, если 0 < 𝑥 ≤ 1 y={ 𝑥 7 − 𝑒 3𝑥 , если 𝑥 > 1 A. If (x>0) or (x<=1) then y:=x*cos(x)/sin(x)+cos(x) Else y:=EXP(7*LN(x))-exp(3x); B. If (x>0) or (x<=1) then y:=x*ctg(x)+cos(x) Else y:=EXP(7*LN(x))-exp(3x); C. If (x>0) or (x<=1) then y:=x*cos(x)/sin(x)+cos(x) Else y:=EXP(7*LN(x))-exp(3x) else writeln (‘функция не определена’); D. If (x>0) or (x<=1) then y:=x*cos(x)/sin(x)+cos(x) Else if x>1 then y:= EXP(7*LN(x))-exp(3x) else writeln (‘функция не определена’); E. If (x>0) or (x<=1) then y:=x*cos(x)/sin(x)+cos(x) Else y:=EXP(7*LN(x))-LN(exp(3x)); 4. A Укажите вариант определения вхождения подстроки ST в строку ST1 A. POS(ST,ST1); B. COPY(ST1,ST1,3); C. INSERT(ST,ST1,6); D. LENGTH(ST1); E. STR(ST,ST1); 5. A Можно ли писать оператор END в конце подпрограммы A. Обязательно B. Нельзя C. Обязательно D. Без разницы E. В конце оператора 6. D Укажите правильный вариант ответа для решения следующей задачи: построить окружность радиуса 150, с координатами центра (120,100). A. Circle(150,120,100); B. Line(120,100,150); C. Circle(100,120,150); D. Circle(120,100,150); E. GetCircle(150,120,100); 7. C Укажите операцию над множествами, результатом которой является множество элементов первою множества, не принадлежащих второму множеству A. IN B. Объединение C. Разность D. Пересечение E. Включение 8. E Какие переменные называются динамическими? A. Переменные, которые размещены в памяти компьютера B. Динамические переменные-это статические переменные C. Динамические переменные-это указатели D. Переменные, которым присваиваются различные значения в процессе работы программы E. Переменные, которые создаются и уничтожаются в процессе выполнения программы Вариант 1211 12 Вариант 9. C 1211 65. Схема Значениями указателей являются A. Переменные B. Указатели C. Адреса переменных D. Массивы E. Адреса указателей 10. C Операция сравнения «не равно» имеет вид: A. < B. > C. <> D. = E. != 11. A Что выйдет на экран в результате выполнения программы: Begin S:=0; For j:=1 to 5 do S=S+j; Write(S); End. A. 15 B. 0 C. 5 D. 20 E. 6 12. A 2 Как записывается на Паскале 𝑒 𝑥 +7𝑒 + 𝑠𝑖𝑛𝑥 A. EXP(x)+2/(7*E)+sin(x) B. E*x+2/7e+sinx C. EXP(x)+(2+sinx)/7 D. e^x+2/(7*E)+sin(x) E. e*x+2/7e+sinx) 13. A Что выполняет следующая программа Program pr; Const n=50; Var b:array[1..n] of integer; i,L,m:integer; begin for i:=1 to n do read(B[i]); m:=B[1]; L:=1; for i:=2 to n do if B[i]>m then begin m:=B[i]; L:=i; End; Writeln(‘m=’,m,’L=’,L); End. A. Определяет в массиве В(50) максимальный элемент и его порядковый номер B. Определяет в массиве В(50) минимальный элемент и его порядковый номер C. Определяет в массиве В(50) максимальный элемент D. Определяет в массиве В(50) минимальный элемент Вариант 1211 12 E. Определяет в массиве В(50) максимальный и минимальный элементы 14. A Укажите результат испролнения фрагмента программы Var n: integer; c,s:string; begin n: pos (‘bc’, ’abefabcdeabc’); writeln (‘n=’,n); c:=copy(‘abefabcdeabc’,5,3); writeln(‘c=’,c); s:=’ abcd’; insert (‘123’,s,4); writeln(‘s=’,s); end; A. n=6 C=,abc’; S=,abc123d’; B. n=11 C=’bcd’; S=’ab 123cd’; C. n=5 C=’bcde’ S=’ab123cd’; D. n=5 S=’ 123abcd’; E. n=6 F. C=’abc’; G. S=,ab123cd; 15. E Укажите результат исполнения программы. Program pr; Var a,b,c,d: integer; u,p,s: integer; function f (x,y: integer): integer; begin if (x>y) then f:=x else f:=y; end; begin Вариант 1211 66. Схема Вариант 1211 12 a:=-5; b=5; c:=8; d:=7; u:=f(a,b); p:=f(u,c); s:=f(p,d); writeln (u,p,s) end. A. 5 2 7 B. u p s C. 5 2 2 D. -5 -5 -5 E. 5 8 8 16. B Укажите правильный вариант ответа при вычислении выражения [3..16] * [14, 15..25] + [5..19]*[7..9] A. B. C. D. E. [7…16] [7..9, 14..16] [15…19] [4…14] [9,15,16] 17. E Что будет напечатано следующим фрагментам программы? Var X,y: ^ integer; Begin New(y); y^:=3; y^:=2*y^+sqr(y^); x:=y; write(x^+10); Dispose(x); End; A. B. C. D. E. 15 0 y+10 x^+10 25 18. A Процедура присвоения имени файлу содержит ключевое слово: A. Assign B. Close C. Delete D. Rewrite E. Erase 19. B Укажите результат выполнения программы Var: x,y:integer; Begin y:=5; x:=0; While x<6 do Begin y:=y+x; x:=x+2; end. A. 6 B. 5 Вариант 1211 67. Схема Вариант 1211 12 C. 11 D. 9 E. 10 Вариант 1211 68. Схема 20. A Полижительные четные элементы побочный диагонали обнулить (массив a[7,7]) A. FOR I:=1 TO 7 DO IF (A[I,8-I]>0) AND (A[I,8-I]MOD 2=0) THEN A[I,8-I]:=0 B. FOR I:=1 TO 7 DO IF (A[I,8-I]>0) AND (A[I,8-I]MOD 2=0) THEN A[I,J]:=0 C. FOR I:=1 TO 7 DO IF A[I,8-I]>0 AND A[I,8-I]MOD 2=0 THEN A[I,8-I]:=0 D. FOR I:=1 TO 7 DO IF A[I,8-I]>0 OR (A[I,8-I]) THEN A[I,8-I]:=0 E. FOR I:=1 TO 7 DO IF A[I,8-I]>0 AND ODD (A[I,8-I]) THEN A[I,8-I]:=0 21. E Укажите результат исполнения программы 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 100 C. 2 0 D. 0.5 103 E. 2 103 26.B После выполнения фрагмента программы, будет равно числу А и В? a:=1; b:=2; if a>b then a:=a+1 else a:=b A)a=2;b=2 B)a=2;b=1 C)a=2;b=4 D)a=1;b=2 E)a=7 28. C Вариант 1211 12 Что будет напечатано следующим фрагментом программы Вариант 1211 69. Схема Var X,y:^integer; Begin New(y);y^:=3;y^:=2*y^sqr(y^); x:=y; write(x^+10); Dispose(x); End; A)y^+10 B)0 C)25 D)x^+10 E)37 30. D Укажите правильный фрагмент программы Даны натуральное число n. Целые числа a1,a2,...,a n. Выяснить, имеются ли среди чесел a1,a2,...,a n совпадающие. A. 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(‘нет совпадающих’); 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 writeln(‘есть совпадающие’); goto M; end; writeln(‘нет совпадающих’); M:end. C. С. Type t=array [1..n] of integer; Var a:^t; i,j:integer; begin new (a); Вариант 1211 12 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. 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. E. Label M; Type t=array [1..n] of integer; 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 writeln(‘есть совпадающие’); goto M; end; writeln(‘нет совпадающих’); M:end. Вариант 1211 70. Схема Вариант 3021 Блок 3 – Технология программирования (TPascal) 1 D К свойству алгоритма не относится А) Результативность В) Разветвленность С) Дискретность D) Массовость E) Определенность 2.С Переменным x относится к типу real. К какому типу относится выражение sqr(x) А) boolean В)char С)real D)integer E) к массиву 3.B Округление числа до ближайшего целого дается функцией: Вариант 1211 12 А) trunc В)round С)ord D)succ E)pred Вариант 1211 71. Схема 4.В Выберите правильный вариант использования стандартной процедуры для вставки подстроки ST1 в строку ST, начиная с третьего символа А) INSERT (ST,ST1,3) В) INSERT (ST1,ST,3) С) INSERT (ST,5,ST1,3) D) INSERT (5,ST1,ST,3) E) INSERT (ST1,5,ST,3) 6 E. Укажите правильный вариант ответа для решения следующей задачи: напишите программу, которая вычерчивает в центре экрана вертикальную линию. А) line (Round(GetMaxX/2),0,GetMaxY,Round(GetMaxX/2)) В) line (Round(GetMaxY/2),0,Round(GetMaxX/2) ,GetMaxX) С) line (Round(GetMaxX/2),0, Round(GetMaxX/2) ,GetMaxY) D) line (GetMaxX,GetMaxY, GetMaxX,GetMaxY) E) line (Round(GetMaxY/2),0, Round(GetMaxY/2) ,GetMaxY) 7.A Укажите операцию над множествами, результатом которой является первое множество, дополненное недостающими элементами из второго множества А) объединения В)IN С)разность D)пересечение E)включение 11 В Как описывается действительный тип: А) array (1..n) of real В) real С) integer D) array (1..n) of integer E) VAR A,B:integer 12 A. Bыберите правильный фрагмент решения задачи: Определить, в какой четверти находится точка с координатами x,y, А) if (x>0) and (y>0) then writeln (‘Точка находится в первой четверти’) Else if (x>0) and (y<0) then writeln (‘Точка находится в четвертой четверти’) Else if (x<0) and (y<0) then writeln (‘Точка находится в третьей четверти’) Else if (x<0) and (y>0) then writeln (‘Точка находится во второй четверти’); -В) if (x>0) and (y>0) then writeln (Точка находится в первой четверти) Else if (x>0) and (y<0) then writeln (Точка находится в четвертой четверти) Else if (x<0) and (y<0) then writeln (Точка находится в третьей четверти) Else if (x<0) and (y>0) then writeln (Точка находится во второй четверти); -С) if x>0 and (y>0) then writeln (‘Точка находится в первой четверти’) Else if x>0 and (y<0) then writeln (‘Точка находится в четвертой четверти’) Else if x<0 and (y<0) then writeln (‘Точка находится в третьей четверти’) Else if x<0 and (y>0) then writeln (‘Точка находится во второй четверти’); -D) if (x>0) and (y>0) then writeln (‘Точка находится в первой четверти’); Else if (x>0) and (y<0) then writeln (‘Точка находится в четвертой четверти’); Вариант 1211 12 Else if (x<0) and (y<0) then writeln (‘Точка находится в третьей четверти’); Else if (x<0) and (y>0) then writeln (‘Точка находится во второй четверти’); -E) if (x>0) or (y>0) then writeln (‘Точка находится в первой четверти’) Else if (x>0) or (y<0) then writeln (‘Точка находится в четвертой четверти’) Else if (x<0) or (y<0) then writeln (‘Точка находится в третьей четверти’) Else if (x<0) or (y>0) then writeln (‘Точка находится во второй четверти’); Вариант 1211 72. Схема 13. Укажите результат исполнения фрагмента программы f0:=0; f1:=1; WRITE(f0, f1); FOR I:=1 TO 4 DO BEGIN f:=f0+f1; WRITE (f); f0:=f1:f1:=f END; А) 0,1,1,2,3,5 В) 0,1,1,2,2,2 С) f0,f1,f D) 0,1,1,1,1,1 E) 1,2,3,5 14.В Одномерный массив имеет описание a:array[1..10] of char? К какому типу относится a[7] А) integer В) char С) real D) boolean E) массиву 15 Е . Одномерный массив имеет описание a:array[1..10] of boolean? К какому типу относится a[5]? А) real В) char С) integer D) массиву E) Boolean 16 E. Укажите результат исполнения программы. Program pr; Var a,b,c,d:integer; u,p,s:integer; function f(x,y:integer):integer; begin if(x>y) then f:=x else f:=y end; begin a:=5; b:=-5; c:=2; d:=7; u:=f(a,b); p:=f(u,c); s:=f(p,d); writeln(u,p,s) end. А) u p s Вариант 1211 В) -5 -5 -5 С) 5 2 7 D) 5 2 7 E) 5 5 7 12 Вариант 1211 73. Схема 17. Нарисовать 10 вертикальных линии. Выберите правильный фрагмент программы. -А) k:=0; While k<=10 do Begin Line(50+k*20,50,50+k*20,200); Ink(k); End; -В) k:=0; While k<10 do Begin Line(50+k*20,50,50+k*20,200); End; +С) k:=0; While k<10 do Begin Line(50+k*20,50,50+k*20,200); Ink(k); End; D) k:=0; While k<10 do Begin Line(50+k*20,50,50+20,200); Ink(k); End; E) k:=0; While k<10 do Begin Line(50+ 20,50,50+k*20,200); Ink(k); End; 18. Даны сведения о кубиках: размер, цвет и материал из которого изготовлен кубик. Выберите правильный фрагмент программы для вывода количества кубиков определенного материала с ребром, не превышающим 3см. А) k:=0; for i:=1 to n do for j:=i+ to n do if ((a[i].material=a[j].material) or (a[i].rebro<=3)) begin a[i].rebro:=k; k:=k+1;end;writeln; writeln(‘k=’,k); В) k:=0; for i:=1 to n do for j:=i+ to n do if ((a[i].material=a[j].material)and(a[i].rebro>3)) then k:=k+1; writeln(‘k=’,k); С) k:=0; for i:=1 to n do for j:=i+ to n do Вариант 1211 12 if ((a[i].material=material)and(a[i].rebro<=3)) then k:=k+1; writeln(‘k=’,k); D) k:=0; for i:=1 to n do if a[i].material= material and a[i].rebro<=3 then k:=k+1; writeln(‘k=’,k); E) k:=0; for i:=1 to n do if (a[i].material=a[j].material) then writeln(‘k=’,k); end. 21.С Процедура rewrite при работе с файлом позволяет: А) закрыть файл В) стереть файл С) перезаписать файл D) присвоить имя файловой переменной E) не применяется 22. Что выполняет следующий фрагмент программы? var f:file of integer; n,a,b:integer; Begin Assign(f,’f.txt’); Reset(f); n:=filesize(f); read(f,a); writeln(b-a); end, А) находит разность b-a В) находит разность последней и первой компоненты файла С) указатель устанавливает на конец файла D) печатает ноль E) находит разность первой и последней компоненты файла 23.E Укажите запись к какому оператору относится следующий формат? IF<логическое выражение> THEN <оператор>[ELSE<оператор>;] А) оператор присваевания В) оператор выбора С) оператор цикла D) оператор перехода E) условный оператор 24 C. Что выполняет следующая программa program pr; const n=4; var a,b:array[1..n] of real; c:array[1..2*n] of real; i:integer; begin for i:=1 to n do read(A[i]); Вариант 1211 74. Схема Вариант 1211 12 for i:=1 to n do read(B[i]); for i:=1 to n do C[i]:=A[i]; for i:=1 to n do C[n+i]:=B[i]; for i:=1 to 2*n do writeln(C[i]); Вариант 1211 75. Схема end. А) по двум заданным массивам формирует третий, содержащий отрицательные элементы массивов В) по двум заданным массивам формирует третий, содержащий целые элементы массивов С) по двум заданным массивам формирует третий, содержащий в начале элементы 1-го, а в конце элементы 2-го массива D) по двум заданным массивам формирует третий, содержащий в начале элементы 2-го, а в конце элементы 1-го массива E) по двум заданным массивам формирует третий, содержащий положительные элементы массивов 28 C. Что будет выдано на печать в результате следующих операторов? Var x:^Boolean; y:^Boolean; Begin New(x); x^:=true; y:=not x^; Dispose (x); Writeln(y); End. A) y B) true C) false D) 0 E) not x^ Технология программирования вариант-5553 1. E В блок-схеме прямоугольник означает: A. Блок ввода/вывода B. Блок начало/конец C. Блок вычитание D. Блок условии E. Блок вычисления 2. A Исходя из заданного обьявления переменных a, b и c, укажите, что будет содержаться в них после выполнения вычислений Var a,b,c: integer; Begin a:=2+20 mod 3; b:=2+19 mod 3; c:=2+18 mod 3; writeln(‘a=’,a,’b=’,b,’c=’,c); end. A. a=4 b=3 c=2 B. a=3 b=1 c=2 Вариант 1211 C. a=2 b=3 c=1 D. a=5 b=3 c=1 E. a=4 b=2 c=2 12 Вариант 1211 76. Схема 3 3. 4. 5. 6. 7. 8. A Назовите функцию, преобразующую элемент строки S из строчной буквы в соответствующую заглавную A. UPCASE(S[I]) B. STR(S,I) C. ORD(S[I]) D. POS(S[I],I) E. LENGTH(S[I]) C В конце подпрограммы обязательно пишется оператор: A. Goto B. Return C. End D. Stop E. Repeat-until A Укажите правильный вариант ответа для решения следующей задачи, напишите программу, которая вычерчивает в центре экрана горизонтальную линию A. Line(0, round(GetMaxY/2), GetMaxX ,Round(GetMaxY/2)) B. Line(0, round(GetMaxX/2),GetMaxY,0) C. Line(0, GetMaxX,GetMaxY,0) D. Line(0, GetMaxY,GetMaxX,0) E. Line( GetMaxX,GetMaxY, GetMaxX,GetMaxY) A Укажите операцию над множествами результатом которой является множество общих элементов множеств A. Пересечение B. Разность C. Объединение D. IN E. Включение D Чему равно значение выражения 5*p^-sqr(p^), если по адресу, на которую указывает указатель р размещено число 3. A. 5*р^+sqr(p^) B. Выражение записано неверно C. -36 D. 6 E. 39 B Переменные обьявлены следующим образом: р1,р2: ^integer; p3:^real; Сколько байт вернут в кучу операторы Dispose(p1); Dispose(p2); Dispose(p3); A. 3 B. 10 C. 6 Вариант 1211 Вариант 12 D. 8 E. 12 1211 77. Схема 9. D Как описывается символьный тип: A. Array(1..n) of real B. VAR A,B: integer C. Array(1..n) of string D. Char E. Real 10. B Операция сравнения «больше или равно» имеет вид: A. <> B. >= C. = D. > E. 11. E 12. E Как записывается на Паскале A. B. C. D. E. 𝑒 1+𝑥 −5 y= sinx+ 𝑐𝑜𝑠 𝑥 2 Y:=sinx+e^(1+x)-5/cos x/2 Y:=(sin(x)+EXP(1+x-5)/cos(x/2)) Y=sin(x)+EXP(1+x)-5/cos(x/2) Y=sin(x)+EXP(1+x)-5/cosx/2 Y:=sin(x)+(EXP(1+x)-5)/cos(x/2) 13. B Укажите результат исполнения фрагмента программы: For c:='a' to ‘d’ do Begin For s:=’a’ to ‘c’ do Write(s); Writeln(‘’); End; A. a b c abc abc abc B. a ab abc abcd C. a b c d D. a a b a b c a b c d E. a b c d abcd abcd abcd 14. B Укажите результат исполнения фрагмента программы S:=’abc*12**d’; St:=’ Вариант 1211 A. B. C. D. E. 12 abc aabbcc abc12d aabbcc1122dd abc*12 Вариант 1211 78. Схема 15. A Укажите результат испонения программы Porgram pr; Var a,b,c: integer; Procedure P; Var d: integer; Begin d:=a; a:=b; b:=d; end; procedure Q; begin c:=a+b; b:=c-a; end; begin a:=10; b:=5; c:=2; P; writeln (a,c); Q; writeln (a,c); End. A. 5 2 10 2 B. 0 0 0 0 C. a, b a, b D. 10 5 5 10 E. 10 10 15 5 16. D Нарисовать 10 горизонтальных линий. Выберите правильный фрагмент программы. A. k:=1; while k<=10 do begin line (50,Y,400,Y); Ink(k); End; B. k:=1; while k<=10 do begin line(50,10+k*10,400,10+k*10); end; C. k:=1; while k<=10 do begin line(50,k*10,400,10+k*10); Ink(k); End; D. k:=1; Вариант 1211 12 while k<=10 do begin line(50,10+k*10,400,10+k*10); Ink(k); End; E. k:=1; while k<=10 do begin line(50,10+k*10,400,10+k*10); Ink(k); End; 17. A Укажите правильный вариант ответа при вычислении выражения [5,9,17,20]*[8,18]+[8,9] A. [17,18] B. [5..9] C. [5..9,19,20] D. [15..20] E. [7..9] 18. D Что будет напечатано следующим фрагментом программы? Var X,y: ^integer; Begin New(y); y^:=2; y^:=5+y^+sqr(y^); x:=y; write(x^+10); Dispose(x); End; A. 12 B. x^+10 C. 25 D. 24 E. y+10 19. D Что будет напечатано следующим фрагментом программы? Var X,y: ^integer; Begin New(x); x^:=15; y:=x; write(y^); write (x^+10); Dispose(x); End; A. x 25 B. y^ x^+10 C. 15 x^+10 D. 15 25 E. y^ 25 20. B Процедура стирания файла содержит ключевое слово A. Close B. Erase C. Rewrite D. Assign E. Delete Вариант 1211 79. Схема Вариант 1211 12 21. A Процедура подготовки перезаписи файловсодержит ключевое слово A. Rewrite B. Close C. Erase D. Assign E. Delete Вариант 1211 80. Схема 22. B Вычислить и найти значение выражения SUCC(ROUND(5/2)-PRED(3)) A. 1 B. 2 C. 0 D. -1 E. -2 23. C Выберите правильный вариант умножения массива A[4,2] на массив B[2,3] A. FOR I:=1 TO 2 DO FOR J:=1 TO 3 DO FOR K:=1 TO 4 DO C[I,J]:=A[I,K]*B[K,J] B. FOR I:=1 TO 2 DO FOR J:=1 TO 3 DO FOR K:=1 TO 4 DO C[I,J]:=C[I,J]*A[I,K]*B[K,J] C. FOR I:=1 TO 4 DO FOR J:=1 TO 3 DO FOR K:=1 TO 2 DO C[I,J]:=C[I,J]+A[I,K]*B[K,J] D. FOR I:=1 TO 3 DO FOR J:=1 TO 4 DO FOR K:=1 TO 2 DO C[I,J]:=C[I,J]+A[I,K]+B[K,J] E. FOR I:=1 TO 3 DO FOR J:=1 TO 4 DO FOR K:=1 TO 2 DO C[I,J]:=C[I,J]+A[I,K]*B[K,J] 24. A Что будет напечатано следующей программой PROGRAM PRINT1(OUTPUT); VAR I:INTEGER; T:STRING[5]; PROCEDURE P(VAR S:STRING); BEGIN I:=1; WHILE S[I]<’9’ DO BEGIN S[I]:=SUCC(S[I]); I:=I+1 END END; BEGIN I:=1; T:=’12945’; P(T); WRITELN(T[I]) END. A. 3 Вариант 1211 B. C. D. E. 12 5 9 2 4 Вариант 1211 81. Схема 25. E Что вычисляет следующий фрагмент программы Var n,k,s:integer; function d(l:integer):integer; deign d:=1 mod 10; end; deign readln(n); s:=0; while(n>0) do begin k:=d(n); s:=s+k; n:=(n-k) div 10; end; writeln(s); end, A. Вычисляет количество цифр числа n B. Печатает последнюю цифру числа n C. Печатает значение s D. Печатает первую цифру числа n E. Вычисляет сумму цифр числа n 26. B Какая фигура может быть нарисована заданием следующей процедуры Rectangle(10,20,20,40) A. Квадрат B. Прямоугольник C. Прямая D. Треугольник E. параллелепипед 27. E Какой из фрагментов программы выполняет построение списка из N целых чисел. Типизированный указатель обьявлен следующим образом: Type Tp=^posl; Posl=record A:itger; Next:tp; End; Var p,g:tp; i:integer; A. p:=nil; for i:=1 to n do read(g^,a); B. p:=nil; for i:=1 to n do begin Вариант 1211 12 Вариант new(g); 1211 82. Схема read(g,a); g^,next=p; p:=g; end; C. 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; end; E. p:=nil; for i:=1 to n do begin new(g); read(g^,a); g^,next=p; p:=g; end; 28. 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. Nil C. 0 D. 4 E. P^ 29. E Укажите правильный фрагмент программы Даны натуральное число n. Целые числа a1,a2,...,a n. Выяснить, имеются ли среди чесел a1,a2,...,a n совпадающие. F. 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. G. Label M; Type t=array [1..n] of integer; Var a:t; i,j:integer; begin Вариант 1211 12 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 writeln(‘есть совпадающие’); goto M; end; writeln(‘нет совпадающих’); M:end. H. Label M; Type t=array [1..n] of integer; 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 writeln(‘есть совпадающие’); goto M; end; writeln(‘нет совпадающих’); M:end. I. 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. J. 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. 16 (1204) Вариант 1211 83. Схема Вариант 1211 12 Укажите правильный фрагмент программы, описывающей функцию, вычисляющую сумму положительных четных элементов, расположенных в нечетных столбцах массива Вариант 1211 84. Схема Е) 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; 18(1204) Выберите правильный фрагмент для вывода сведений о студентах по убыванию года рождения (сведения хранятся в массиве записей) С) For i:=1 to n-1 do For j:=i+1 to n do If a[j].god>a[1].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; 7. В Укажите операцию над множествами, результатом которой является множество элементов первою множества, не принадлежащих второму множеству А) IN В) Разность С) Объединение D) Включение Е) Пересечение 25. Как определяются формальные параметры процедуры (в заголовке программы и используются только в процедурах и функциях) А) процедура в части объявления операторов Вариант 1211 12 В) переменные объявленные в части программы С) введенные в тело процедуры идентификаторы D) в конце программы Е) постоянные в части программы Вариант 1211 85. Схема (1211) 9 E.Переменные объявлены следующим образом: pl,p2 : Л real; рЗ: integer; На сколько байт сместится указатель Heapptr после выполнения фрагмента программы? begin new (pi); new (p2); new (p3); end; A)6 B)18 C)10 D)3 E)14 10 A . Какой график функции будет построен по следующему алгоритму? 1. Начертить график функции Y=aX. 2. Стереть часть графика левее оси ординат. 3. Симметрично отразить оставшуюся часть графика относительно оси ординат. A Строит график функции Y=a |Х|. B) Строит график функции Y=X. C) Строит график функции Y=|X|. D ) Строит график функции Y=a X. E) Строит график функции Y=- X. 16 Е. Написать программу вычисления факториала и квадрата чисел A) PROGRAM FACTSQR(INPUT,OUTPUT); VAR N:INTEGER; FUNCTION FACT(I:INTEGER):INTEGER; VAR PROD:REAL; BEGIN PROD:=l; WHILE I>1 DO BEGIN PROD:=PROD* 1; I:=I-1 END; FACT:=PROD; END; BEGIN READ(N); WHILE N>0 DO BEGIN WRITELN (N, FACT(N),N*N); READ(N); END; END. B) PROGRAM FACTSQR(lNPUT,OUTPUT); VAR N:REAL; FUNCTION FACT(I:INTEGER):REAL; VAR PROD:REAL; BEGIN PROD:=l; WHILE I>1 DO BEGIN PROD:=PROD* I; 1:1-1 END; FACT:=PROD; END; BEGIN READ(N); WHILE N>0 DO BEGIN WRITELN (N, FACT(N),N*N); READ(N); END; END. C) PROGRAM FACTSQR(INPUT,OUTPUT); VAR N:INTEGER; FUNCTION FACT(I:INTEGER):REAL; VAR PROD:REAL; BEGIN PROD:=l; WHILE I>1 DO BEGIN PROD:=PROD* 1; 1:1-1 END; FACT:=PROD; END; BEGIN READ(N); WHILE N>0 DO BEGIN WRITELN (N, FACT(N),N*N); READ(N); END; END. D) PROGRAM FACTSQR(INPUT,OUTPUT); VAR N:INTEGER; FUNCTION FACT(I:INTEGER):REAL; VAR PROD:REAL; BEGIN PROD:=0; WHILE I>1 DO BEGIN PROD:=PROD*I; I:=I-1 END; FACT:=PROD; END; BEGIN Вариант 1211 12 READ(N); WHILE N>0 DO BEGIN WRITELN (N, FACT(N),N*N); READ(N); END; Вариант 1211 86. Схема END. Е) PROGRAM FACTSQR(INPUT,OUTPUT); VAR N:INTEGER; FUNCTION FACT(I:1NTEGER):INTEGER; VAR PROD: INTEGER; BEGIN PROD:=l; WHILE I>1 DO BEGIN PROD:=PROD*I; I:=I-1 END; FACT:=PROD; END; BEGIN READ(N); WHILE N>0 DO BEGIN WRITELN (N, FACT(N),N*N); READ(N); END; END. 17 B . Нарисовать 10 вертикальных линии. Выберите правильный фрагмент программы. А) Х:=50; While Х<=500 do , . цЛ Line(X,50 Х,300); ^л Х:=Х+20; End; B)X:=50; While Х<=230 do Begin Line(X,50 X,300); X:=X+20; end; C)X:=50; While X<=230 do Begin Line(X,50 X,300); X:=20; End; D)X:=50; While X<=230 do Begin Line(X,50 X.300); End; E) X:=50; While X<=230 do Begin Line(X,Y X,Y); X:=X+20; End; 18 C .Выберите правильный вариант фрагмента для вывода сведений о товарах, в названии которых более 15 символов, и название начинается с буквы "А" C)for i := I to n do with mas[i] do if(length(naz)>15)and(naz[l]=,A')then writeln (naz, stiom); var 22 В. Что выполняет следующий фрагмент программы? fl,f2,f3:file of char; a:char; Begin Assign(fl,'fl.txt'); Assign(f2,'f2.txt'); Assign(f3,'f3.txt'); Rewrite(O); reset(fl); While noteof(fl)do Begin Read(fl,a); Write(f3,a); End; Close(O); Rewrite(fl); reset(f2); While not eof(f2) do Begin Read(f2,a); Write(fl,a); End; Rewrite(f2); reset(O); While not eof(0) do Begin Read(O.a); Write(f2,a); End; Close(f2); Close(B); Close(fl); End. A)Переписывает компоненты файла f2 в файл О Вариант 1211 12 Вариант 1211 87. Схема B)Переписывает компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1 C)^Переписывает компоненты файла П в файл t3 D)Переписывает компоненты файла П в файл f2, а компоненты файла f2 в файл 13 E)Переписывает компоненты файла fl и файла f3 24 B Фамилии и рост отделены пробелом. Вывести фамилию и рост самого высокого. Укажите правильный фрагмент программы B) var Cl,C2,C3:string; i,k,p,max,cod: integer; s:array [l..n] of string; Max:=0; For i :=1 to n do Begin P:=pos(‘’, s[i]); Cl:=copy( s[i], 1 ,p-l); C2:=copy( s[i], p+1 , length(s[i]-p); Val (C2,k,cod); If k>max then begin max:=k; C3:=C1; end; End; Writeln(C3, max); 1201 1A В этом блоке A) задают условие B) вводят данные C) производят обработку данных D) дают комментарии E) выводят результат 2. A Описпние действительной переменной содержит ключевое слово: А)real В)word С)char D)array Е)integer 3. A ex на языке Паскаль пишется: А)exp(x) В)exp^(x) С)abc(x) D)LN(x) Е) sgr(x) 4. B Вывести квадратную вещественную матрицу 5-го порядка построчно А) FOR I:=1 TO 5 DO FOR J:=1 TO 5 DO WRITE(A[I,J]:6:2); В)FOR I:=1 TO 5 DO BEGIN Вариант 1211 12 Вариант FOR J:=1 TO 5 DO 1211 88. Схема WRITE (A[I,J]:6:2); WRITELN; END; С)FOR I:=1 TO 5 DO FOR J:=1 TO 5 DO Writeln(A[I,J]:6:2); D)FOR I:=1 TO 5 DO Begin FOR J:=1 To 5 DO WRITE(A[I,J]:6:2); END; Е) FOR I:=1 TO 5 DO FOR J:=1 TO 5 DO WRITE (A[I,J]); WRITELN; 5. A В конце подпрограммы обязательно пишется оператор: А)end В)stop С)goto D)return Е)repeat-until 6. D Укажите правильный вариант ответа для решения следующей задачи: напишите программу, которая вычерчивает в центре экрана горизонтальную линию. А)line(0,GetMaxY,GetMaxX,0) В)line(0,Round(GetMaxX/2),GetMaxY,0) С)line(GetMaxX,GetMaxY,GetMaxX,GetMaxY) D)line(0,Round(GetMaxY/2),GetMaxX,Round(GetMaxY/2)) Е)line(0,GetMaxX,GetMaxY,0) 7. D Укажите операцию над множествами, результатом которой является первое множество, дополненное недостающими элементами из второго множества А)Включение В)Разность С)Пересечение D)Объединение Е)IN 8. Е Какая область памяти используется для хранения локальных переменных и параметров? А)оперативная память В)Динамическая память С)Сегмент данных D)Внешняя память Е)Стек 9. А Значениями указателей являются А)Адреса переменных В)Переменные С)Указатели D)Массивы Е)Адреса указателей 10. А Какой график функции будет построен по следующему алгоритму? Вариант 1211 12 Вариант A) Строит график функции Y=[X] 1211 89. Схема В) Строит график функции Y=а[X] С) Строит график функции Y=X D) Строит график функции Y=-X Е) Строит график функции Y=а X 11. D Логические переменные имеют значения а:=true и b:=true. Чему равно значение а and b А)зависит от времени выполнения В)false С) не определено D)true Е)зависит от реализации компилятора 12. В Значение переменной х равно 4. Чему равно ее значение после выполнения опреатора if x>0 then x:=x+1 else x:=x-1: А) 4 В)5 С)3 D)7 Е)8 13. А Как произвести случайную выборку числа в диапазоне от «0» до «х» А)Random(x) В) Random*(x) С) Random D) Randomize(x) Е) Random 14. D Выберите правильный вариант проверки последовательности a1,...an на возрастание (переменной PR присвоить 1, если последовательность возрастающая, в противном случае PR присвоить 0 ) А)PR:=1;FOR I:=TO N DO IF A[I]>A[I+1] THEN break; В)FOR I:=1 TO N-1 DO IF A[I]>A[N+1] THEN begin PR:=0; break;end; С)PR:=1; FOR I:=1 TO N DO IF A[I]>A[I+1] THEN break; D)PR:=1; FOR I:=1 TO N DO IF A[I]>A[I+1] THEN Begin PR:=0; break;END; Е)PR:=1; FOR I:=1 TO N DO IF A[I]>A[I+1] THEN PR:=0;break; 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)Выдает на печать знаки операции и количество цифр Вариант 1211 12 Вариант Е)Подсчитывает количество цифр и печатает все символы кроме символов 1211 90. Схема '*','-'. 16. D Укажите результат исполнения программы Program pr; Var a,b,c:integer; Procedure P; Var d:integer; Begin d:=a; a:=b; b:=d; end; procedure Q; begin c:=a+b; b:=c-a; end; begin a:=10; b:=5; c:=2; P;writeln(a,c); Q;writeln(a,c); End. А) 0 0 0 0 В) 10 5 5 10 С) a,b a,b D) 5 2 10 2 Е) 10 10 15 5 17. С Укажите правильный вариант ответа для решения следующей задачи: Построить прямоугольник, у которого координаты левого верхнего угла (10,10) и правого нижнего угла (150,100) А)Rectangle (10,10,100,150) В) Rectangle (100,10,10,150) С) Rectangle (10,10,150,100) D) Rectangle (10,100,10,150) Е) Rectangle (100,10,150,100) 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 Вариант 1211 F) G) H) I) J) 12 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 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 Вариант 1211 91. Схема Вариант 1211 F) G) H) I) J) F. G. H. I. J. 12 Вариант Var a: array[1…n,1…n] of integer; 1211 92. Схема 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; for i:=1 to n-1 do 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. 10 C 0.1 C1/(c2*c3) 120 26. С Укажите результат исполнения программы при значениях n=3; m=2 Var N,m integer; c1,c2,c3: Longint; c:real; Вариант 1211 F. G. H. I. J. F. G. H. I. J. 12 Вариант Procedure fact (n: integer; var p: longint); 1211 93. Схема 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. c1/(c2*c3); 1/3 3 6 C 27. D Какая фигура может быть нарисована заданием следующей процедуры: Rectangle (10,20,20,40) Параллелепипед Треугольник Прямая Прямоугольник Квадрат 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; 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); Вариант 1211 12 Вариант Read(g^. a); g^. next=p;p:=g; 1211 94. Схема End; Е) P:=nil; For i:=1 to n do Begin New(g); Read(g. a); g^. next=p; End; 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 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; Вариант 1211 12 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 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 95. Схема Вариант 1211 Вариант 12 1203 1211 96. Схема 1C Приведенная ниже структура алгоритма Начальные присваивания Тело цикла Да условие А) Соответствует циклу Пока В) Соответствует Следованию С) Соответствует циклу До D) Соответствует Разветвлению Е) Соответствует Множественному выбору 2 А Правильное описание переменной а целочисленного типа имеет вид: А) a: integer B) a: char C) a:real D) a:array E) a:double 3С Найдите правильную запись выражения х 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 4 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); Вариант 1211 F) G) H) I) J) END; 1,3,4 2,4 1,2,4 1,2 1,4 12 WRITE(S/N); Вариант 1211 97. Схема 5 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; 6A С помощью оператора …… можно начертить прямую. A) LINE B) RETURN C) READLN D) SCREEN E) CIRCLE 7D Укажите операцию над множествами результатом которой является множество общих элементов множеств А) объединение В) включение С) разность D) пересечение Е) IN Вариант 1211 12 Вариант 1211 98. Схема 8D Процедура Dispose(p) А) Уничтожает динамическую переменную В) Освобождает динамическую память С) Выделяет место в памяти D) Возвращает в кучу память, связанную с указателем р. Е) Уничтожает динамическую переменную, на которую указывает указатель р. F) G) H) I) J) 9E Переменные объявлены следующим образом: p1,p2:^real; P3:^integer; На сколько байт сместится указатель Heapptr после выполнения фрагмента программы? Begin new (p1); new (p2); new (p3); end; 6 10 3 18 14 10 C Как описывается символьный тип: А) real B) array(1….n) of real C) char D) VAR A,B: integer E) array(1…n) of string 11 E Операция сравнения «не равно» имеет вид: А) = В) != С) < D) > E) <> 12 C 2 cos 8 Какая форма записи в Turbo Pascal верна для Exp(2 N ) F) G) H) I) J) Cos(2*π/8)/e2*N Cos(2π/8)/e2N Cos(2*(π/8))/Exp(2*N) Cos(2π/8)/Exp(2N) Нельзя записать 13 A Найдите правильную форму записи в Turbo Pascal для Tan(a)/Cos(α) F) Sin(α)/Cos(α)/Cos(α) Вариант 1211 12 G) H) I) J) Sin(α)/Cos(α)*Cos(α) Нельзя записать Tan(α)/Cos(α) Tan(α)*Cos(α) F) G) H) I) J) 14 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 99. Схема 15 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 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; 16 C Укажите правильный фрагмент программы, описывающей процедуру вычисления суммы положительных четных элементов, расположенных в нечетных столбцах массива A) Procedure sum(x:mas;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; 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 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 100. Схема 17 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); Вариант 1211 12 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; Вариант 1211 101. Схема 18 C Выберите правильный вариант программы, которая выводит сведения о книгах изданных аздательством Мир и которые поступили в магазин начиная с 2002 года. 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 Вариант 1211 12 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 102. Схема 19 B Чему равно значение выражения 2*p^+sqrt(p^), если по адресу, на которую указывает указатель p размещено число 9. А) 99. В) 21 С) Выражение записано неверно. D) 9. Е) 2*p^+sqrt(p^) F) G) H) I) J) 20 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 21 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 Вариант 1211 12 Вариант F) G) H) I) J) Read(f3,a); 1211 103. Схема White(f2,a); End; Close(f2); Close(f3); Close(f1); End; Переписывает компоненты файла f2 в файл f3 Переписывает компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1 Переписывает компоненты файла f1 и файла f3 Переписывает компоненты файла f1 в файл f3 Переписывает компоненты файла f1 в файл f2, а компоненты файла f2 в файл f3 F) G) H) I) J) 22 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 символ 23 B Укажите результат 16 mod (7+9) div 3*2 А) 11 В) 0 С) 8 D) 10 E) 2 24 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 begin if not(odd(A[i])) then begin Вариант 1211 12 k:=k+1; s:=s+a[i]; end:; F) G) H) I) J) end; writeln('k=',k,'s=',s); end. Количество и сумму нечетных элементов массива А(10) Количество и произведение нечетных элементов массива А(10) Количество четных элементов массива А(10) Количество и сумму четных элементов массива А(10) Количество и произведение четных элементов массива А(10) 25 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 26 B Описание строковых переменных: А) Record B) String C) While D) integer E) Array 27 A Какая фигура может быть нарисована заданием следующей процедуры: Rectangle(10,20,20,40) А) Прямоугольник В) Параллелепипед С) Квадрат D) Прямая Е) Треугольник 28 A Что выполняет следующий фрагмент программы? Type t=array[1..n] of integer; Var B:^t; Begin New(b); Read(b^[1]); k:=b^[1]; Вариант 1211 104. Схема Вариант 1211 12 Вариант For i:=2to n do 1211 105. Схема 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] F) G) H) I) J) 29 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 30 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 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 Вариант 1211 12 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; 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 106. Схема (1202) 14 Выберите правильный вариант определения МАХ среди элементов, расположенных на четных позициях массива А[17] MAX:=A[2]; For i:=2 to 8 do If a[2*1]>max then max:=a[2*i]; 15 Вывести массив А[8,8] построчно ответ For i:=1 to 8 do Вариант 1211 12 Begin For j:=1 to 8 do Write(A[I,j]:4); Writeln End; Вариант 1211 107. Схема 16 Укажите результат исполнения программы Program pr; Var a,b:integer; s:real; Procedure sr(x,y:integer; var s:real); Begin S:=(x+y)/2; End; Begin a=2,b= 3; sr(a,s,b); writeln(s); end. Несоответствие типов 18Укажите правильный вариант ответа при вычислении выражения [4..10]-[5..14]*[9..19]+[3..9] ответ [3..9] 24 Выберите правильный фрагмент программы для составления массива В(6) из массива А(6,6) по следующему правилу: В(j)-тому элементу присвоить максимальный элемент j-го столбца массива А Ответ For j:=1 to 6 do Begin Max:=A[1,j]; For i:=1 to 6 do If A[I,j]>max then max:=A[I,j]; B[j]:=max; End; (1211)18. C Выберите правильный вариант фрагмента для вывода сведений о товарах, в названии которых более 15 символов, и название начинается с буквы “А” А) for i:=1 to n do with mas[i] do if length(naz)>15 and naz[1]= ‘A’) then writeln (naz, stiom); В) for i:=1 to n do if (naz>15) and (naz[1]= ‘A’) then writeln (naz, stiom); С) for i:=1 to n do with mas[i] do if (length(naz)>15) and (naz[1]= ‘A’) then writeln (naz, stiom); D) for i:=1 to n do if (naz>15) and (naz[0]= ‘A’) then write (naz, stiom); Е) for i:=1 to n do Вариант 1211 12 if (length(naz)>15) and (naz[1]= ‘A’) then writeln (naz, stiom); Вариант 1211 108. Схема (?) 3 Выберите правильный результат выполнения следующей программы Var x,y:integer; Begin X:=2; y:=16; Repeat Y:=y-x; X:=x+y div 2; Writeln (x,’ ’,y); Until y<x; End. Ответ 9 14 11 5 Вариант 5542 Блок 3 – Технология программирования (TPascal) 1. C B блок схеме эллипс означает: А) блок ввода/вывода В) блок вычисления С) блок начало/конец D)блок условии E)блок вычитание 2 A. Исходя из заданного объявления переменных а,b, и с, укажите, что будет содержаться в них поле выполнения вычислений Vara,b,c: integer; Begin a:=90 div 8; b:=85 div 8; c:= 80 div 8; writeln (‘a=’,a, ‘b=’,b, ‘c=’ ,c); End. Вариант 1211 A) a=11 B) a=10 C) a=12 D) a=11 E) a=11 12 b=10 c=10 b=9 c=10 b10 c=10 b=11 c=10 b8 c=10 Вариант 1211 109. Схема 3 A. Что будет напечатано в результате выполнения программы? При A:=1 2 : WRITE (2*A,A*A); A:=A+1 IF A<5 THEN GOTO 2 A) 2 1 4 4 6 9 8 16 B) 2 1 4 4 6 9 8 16 C) 10 25 2 1 4 4 10 25 D) 2 4 6 8 4 16 36 64 E) 2 1 4 A. Какая из стандартных процедур и функций используется для сцепления строк А) CONNCAT B) LENGTH C) COPY D) VAL E) CHR 5 A. Укажите процедуру вывода двумерного массива A) procedureoutmas (x:mas); Begin For i:=1 to n do begin For j:=1 to n do write (x[I,j]; writeln; end; Вариант 1211 12 End; B) procedureoutmas (x:mas); Begin For i:=1 to n do For j:=1 to n do write (x[I,j]; end; C) procedureoutmas (x:mas); Begin For i:=1 to n do begin For j:=1 to n do write (x[I,j]; writeln; D) procedureoutmas (x:mas): integer; Begin For i:=1 to n do begin For j:=1 to n do write (x[I,j]; writeln; end; End; E) procedureoutmas (x:mas); Begin For i:=1 to n do begin For j:=1 to n do write (x[I]; writeln; end; End; Вариант 1211 110. Схема 6 C ФункцияGETMAXX, GETMAXY, А) инициирует графический режим работы адаптера В) определяет результат последнего обращения к графическим процедурам С) определяют максимальные координаты экрана в текущем режиме и восстанавливает текстовый режим работы экрана D)завершает работу адаптера в графическом режиме и восстанавливает текстовый режим работы экрана E)определяет текущие координаты указателя по горизонтали и вертикали 7 C. Укажите операцию над множествами, результатом которой является первое множество, дополненное недостающими элементами из второго множества А) IN B) разность C) объединения Вариант 1211 D) пересечение 12 Вариант 1211 111. Схема E) включение 8 A. что хранится в стандартной переменной Heapend? А) Конец динамической памяти B) Содержимое указателя C) Адрес указателя D) Текущая граница динамической памяти E) Начало динамической памяти 9 C .Переменные объявлены следующим образомЖ р1, р2:^real; р3: ^integer; На сколько байт сместиться указатель Heapptrпосле выполнения фрагмента программы? Begin new (p1); new (p2); new (p3); end; А) 6 B) 3 C) 14 D) 18 E) 10 11 B. Логические переменные имеют значения а:=falseи b:=false. Чему равно значение aorb? А) true B) false C) зависит от времени выполнения D) не определено E) зависит от реализации компилятора 12C. Что выйдет на экран в результате выполнения программы: Begin A:=15; B:=30; C:=0; Вариант 1211 Write(C) 12 C:=A+B; End А) 45 B) 15 C) 0 D) 30 E) 20 13 D. Что выйдет на экран в результате выполнения программы: Begin A:=5; B:=19; C:=3; C:=C*A; Write(C) End А) 19 B) 5 C) 20 D) 15 E) 24 14 B. Что вычисляет следующая программы Program pr; const n=10; var a:array [1..n] of integer; m,i: integer; begin for i:=1 to n do real (A[i]); m:=A[1]; i:=1; while (A[i]<>0)do begin if m> A[i] then m:=A[i]; Вариант 1211 112. Схема Вариант 1211 inc(i); 12 Вариант 1211 113. Схема end; writeln(‘m=’m,); end. А) минимальный элемент после 1 –го нулевого элемента массива А B) минимальный элемент до 1 –го нулевого элемента массива А C) минимальный элемент массива А D) максимальный элемент до 1 –го нулевого элемента массива А E) максимальный элемент после 1 –го нулевого элемента массива А 15 D . Если у массива A(N)есть элемент равный квадрату последнего элемента, то все элементы следующие за ним, возвести в квадрат, иначе вывести массив без изменения. Выберите правельный фрагмент программы А) for i:=1 to n do Ifa[i]=sqr(a[n])then begin For L:=i-1 to n do a[L]:=sqr(a[L]); end; B) for i:=1 to n do Ifa[i]=sqr(a[n])then begin For L:= 1 to n do a[L]:=sqr(a[L]); end; C) for i:=1 to n do Ifa[i]=sqrt(a[n])then begin For L:=i+1 to n do a[L]:=sqrt(a[L]); end; D) )for i:=1 to n do Ifa[i]=sqr(a[n])then begin For L:=i+1 to n do a[L]:=sqr(a[L]); end; Вариант 1211 E) )for i:=1 to n do 12 Вариант 1211 114. Схема Ifa[i]=sqr(a[n])then begin For i:=i+1 to n do a[L]:=sqr(a[L]); end; 16 E. Укажите результат исполнения программы. Program pr; Var a, b, c, d: integer; u, p, s: integer; function f (x,y:integer): integer; begin if (x<y) then f:x else f:y; end; begin a:=5; b=-5; c:=2; d:=7; u:=f(a,b); p:=f(u,c); s:=f(p,d); writeln(u,p,s) end. А) 5 2 7 B) -5 -5 -5 C) 5 2 7 D) ups E) 5 2 2 17 E. Укажите правильный вариант ответа для решения следующей задачи: построить прямоугольник, у которого координаты левого верхнего угла (10, 10) и первого нижнего угла (150, 100). А) Rectangel (100, 10, 10, 150) B) Rectangel (10, 100, 10, 150) C) Rectangel (100, 10, 150, 100) D) Rectangel (10, 10, 100, 150) Вариант 1211 12 E) Rectangel (10, 10, 150, 100) Вариант 1211 115. Схема 18 E. Используя операторы WITH, присвоить переменной Aдр1 значение, соответствующее адрусу “Алматы, улАйэзова, д.50, кв.55”. Кроме того, переменной Aдр2 рисвоить такое же значение, заменив в нем номер дома на 155 TYPE адрес=RECORD город, улица: string; дом, квартира:1..999 END; VAR Aдр1,Aдр2:адрес; А) WITH Aдр1 DO BEGIN город:=’Алматы’; улица:=’Ауэзова’; дом:=50; квартира:=55; END; Aдр2:= Aдр1; Aдр2.квартира:=155; B) WITHAдр1DO город:=’Алматы’; улица:=’Ауэзова’; дом:=50; квартира:=55; Aдр2:= Aдр1; Aдр2.квартира:=155; C) WITHAдр1DO BEGIN город:=’Алматы’; улица:=’Ауэзова’; дом:=50; квартира:=55; END; Aдр2.квартира:=155; D) WITHAдр1DO BEGIN город:=’Алматы’; улица:=’Ауэзова’; дом:=50; квартира:=55; END; Aдр2:= Aдр1; Aдр2.квартира:=15; E) WITHAдр1DO BEGIN Вариант 1211 12 город:=’Алматы’; улица:=’Ауэзова’; дом:=50; квартира:=55; END; Aдр2:= Aдр1; Aдр2.квартира:=155; 19 A. Операция сравнения “не равно ” имеет вид: А) < B) > C) = D) <> E) != 20 C. Что будет напечатано следующим фрагментом программы? Var X,y:^integer; Begin New(x):x^:15; y:=x: write(y^); writeln (x^+10); Dispose(x); End: А) y^ x^ +10 B) x 25 C) 15 25 D) y^ 25 E) 15 x^ +10 21 D. Процедура rewrite при работе с файлом позволяет: А) стереть файл B) присвоить имя файловой переменной C) не применяется D) перезаписать файл E) закрыть файл 22 C. Описание текстовой файловой переменной х имеет вид: А) x;text B) x.text Вариант 1211 116. Схема Вариант 1211 C) x:text 12 Вариант 1211 117. Схема D) x;document E) x;file 23 C. Укажите правильную запись оператора присваивания Если A,I,J,K: integer; X,Y,Z:real; B:Boolean; 1. X:=Y+sin(sin(z)); 2.A:=(X<Y) or (Band (I<>K)); 3. X:=I+J-B; 4. I:=I+K/J. А) 1 и 2 B) 3 и 4 C) 1 и 3 D) 4 и 1 E) 2 и 4 24 C. Отрицательные элементы четных столбцов массива A[10,10] заменить квадратами этих элементов А) FOR J:=1 TO 5DO FOR I:=1 TO 10 DO IF A[I,2*J]<0 THEN A[I,2*J]:=A[I,2*J]*2 B) FOR J:=1 TO 5DO FOR I:=1 TO 10 DO IF A[I,2*J]<0 THEN A[I,J]:=A[I,2*J]*2 C) FOR J:=1 TO 5DO FOR I:=1 TO 10 DO IF A[I,2*J]<0 THEN A[I,2*J]:=SQR(A[I,2*J]) D) FOR J:=1 TO 10DO FOR I:=1 TO 10 DO IF A[I,2*J]<0 THEN A[I,2*J]:=SQR(A[I,2*J]) E) FOR J:=1 TO 5 DO FOR I:=1 TO 10 DO IF A[I,2*J]<0 THEN A[I,2*J]:=SQR(A[I,J]) 25 D. Укажите результат исполнения программы при значениях n=5; m=3; 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 Fori:=1 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. А) c1/(c2*c3); B) 0,1 C) 120 D) 10 E) c 26 E.Укажите результат исполнения программы при значениях 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 Fori:=1 to n do Вариант 1211 118. Схема Вариант 1211 P:=p*I; 12 End; Begin Readln(n,m); Fact(n,c1); Fact(m,c2); Fact(n-m,c3); C:=c1/(c2*c3); Writeln(c) End. А) c B) 6 C) 1/3 D) c1/(c2*c3); E)3 28 A. Что выполняет следующий фрагмент программы? Type t=array [1..n] of integer; Var b:^t; begin new(b); read (b^[1]); k:=b^[1]; for i:=2 to n do begin read (b^[1]); if b^[i] < k then k:=b^[i] end; writeln(b^[k]); end. А) Печатает число b[k], номер которого равен минимальному из чисел b1,b2,..bn B) Печатаетнаименьшееиз чисел b1,b2,..bn Вариант 1211 119. Схема Вариант 1211 12 Вариант C) Печатает число b[k], номер которого равен минимальному из чисел b1,b2,..bn 1211 120. Схема D) Печатаетадрес число b^[k] E)Печатает наибольшее из чисел b1,b2,..bn 29 C. Что будет напечатано следующим фрагментом программы ? Var X,y:^integer; begin new(b); x^:=5; y:=x; write(y^); writeln(x^+20); Dispose(x); Еnd. А) y^ 25 B) y^ X^ +20 C) 5 25 D) 5 x^+10 E)x 25 30 A. Укажите правильный фрагмент программы. Даны натуральное число n. Целые числа а1, ф2,..,an. Выяснить, имеются ли среди чисел а1, ф2,..,an совпадающие. А) 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 (‘нет совпадающих’); Вариант 1211 M:End. 12 B) 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. 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 writeln (‘естьсовпадающие’); goto M; end; writeln (‘нетсовпадающих’); M:End. D) label M; Type t=array [1..n] of integer; Вариант 1211 121. Схема Вариант 1211 Var 12 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 writeln (‘естьсовпадающие’); goto M; end; writeln (‘нетсовпадающих’); M:End. E) 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 writeln (‘естьсовпадающие’); goto M; end; writeln (‘нетсовпадающих’); M:End. Вариант 1211 122. Схема