Тест по теме: Программирование на языке Паскаль.

1) В результате выполнения программы:
program Demo;
const Limit=5;
var count,sum:integer;
Begin
count:=0; sum:=0;
while (count 30 then y:=k/2-4
else y:=k/3+2*k-1;
Write('y=',y); End.

y=11
y=39
y=69
y=30

5) При использовании оператора выбора Сase значение выражения - селектора может быть типа:

integer, word, boolean, string
integer, real, boolean, char
integer, byte, word, boolean, char, shortint
integer, byte, word, boolean, real

6) При описании переменной строкового типа
( идентификатор: string[...]; ) указывается:

минимальная длина строки
максимальная длина строки
фактическая длина строки

7) В результате выполнения функции COPY(St, 2, 3), где St:='ABCDEFG'
получим результат:

'BC'
'CD'
'BCD'
'CDE'

8) Что будет выведено на экран монитора в результате выполнения
программы:
Program pr1;
var Sl:string[12];
I,J:integer;
begin
Sl:='111{333}999';
I:=Pos('{',Sl); J:=Pos('}',Sl);
Delete(Sl,I,J-1+I);
Write(Sl);
end.

111
333
111999
999

9) После выполнения программы цифры будут расположены в следующей
последовательности:
Program pr2;
const M:array[1..4] of byte=(9,11,3,2);
var I,J,N:byte;
begin
for I:=1 to 3 do
for J:=I+1 to 4 do begin if M[I] begin N:=M[I]; M[I]:=M[J]; M[J]:=N; end;
end; end.

2,3,11,9
11,9,3,2
2,3,9,11
9,11,2,3

10) Какие результаты выполнения выражений правильны:

11 DIV 5=1
10 DIV 3=3
11 MOD 5=1
14 MOD (5+3)=2

АйлинМалик    3   15.05.2021 14:02    2