Задание № 2
вариант № 1 (№№:1, 5, 9, 13, 17, 21, 25, 29) 1. Укажите ошибочные записи подпрограммы: а) Procedure S (a:array[1..10] of real; var c:real); b) Function Max(a,b:real):real; c) Procedure SuM(a,b:real;VAr c:real); d) procedure Poriz(a,b:byte):byte;
1) a,b 2) b 3) b,c 4) a,d
2. Определить результат работы программы при х=3, а=3. program Ex_12; var a:real; x:byte; function St(a:real;x:byte):extended; begin if x=1 then St:=a else St:=a*St(a,x-1); end;
Begin writeln('.......'); readln(a,x); writeln(St(a,x)); readln End.
1) 6 2) 27 3) 9 4) 3 3. Какое расширение имеют файлы-модули в Паскале?
1) pas 2) exe 3) com 4) tpu 4. Какая процедура позволяет преобразовать строку в число?
1) Str 2) Val 3) Int 4) Length
5. Укажите неверный вариант описания файлов: a) VAR MYFILE: file of integer; b)Type OPSLAG=File of Real; c) Type TEXTov: File of Char; Var BOOK: TEXTov; d) var text: file of text;
1) a 2) b 3) c 4) d вариант № 2 (№№: 2, 6, 10, 14, 18, 22, 26, 30) 1. Для следующей программы определите, что будет напечатано: var c, d: integer; procedure P(x, y: integer); begin y:=x+1; end; begin c:=2; d:=0; P(sqr(c)+d, d); writeln(c, d); end.
1) 5,2 2) 2,5 3) 2,0 4) 5,0 2. Для чего предназначены модули?
1) для хранения данных базы; 2) для ввода данных базы и их просмотра; 3) для автоматического выполнения группы команд; 4) для выполнения сложных программных действий.
3. Найдите неверную запись:
а) A1:=[a,b]; B1:=[a,b,c,d]; if A1 in B1 then…; b) A1:=[a,b]; B1:=[c,d] include (A1,B1); c) A1:=[a,b,c,]; B1:=A1; d) A1:=[a,b]; B1:=[a,b,c,d]; A1*B1;
1) a 2) b 3) c 4) d
4. Укажите верный вариант описания массива: а) const n = 41; var х: array [l..m] of real;
b) const n = 41; var х: array [n] of real;
c) Type текст = array [1..72] of char; шифр = array [char] of char; var t:текст; k:шифр; d) type name = (Olga,Gena, Masha,Nina); var pol: array [name] of (mug, gen);
1) a 2) b 3) c 4) d
5. Команды какого модуля можно выполнять над файлами?
1) Dos 2) Crt 3) System 4) Graph вариант № 3 (№№: 3, 7, 11, 15, 19, 23, 27, 31) 1. Укажите номер строки с ошибкой: function NOD (n, m:integer): integer; begin while (n<>0) and (m<>o) do if n > m then n:= n-m else m:= m-n; if n =0 then NOD:= m else NOD:=n; end; var n,m:integer; begin writeln(‘Введите n, m’); readln(n,m); writeln (NOD); readln end.
1) 13 2) 1 3) 3 4) 9 2. Какое служебное слово используют для объявления в модуле раздела инициализации?
1) unit 2) implementation 3) interface 4) begin 3. Что будет выведено на экран в результате работы следующей программы? type chars='a'..'g'; var a:chars; begin writeln(high(chars)); end.
1) a 2) a,b,c,d,e,f,g 3) g 4) пустая строка
4. Какая функция определяет длину файла?
1) FilePos 2) FileSize 3) Length 4) Append
5. Что будет выведено на экран в результате выполнения программы? var sc: set of char; ss:string;i: integer;begin sc:= ['а','е','и','о','у','э','ю','я']; ss:='крокодильчики'; for i:=0 to length(ss) do if ss[i] in sc then write(ss[i]); readln;end.1) оии 2) oиии 3) ooиии 4) oи вариант № 4 (№№: 4, 8, 12, 16, 20, 24, 28, 32) 1. Какова глубина рекурсии в следующей подпрограмме при n=123? function P(n:longint): longint; begin if n < 10 then P:= n else P:= P(n div 10) * n mod 10; end;
1) 2; 2) 3; 3) 1; 4) 10;
2. Процедуры и функции какого модуля можно использовать, не подключая модуль явно?
1) Graph 2) Crt 3) System 4) DOS
3. Тип множества вводится описанием: type <имя типа множества> =set of <имя... типа>. Имя какого типа должно быть вместо многоточия?
1) целого 2) вещественного 3) литерного 4) порядкового
4. Что делает следующая программа? program Whatlslt; var f: file of integer; i: integer; begin reset(f); while not eof(f) do begin read(f, i); writeln(i); end; close(f); end.
1) выводит в столбик числа, записанные в файле; 2) выводит в строку числа, записанные в файле; 3) записывает числа в новый файл; 4) дописывает числа в существующий файл.
5. Что будет выведено на экран в результате выполнения программы? var ss:string; c:char;begin ss:= 'studentka'; for c:='s' to 'u' do delete(ss,pos(c,ss),2); write(ss); readln;end.
1) ena 2) udentka 3) udena 4) stenka
|