Тесты на тему «Коды»

Укажите верное утверждение.

• Любой модуль состоит из трёх частей: первая часть предваряется служебным словом interface; вторая часть начинается со служебного слова implementation; последняя часть всегда состоит только из двух слов begin и end с точкой в конце.
• Любой модуль, созданный программистом, надо компилировать вместе с программой, которая его использует.
• Причины возникновения модульного программирования: возрастающие объёмы программ, их увеличивающаяся внутренняя сложность и коллективный характер разработок.

Что будет напечатано?
Write(copy(‘abcdefgh’, 3, 8))l;

Ответ:

Определите значение переменной s типа real после выполнения следующих операторов.

S:=0; i:=0;
while i<5 do i:=i+1; s:=s+1/i;

Ответ:

var A, B: array [1.. 15, 0..8] of real; t: boolean;
Какие из указанных операций допустимы?

• A:=B;
• A:=A+B;
• t:=A<>B;
• read(A);
• A[1]:=A[15];
• A[2,3]:=B[4][8]+B[1,1];

Укажите отношения, результат вычисления которых равен true.

• [3,6..8]<=[2..7,9]
• []<=[‘0’..’9’]
• ‘q’ in [‘a’..’z’]
• trunc(3..9) in [1,3,5]
• Odd(4) in []

Что будет напечатано программой, если для ввода заданы числа 1, 2 и 3?
var a, b: interg;
begin
read(b, a, b); writeln(a, b, a, b)
end.

Ответ:

Определите, какими будут значения переменных p и d после выполнения операторов:
p:=true; d:=1; k:=6;
case k mod 10 of
3, 2, 7, 5: d:=k;
1:;
4, 8: begin p:=false; d:=2 end;
9, 6: begin p:=false; d:=3 end
end;
Укажите сначала значение переменной p, а потом через пробел
значение переменной d.

Ответ:

Сколько раз будет выполняться тело следующего оператора цикла?
k:=0;
for i:=1 to k+999 do k:=k+1;

Подсказка: ответ можно получить не выполняя эту программу.
В ответ введите число.
Пример ввода ответа: 123

Ответ:

Пусть процедура maxmin(x, y) присваивает параметру x больше из вещественных чисел х и у, а параметру у — меньшее и возвращает параметры х и у. Пусть z и k — вещественные переменные.
Укажите, какие вызовы процедуры ошибочны.

• maxmin(5.2, sin(z))
• maxmin(x+y, x)
• maxmin(2, k)
• maxmin(z, k)

Даны описания:
type point1 = array [(x, y)] of real;
point2 = record x, y: real end;
complex = record x, y: real end;
var p1: point1; p2: point2; c: complex;
Укажите допустимую конструкцию.

• p1[ord(x)]
• p1[pred(y)]
• pred(y)

var f: text; i, x: integer;
Определите содержимое файла f после выполнения следующих операторов.
rewrite(f);
for i:=3 downto 1 do begin x:=sqr(i); write (f, x) end;
close(f);

Ответ:

Рассмотрите следующие описания рекурсивной функции.
function f(x, y: integer): integer;
begin
if x>=y then f:=x+y else f:=f(f(x+1, y-1),0)
end;
Каким будет значение f(1, 10)?

Ответ:

Семантические правила нужны для того, чтобы:

• показывать, как образуется данное понятие из других понятий и (или) букв алфавита
• определить свойства данного понятия в зависимости от свойств используемых в них понятий
• описать синтаксис языка

var p, q: ^integer; r: ^char;
Какие из следующих операторов правильные?

• r^:=p^;
• q^:=ord(r^);
• if r<>nil then r^:=nil^;
• if q>nil then q^:=p^;
• if q=p then write(q);
• if q<>r then read(r^);