Рассмотрим следующие задачи

Repeat

K:=T+273.15;

writeln('*',T:6:1,'*':4,K:7:2,'*':2);

T:= T + Shag;

Until T>C_L;

For i:=1 to 20 do write('*');

writeln;

readln

end.

,

Задача 1. Определить значение переменной P после выполнения следующих операторов:

P:=1; j:=1; while j<6 do j:=j+1; P:=P*j;

Задача 2. Определить значение переменной P после выполнения следующих операторов:

P:=1; j:=2; while j>2 do begin P:=P+j; j:=j-1 end;

Задача 3. Определить значение переменной P после выполнения следующих операторов:

P:=1; j:=6; while j>6 do j:=j-1; P:=P*j;

Задача 4. Определить значение переменной P после выполнения следующих операторов:

P:=1; j:=2; repeat P:=P*j; j:=j-1 until j<=1;

Задача 5. Определить значение переменной P после выполнения следующих операторов:

P:=0; K:= –2; For i:=2 to K do P:=P+i;

Задача 6. Определить значение переменной P после выполнения следующих операторов:

P:=1; n:=2; For i:=2 downto n do P:=P*i;

Задача 7. Укажите номер строки в которой есть ошибка. Объясните свой ответ.

{01} var k, i:integer; y:real;

{02} begin

{03} k:= 0; y:=1;

{04} for i:= –1 to cos (k) do y:=2*y;

{05} writeln(y);

{06} end.

Верный ответ: Ошибка в строке 04. По определению цикла For, в качестве конечного значения параметра цикла не может быть использовано выражение cos (k), так как тип его результата Extended не является порядковым

Задача 8. Укажите номер строки в которой есть ошибка. Объясните свой ответ.

{01} var j, i:integer;

{02} begin

{03} j:=0;

{04} for i:=j-1 to j+4 do i:= i+1;

{05} writeln(j);

{06} end.

Верный ответ: Ошибка в строке 04. Запрещается изменять параметр цикла For внутри тела цикла

Дата добавления: 2014-01-04