Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Гос.экзамен по специальности ВТиП / АиОП (100 вопросов без ответов)

.docx
Скачиваний:
12
Добавлен:
23.05.2018
Размер:
45.18 Кб
Скачать

1) Результат выполнения подпрограммы-функции в головную программу передается через:

a) Имя функции

b) Массив

c) Параметры-переменные

d) Параметры-значения

e) Метки

2) Результат выполнения подпрограммы-процедуры в головную программу передается через:

a) Параметры-переменные

b) Массив

c) Имя функции

d) Параметры-значения

e) Имя процедуры

3) Укажите верный заголовок подпрограммы-функции:

a) Function F(a, b: real): real;

b) Function F(a, b: real);

c) Function F(a, b: real) real;

d) Function F(a, b): real;

e) Function F: real;

4) Укажите верный заголовок подпрограммы-процедуры:

a) Procedure F(a, b: real; var s: real);

b) Procedure F(a, b: real; s: real):real;

c) Procedure F(a, b: real, var s: real);

d) Prosedure F(a, b: real; var s: real);

e) Procedura F(a, b: real; var s: real);

5) В подпрограмме c заголовком Procedure Pr(A: real; n, m: integer; var P: real; var k: integer); результат в головную программу будет передаваться через:

a) Переменные P, k

b) Переменную Pr

c) Переменную P

d) Переменную k

e) Переменные n, m

6) В подпрограмме, имеющей заголовок Function Sum (A: real; n, m: integer): real; результат в головную программу будет передаваться через:

a) Переменную Sum

b) Переменную A

c) Переменную n

d) Переменную m

e) Переменные n, m

7) Найдите правильный вариант обращения к подпрограмме-функции:

a) Y:=F(5, 3, A);

b) Y=F(5, 3, A);

c) Y:=F(n, m: integer; A: real);

d) F(5, 3, A);

e) F(5, 3, A):=Y;

8) Найдите правильный вариант обращения к подпрограмме-процедуре:

a) F(5, 3, A, Sum);

b) F(n, m: real; A: integer; var Sum: real);

c) Y:=F(5, 3, A, Sum);

d) F(5; 3; A; Sum);

e) Y:=F(n, m: real; A: t; var Sum: real);

9) Найдите правильный фрагмент программы подсчета суммы элементов каждой строки матрицы А размером 3х5:

a) For i:=1 to 3 do begin k[i]:=0; for j:=1 to 5 do k[i]:=k[i]+a[i, j]; end;

b) For j:=1 to 5 do begin k[i]:=0; for j:=1 to 3 do k[i]:=k[i]+a[i, j]; end;

c) For i:=1 to 3 do k[i]:=0; for j:=1 to 5 do k[i]:=k[i]+a[i, j];

d) k[j]:=0; for i:=1 to 3 do for j:=1 to 5 do k[j]:=k[j]+a[i, j]; end;

e) For i:=1 to 3 do begin k[i]:=0; for j:=1 to 5 do k[j]:=k[j]+a[i, j]; end;

10) Найдите правильный фрагмент программы подсчета суммы элементов матрицы А размером3х5:

a) S:=0; for i:=1 to 3 do for j:=1 to 5 do S:=S+a[i, j];

b) For i:=1 to 3 do begin S:=0; for j:=1 to 5 do S:=S+a[i,j]; end;

c) For i:=1 to 3 do for j:=1 to 5 do S:=S+a[i, j];

d) S:=0; for i:=1 to 3 do for j:=1 to 5 do S:=S+1;

e) For i:= to 3 do S:=0; for j:=1 to 5 do S:=S+a[i, j];

11) Найдите правильный фрагмент программы накапливания произведения элементов матрицы А размером 4х4:

a) P:=1; for i:=1 to 4 do for j:=1 to 4 do P:=P*a[i, j];

b) For i:=1 to 4 do for j:=1 to 4 do P:=P*a[i, j];

c) For i:=1 to 4 do begin P:=1; for j:=1 to 4 do P:=P+a[i, j]; end;

d) P:=0; for i:=1 to 4 do for j:=1 to 4 do P:=P*a[i, j];

e) For i:=1 to 4 do P:=0; for j:=1 to 4 do P:=P*a[i, j];

12) Найдите правильный фрагмент программы подсчета суммы элементов каждого столбца матрицы А размером 4х3:

a) For j:=1 to 3 do begin k[j]:=0; for i:=1 to 4 do k[j]:=k[j]+a[i, j]; end;

b) For j:=1 to 4 do begin k[j]:=0; for i:=1 to 3 do k[j]:=k[j]+a[i, j];

c) For j:=1 to 3 do k[j]:=0; for i:=1 to 4 do k[j]:=k[j]+a[i, j];

d) k[i]:=0; for i:=1 to 4 do for j:=1 to 3 do k[j]:=k[j]+a[i, j];

e) For j:=1 to 3 do begin k[j]:=1; for i:=1 to 4 do k[j]:=k[j]+a[i, j]; end;

13) Найдите правильный фрагмент поиска минимального элемента главной диагонали матрицы D размером 5х5:

a) min:=d[1,1]; for i:=2 to 5 do if d[i, i]<min then min:=d[i, i];

b) min:=0; for i:=2 to 5 do if d[i, i]<min then min:=d[i, i];

c) For i:=2 to 5 do if d[i, i]<min then min:=d[i, i];

d) min:=d[1,1]; for i:=2 to 5 do if d[i, i]>min then min:=d[i, i];

e) min=d[1,1]; for i:=2 to 5 do if d[i, i]<min then min=d[i, i];

14) Найдите правильный фрагмент поиска суммы элементов главной диагонали матрицы А размером 5х5:

a) S:=0; for i:=1 to 5 do S:=S+a[i, i];

b) S:=1; for i:=1 to 5 do S:=S+a[i, i];

c) S:=0; for i:=1 to 5 do S:=S+1;

d) For i:=1 to 5 do S:=S+a[i, i];

e) S:=0; for i:=5 to 1 do S:=S+a[i, i];

15) Найдите правильный фрагмент поиска произведения элементов побочной диагонали матрицы B размером 4х4:

a) P:=1; for i:=1 to 4 do P:=P*b[i, 5-i];

b) P:=0; for i:=1 to 4 do P:=P*b[i, 5-i];

c) P:=1; for i:=1 to 4 do P:=P*b[5-i];

d) P=0; for i:=1 to 4 do P:=P*b[i, i];

e) P:=1; for i:=1 to 4 do P:=P*b[i, i];

16) В результате выполнения фрагмента программы: a:=’оценка’; b:=pos(‘цен’, a); c:=pos(‘ока’, a);:

a) b=2, c=0

b) a=3, c=1

c) b=5, c=0

d) b=’ока’, с=’окаоценка’

e) b=1, c=2

17) Укажите верное значение функции copy(‘abcde’, 2, 3):

a) ‘bcd’

b) ‘cd’

c) 23

d) ‘bbb’

e) ‘abbbcde’

18) В результате выполнения фрагмента программы: S:=’монитор’ ; delete(S, 2, 3);

a) S=’мтор’

b) S=’мотор’

c) S=0

d) S=’мнитор’

e) S=7

19) В результате выполнения фрагмента программы: h:=’27’; x:=’abcd’; insert(h, x, 2);

a) h=’27’, x:=’a27bcd’;

b) h=’2abcd7’, x=’abcd’

c) h=’27’, x=’ab27cd’

d) h=x=’27abcd’

e) h=x=’27’

20) В результате выполнения фрагмента программы: y:=1; if length(‘дом’)>3 then y:=0;

a) y=1

b) y=0

c) y=3

d) y=10

e) будет выдано сообщение об ошибке

21) В результате выполнения фрагмента программы: x:=’12309354231’; y:=pos(‘23’, x); z:=pos(‘32‘, x);

a) y=2, z=0

b) y=9, z=2

c) y=9, z=0

d) y=2, z=12

e) y=’2312309354231’ , z=0

22) Какой тип имеет функция pos(‘1.2’, x)?

a) целый

b) вещественный

c) строковый

d) логический

e) символьный

23) В результате выполнения процедуры str(2/3: 6: 4, y);

a) y=’0.6666’

b) y=0.6666

c) y=’0.666’

d) y=0.666

e) y=0

24) В результате выполнения фрагмента программы var a, x: integer; … val(‘236’,x, a);

a) x=236, a=0

b) x=’236’, a=0

c) x=0, a=236

d) x=0, a=’236’

e) x=0, a=0

25) В результате выполнения фрагмента программы: var a, x: integer; ...x:=0; val(‘2.36’, x, a);

a) x=0, a=2

b) x=2.36, a=0

c) x=’0’, a=2

d) x=2, a=23

e) x=’2’, a=23

26) Оператор while a[length(a)]=’ ‘ do delete(a, length(a), 1);

a) удалит в строке а ведомые пробелы (пробелы после текста)

b) удалит в строке а ведущие пробелы (пробелы перед текстом)

c) вставит в строке а пробел после каждого слова

d) удалит в строке а все пробелы

e) оставит самый левый пробел

27) Оператор x:=x+’ ‘;

a) добавит пробел в конце строки х

b) добавит пробел в начале строки х

c) добавит пробел после каждого слова строки х

d) удвоит числовое значение х

e) обнулит х

28) Пусть х-строка из слов, разделенных пробелами. Тогда функция copy(x, 1, pos(‘ ‘, x) возвращает;

a) первое слово строки х с пробелом в конце

b) первое слово строки х без пробела в конце

c) первое слово строки х с пробелом в начале

d) строку х

e) символ пробел

29) В результате выполнения фрагмента программы var a, b: integer; c, d: real; … a:=1; b:=2; c:=3; d:=4.856; write(a, b, c, d: 5: 2); на экран монитора будет выведена строка:

a) 12 3.0000000000E+00 4.86

b) 1 2 3E0 4.856

c) 1 2 3 4.86

d) 12 3.0 4.856

e) 12 3.0000000000E+00 4.856

30) В результате выполнения фрагмента программы: a:=’12’+’8’; b:=’10’; c:=a+b; write(a, b, c); на экран монитора будет выведена строка:

a) 1281012810

b) 201030

c) 12+8+10

d) 128 10 138

e) 20 10 30

31) Согласно описания:VAR A:integer;A является ...

a) переменной целого типа

b) переменной вещественного типа

c) переменной символьного типа

d) переменной логического типа

e) записью

32) Согласно описания:VAR A:char;A является ...

a) переменной символьного типа

b) переменной целого типа

c) переменной вещественного типа

d) переменной логического типа

e) записью

33) Согласно описания:VAR A:boolean;A является ...

a) переменной логического типа

b) переменной целого типа

c) переменной вещественного типа

d) переменной символьного типа

e) записью

34) В результате выполнения какого оператора на экране отобразится число 1.333 при х=1.3333333333 ?

a) Write(x:5:3);

b) Write(x:5);

c) Write(x:3:2);

d) Write(x);

e) Write(x:1:333);

35) В результате выполнения какой последовательности операторов будет выведена информация: РЕЗУЛЬТАТ РАСЧЕТА y=5 x=10

a) y:=5; x:=10; Writeln('РЕЗУЛЬТАТ РАСЧЕТА'); Writeln('y=',y,' x=',x);

b) y:=5;x:=10; Write('РЕЗУЛЬТАТ РАСЧЕТА');Write('y=',y,' x=',x);

c) y:=5; x:=10; writeln('РЕЗУЛЬТАТ РАСЧЕТА'); Writeln('y=',y); writeln('x=',x);

d) y:=5; x:=10; write('РЕЗУЛЬТАТ РАСЧЕТА');Writeln('y=',y,'x=',x);

e) write('РЕЗУЛЬТАТ РАСЧЕТА');Writeln('y=',5,'x=',10);

36) В результате выполнения какой последовательности операторов будет выведена следующая информация: Привет!!!

a) Writeln('Привет!!!');

b) Write('Привет!!!');Writeln('Hello!');

c) Writeln('Привет!!!');Writeln('Hello!');

d) Write('Привет!!!');Writeln;Writeln('Hello!');

e) Write('Привет!!!');Write;Writeln('Hello!');¦

37) Оператор Case - это ...

a) оператор выбора

b) условный оператор

c) оператор безусловного перехода

d) оператор цикла

e) оператор присвоения

38) Оператор IF ... THEN ... ELSE ... - это ...

a) условный оператор

b) оператор выбора

c) оператор присвоения

d) оператор цикла с постусловием

e) оператор условного перехода

39) Оператор Goto - это ...

a) оператор безусловного перехода

b) оператор выбора

c) оператор цикла

d) условный оператор

e) оператор присвоения

40) Результатом какой операции будет число 5?

a) 11 DIV 2

b) 4 DIV 20

c) 5 DIV 5

d) 1 DIV 5

e) 17 DIV 6

41) Результатом какой операции будет число 3?

a) 13 MOD 5

b) 11 MOD 3

c) 12 MOD 3

d) 3 MOD 2

e) 12 MOD 4

42) Какой из ниже предложенных операторов для А типа Integer вызовет ошибку?

a) A:=35/7;

b) A:=3;

c) A:=A*5-1;

d) A:=A*A-50*A;

e) Writeln('Ответ:',A:3);

43) Var Y:Real;A:Integer;Укажите недопустимый оператор.

a) A:=Chr(Trunc(Y))

b) A:=Trunc(A/Y)

c) A:=A*Trunc(A/Y)

d) A:=SQR(A) div A

e) A:=5;

44) В каком случае верно записана на Паскале формула ?

a) Sqr(Cos(X))+Sin(Sqr(X))

b) Cos(Sqr(X))+Sin(Sqr(X))

c) Sqr(Cos(X))+Sqr(Sin(X))

d) Cos(Sqr(X))+Sqr(Sin(X))

e) Cos(X^2)+ (Sin(X))^2

45) В результате выполнения операторов:A:=79;If (A div 5=15) and (a<=79) Then Write('*') Else Write('+');Write('$');на экран выведется ...

a) * $

b) * + $

c) * +

d) + $

e) В этих операторах допущена ошибка; они не будут работать!

46) Какой из операторов верно описывает логическое выражение: 0<X<3 или X>7 ?

a) (X>0) and (X<3) or (X>7)

b) (X>0) or (X<3) and (X>7)

c) (X>0) and (X<3) and (X>7)

d) (X>0) or (X<3) or (X>7)

e) (X>0) or not(X<3) or (X>7)

47) Какой из операторов верно описывает условие: X<0 или 2<X<4 или X>6 ?

a) (X<0) or (X>2) and (X<4) or (X>6)

b) (X<0) and ((X>2) or (X<4)) and (X>6)

c) (X<0) and ((X>2) and (X<4)) and (X>6)

d) (X<0) or ((X>2) or (X<4)) or (X>6)

e) not(X<0) and ((X>2) and (X<4)) and (X>6)

48) В каком из операторов нет ошибки?

a) Case K of 'a'..'z':Writeln('*');Else Writeln('-');end;

b) Case K of '+','-','*','/':Writeln('Опер-я'); 1..9:Writeln('Цифра');Else Writeln('Перем-ая'); end;

c) Case K of 0..20:M:=K;C:=K div 10; 30..40,50..61:C:=K mod 10; Else M:=K+SQR(K); end;

d) Case K of 5..15:K:=K+1; 25..35:K:=K/17+1; Else K:=K/3; end;

e) Case K of 5..15:K:=K+1;25..35:K:=K*17.3+1;Else K:=K*3.5; end;

49) Оператор WHILE ... DO ... - это ...

a) оператор цикла с предусловием

b) оператор цикла с постусловием

c) оператор цикла с заранее известным числом повторений

d) оператор выбора

e) оператор вывода

50) Оператор REPEAT ... UNTIL ... - это оператор ...

a) цикла с постусловием

b) цикла с заранее известным числом повторений

c) выбора

d) цикла с предусловием

e) вывода

51) Оператор FOR ... TO ... DO ... - это оператор ...

a) цикла с заранее известным числом повторений

b) оператор цикла с постусловием

c) цикла с предусловием

d) условного перехода

e) вывода

52) Определить значение переменной S после выполнения следующих операторов: S:=0; I:=0;while I<3 do begin I:=I+1; S:=S+I end;

a) 6

b) 3

c) 10

d) 1

e) 0

53) Определить значение переменной S после выполнения следующих операторов:S:=0; I:=1;while I>1 do begin S:=S+I; I:=I-1 end;

a) 0

b) 1

c) 2

d) -1

e) в результате выполнения операторов произойдет зацикливание

54) Определить значение переменной S после выполнения операторов: S:=0; I:=3;Repeat S:=S+I; I:=I-1 Until I<=1;

a) 5

b) 1

c) 2

d) 0

e) в результате выполнения операторов произойдет зацикливание

55) Какой фрагмент программы из ниже перечисленных находит значение y=cos x + cos 2x + cos 3x + ... + cos 30x

a) y:=0;for i:=1 to 30 do y:=y+cos(i*x);

b) y:=0;for i:=1 to 30 do y:=y+i*cos(x);

c) y:=1;for i:=1 to 30 do y:=y+cos(i*x);

d) y:=0; i:=0; for i:=1 to 30 do begin i:=i+1;y:=y+cos(i*x) end;

e) нет правильного ответа

56) Какой фрагмент программы из ниже перечисленных находит значение y=n!

a) y:=1; for i:=1 to n do y:=y*i;

b) y:=0; for i:=1 to n do y:=y*i;

c) y:=1; for i:=1 to n do y:=y-i;

d) y:=1; for i:=0 to n do y:=y*i;

e) нет правильного ответа

57) Какой фрагмент программы из ниже перечисленных вычисляет

a) y:=1;for i:=1 to n do y:=y*x;

b) y:=1;for i:=1 to n do y:=y+exp(i*ln(x));

c) y:=1;for i:=1 to n do y:=y*exp(i*ln(x));

d) y:=1;for i:=1 to n do y:=y*exp(ln(x));

e) нет правильного ответа

58) В каком из предложенных вариантов правильно описан двумерный массив, состоящий из элементов вещественного типа:

a) A:array[1..2,1..9] of real;

b) A:array[1..4,1..7] of integer;

c) A:array[1..5] of real;

d) A:array[1...3,1...5]of real;

e) нет правильного ответа

59) В каком из предложенных вариантов правильно описан одномерный массив, состоящий из элементов целого типа:

a) A:array[1..6] of integer;

b) DIM A(4)

c) A:array[1..4,1..4] of integer;

d) A:array[1...7] of integer;

e) нет правильного ответа

60) Какой фрагмент программы из ниже перечисленных находит максимальный элемент одномерного массива A размерностью N элементов:

a) m:=A[1]; for i:=2 to n do if A[i]>m then m:=A[i];

b) for i:=1 to n do begin m:=A[1]; if a[i]>m then m:=a[i] end;

c) m:=A[1];for i:=2 to n do if A[i]<m then m:=A[i];

d) m:=A[1];for i:=2 to n do if A[i]>m then m:=A[i] else m:=A[i-1];

e) нет правильного ответа

61) Какой фрагмент программы из ниже перечисленных находит минимальный элемент в одномерном массиве А размерностью n элементов:

a) m:=a[1]; for i:=2 to n do if a[i]<m then m:=a[i];

b) m:=a[1]; for i:=1 to n do if a[i]>m then m:=a[i];

c) m:=a[1]; for i:=1 to n do if a[i]<m then m:=a[i] else m:=a[i-1];

d) for i:=2 to n do begin m:=a[1]; if a[i]<m then m:=a[i] end;

e) for i:=n downto 1 do begin m:=a[1];if a[i]<m then m:=a[i] end;

62) Какой фрагмент программы из ниже перечисленных находит сумму элементов одномерного массива A размерностью n элементов:

a) s:=0; for i:=1 to n do s:=s+a[i];

b) s:=0;for i:=n downto 1 do s:=a[i];

c) s:=1;for i:=1 to n do s:=s+a[i];

d) s:=1;for i:=1 to n do s:=s*a[i];

e) s:=1;for i:=1 to n do s:=s*a[i];

63) Дан одномерный массив A размерностью n элементов. Какой фрагмент из ниже перечисленных находит значение y=a[1]-a[2]+a[3]-a[4]+ ... -a[n-1]+a[n] ?

a) y:=0; k:= -1; for i:=1 to n do begin k:=k*(-1); y:=y+k*a[i] end;

b) y:=0; k:=1; for i:=1 to n do begin k:=k*(-1); y:=y+k*a[i] end;

c) y:=0; k:= -1; for i:=1 to n do begin y:=y+k*a[i]; k:=k*(-1) end;

d) y:=0; k:= 1;for i:=1 to n do y:=y+a[i]*k; k:=k*(-1);

e) y:=0; k:= -1; for i:=n diwnto 1 do begin y:=y+k*a[i]; k:=k*(-1) end;

64) Какой фрагмент из ниже перечисленных находит максимальный элемент матрицы A размером NxN ?

a) m:=a[1,1]; for i:=1 to n do for j:=1 to n do if a[i,j]>m then m:=a[i,j];

b) m:=a[1,1]; for i:=1 to n do for j:=1 to n do if a[i,i]>m then m:=a[i,i];

c) m:=0; for i:=1 to n do for j:=1 to n do m:=m+a[i,j]; m:=m/(n*n);

d) for i:=1 to n do begin m:=a[i,1]; for j:=1 to n do if a[i,j]>m then m:=a[i,j] end;

e) m:=a[1,1]; for i:=n downto 1 do for j:=n downto 1 do if a[i,i]>m then m:=a[i,j];

65) Какой фрагмент из ниже перечисленных находит минимальный элемент матрицы A размером NxN?

a) m:=a[1,1]; for i:=1 to n do for j:=1 to n do if a[i,j]<m then m:=a[i,j];

b) m:=0; for i:=1 to n do for j:=1 to n do if a[i,j]<a[i,j+1] then m:=a[i,j] else m:=a[i,j+1];

c) m:=a[1,1]; for i:=1 to n do for j:=1 to n do if a[i,i]<m then m:=a[i,j];

d) for i:=1 to n do begin m:=a[i,1]; for j:=1 to n do if a[i,j]<m then m:=a[i,j] end;

e) m:=0; e) for i:=n downto 1 do for j:=n to 1 do if a[i,j]<a[i,j+1] then m:=a[i,j] else m:=a[i,j+1];

66) Какой фрагмент из ниже перечисленных выводит на экран сумму элементов каждой строки матрицы A размером NxN?

a) for i:=1 to n do begin s:=0; for j:=1 to n do s:=s+a[i,j]; writeln(s);end;

b) s:=0; for i:=1 to n do begin for j:=1 to n do s:=s+a[i,j]; writeln(s); end;

c) s:=0; for i:=1 to n do for j:=1 to n do s:=s+a[i,j]; writeln(s);

d) for i:=1 to n do begin s:=0; for j:=1 to n do s:=s+a[i,j]; end; writeln(s);

e) s:=0; for i:=n downto 1 do begin for j:=1 to n do s:=s+a[i,j]; writeln(s); end;

67) Какой фрагмент из ниже перечисленных меняет отрицательные элементы матрицы A размером NN на нули?

a) for i:=1 to n do for j:=1 to n do if a[i,j]<0 then a[i,j]:=0;

b) for i:=1 to n do for j:=1 to n do if a[i,j]>0 then a[i,j-1]:=0;

c) for i:=1 to n do for j:=1 to n do if a[i,j]<0 then begin x:=i; y:=j end; a[x,y]:=0;

d) for i:=1 to n do for j:=1 to n do if a[i,j]>0 then a[i-1,j]:=0;

e) for i:=n downto 1 do for j:=1 to n do if a[i,j]>0 then a[i-1,j]:=0;

68) Именованная область внешней памяти, содержащая последовательность компонент одного типа, причем число компонент не оговаривается, называется

a) Файлом

b) Массивом

c) Строкой

d) Записью

e) Множеством

69) Процедура, которая открывает новый файл для записи, при этом указатель файла устанавливается на его начало. Если уже имелся файл с этим именем, он уничтожается.

a) Rewrite

b) Append

c) Close

d) Reset

e) Assign

70) Процедура, которая открывает существующий текстовый файл для его дополнения, при этом указатель файла устанавливается на конец файла

a) Append

b) Close

c) Rewrite

d) Reset

e) Assign

71) Функция, которая возвращает значения TRUE, если достигнут конец файла f:

a) Eof(f)

b) Eoln(f)

c) Seekeof(f)

d) Seekeoln(f)

e) Write(f)

72) Функция, которая возвращает значение TRUE, если достигнут конец строки в файле f (указатель находится сразу за последним элементом строки), и FALSE в противном случае:

a) Eoln(f)

b) Seekeof(f)

c) Eof(f)

d) Seekeoln(f)

e) Write(f)

73) Процедура, которая записывает значение переменной z в открытый для записи файл, связанный с файловой переменной f

a) Write(f,z)

b) Rewrite(f,z)

c) Read(f,z)

d) Reset(f,z)

e) Read(z,f)

74) Процедура, которая считывает значение компоненты файла f по указателю файла в переменную z

a) Read(f,z)

b) Rewrite(f,z)

c) Write(f,z)

d) Reset(f,z)

e) Write(z,f)

75) Структура данных, состоящая из фиксированного числа компонент, которые называются полями и могут быть различного типа – это

a) Запись

b) Массив

c) Строка

d) Файл

e) Множество

76) Какой фрагмент из ниже перечисленных выводит на экран монитора таблицу кубов чисел, изменяющихся от 1 до 10 с шагом 0,1:

a) x:=1; repeat y:=x*x*x; writeln(x:5:1,y:10:3); x:=x+0.1; until x>10;

b) for x:=1 to 10 do begin y:=x*x*x; writeln(x:5:1,y:10:3); end;

c) for x:=1 to 10 step 0,1 do begin y:=x*x*x; writeln(x:5:1,y:10:3); end;

d) x:=1; while x<10 do begin y:=x*x*x; writeln(x:5:1,y:10:3); x:=x+0,1; end;

e) x:=1; for i:=1 to 10 do begin y:=x*x*x; writeln(x:5:1,y:10:3); x:=x+0,1; end;

77) В результате выполнения фрагмента программы: y=1 ; a:=1; while a>0.01 do begin a:=a/10; y:=y+a; end;

a) y=1.11

b) y=1.111

c) y=1.1111

d) y=1.1

e) y=10

78) В результате выполнения фрагмента программы: x:=10; while x<10 do x:=x+1;

a) x=10

b) x=11

c) x=12

d) x=1

e) x=100

79) В результате выполнения фрагмента программы: y:=5; repeat y:=y-1; until y<6;

a) y=4

b) y=5

c) y=6

d) y=3

e) y=0

80) Процедура, которая закрывает ранее открытый файл:

a) Close

b) Rewrite

c) Append

d) Reset

e) Assign

81) Пусть REC-запись, имеющая поля nom, fio, addres, причем поле fio имеет вложенные поля im и fam. Найдите правильное обращение к полю fam данной записи:

a) REC. fio. fam.

b) fam. fio. REC

c) REC. fam. fio.

d) nom. fio. im. fam.

e) REC. nom. fio. fam.

82) Назовите оператор, позволяющий обращаться к полям, не указывая каждый раз имя всей записи:

a) With

b) Case

c) Goto

d) If

e) For

83) Процедура, которая служит для установления связи между файловой переменной и именем того файла, за действия с которым эта переменная будет отвечать:

a) Assign

b) Close

c) Append

d) Rewrite

e) Reset

84) Процедура, которая служит для открытия существующего файла и считывания из него информации:

a) Reset

b) Close

c) Append

d) Rewrite

e) Assign

85) Какой оператор правильно вызывает процедуру PROCEDURE Kop(x:integer; var y:integer);

a) Kop(4,a);

b) Kop(3.5,a);

c) Kop(3,7);

d) Kop(9;y);

e) n:=Kop(5,a);

86) Какой оператор правильно вызывает процедуру PROCEDURE Ct(x,y:char; var z:real);

a) Ct('a','b',b);

b) Ct('a','b',3.5);

c) Ct(3,a,b);

d) Ct(a,b,c,d);

e) s:=Ct(a,b,’3.5’);

87) Согласно описания:VAR A:Real;A является ...

a) переменной вещественного типа

b) переменной целого типа

c) переменной символьного типа

d) переменной логического типа

e) записью

88) В результате выполнения какого оператора на экране отобразится число 1.234 при х=0.1234E1 ?

a) Write(x:5:3);

b) Write(x:5);

c) Write(x:3:5);

d) Write(x);

e) Write(x:1:333);

89) Раздел описания меток начинается служебным словом …

a) label

b) const

c) begin

d) var

e) program

90) Раздел описания переменных начинается служебным словом …

a) var

b) const

c) begin

d) label

e) program

91) Какой группой операторов на экран выводятся все четные числа от 1 до 20?

a) for i:=1 to 20 do if i mod 2 =0 then Write(i);

b) for i:=1 to 20 do write (i);

c) i:=2; Repeat i:=i+2; Write (i); Until i=20;

d) i:=2; Repeat i:=i+2;Write (i);Until not(i=20);

e) Правильного ответа нет

92) VAR A:boolean;Укажите недопустимый оператор.

a) A:=Sqr(A)

b) If A Then

c) A:=not A

d) A:=2>3

e) все операторы недопустимы

93) Согласно описания:VAR A:String;A является ...

a) строкой

b) переменной целого типа

c) переменной вещественного типа

d) переменной логического типа

e) переменной символьного типа

94) В каком случае верно записана на Паскале формула

a) (Sqrt(Sqr(X)*X)-Cos(Sqr(X)))/(Ln(X+1)+1)

b) (Sqrt(Sqr(X)*X)-Cos(Sqr(X)))/Ln(X-1)+1

c) Sqrt(Sqr(X)*X)-Cos(Sqr(X))/(Ln(X-1)+1)

d) Sqrt(Sqr(X)*X)-Cos(Sqr(X)) / Ln(X-1)+1

e) все варианты верны.

95) В каком случае в записи идентификатора допущена ошибка?

a) 5Abc

b) L123

c) Kl5m234dfsff323df

d) Isb

e) во всех перечисленных случаях

96) Для объединения нескольких операторов в один составной в языке Паскаль используются …

a) операторные скобки begin end;

b) круглые скобки ( );

c) квадратные скобки [ ];

d) фигурные скобки { };

e) все перечисленные способы.

97) Для создания комментариев в языке Паскаль используются …

a) фигурные скобки { };

b) круглые скобки ( );

c) квадратные скобки [ ];

d) операторные скобки begin end;

e) все перечисленные способы.

98) Процедура, которая открывает уже существующий файл для чтения или изменения, при этом указатель файла устанавливается на его начало.

a) Reset

b) Append

c) Close

d) Rewrite

e) Assign

99) С помощью какой функции можно найти и вернуть в основную программу сумму, вычисляемую по формуле

a) function sum(n:integer):integer; var i:integer; begin begin sum:=0; for i:=1 to n do sum:=sum+i+5; end;

b) function sum(n:integer):integer; var i,sum:integer; begin sum:=0; for i:=1 to n do sum:=sum+i+5; end;

c) function sum(n:integer):integer; var i,s:integer; begin s:=0; for i:=1 to n do s:=s+i+5; end;

d) function sum(n:integer):integer; var i:integer; s:real; begin s:=0; for i:=1 to n do s:=s+i+5; sum:=s; end;

e) function sum(n:integer):real; var i,s:integer; begin s:=0; for i:=1 to n do s:=s+i+5; end;

100) С помощью какой функции можно найти и вернуть в основную программу произведение, вычисляемой по формуле

a) procedure pr(n:integer; var p:integer); var i:integer; begin p:=1; for i:=1 to n do p:=p*(i+2); end;

b) procedure pr(var n:integer; p:integer); var i:integer; begin p:=1; for i:=1 to n do p:=p*(i+2); end;

c) procedure pr(var n:integer; p:integer):integer; var i:integer; begin p:=1; for i:=1 to n do p:=p*(i+2); end;

d) procedure pr( n:integer; var p:integer):integer; var i:integer; begin p:=1 for i:=1 to n do p:=p*(i+2); end;

e) procedure pr(var n:integer; p:integer); var i,p:integer; begin p:=1; for i:=1 to n do p:=p*(i+2); end;