Задание № 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. Что будет выведено на экран в результате работы следующей программы?
uses crt;

type chars='a'..'g';

var a:chars;

begin
clrscr;

writeln(high(chars));
readkey;

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