Упр.202 ГДЗ Рабочая тетрадь Босова 8 класс 2016 (Информатика)

Задача

Проанализируйте фрагменты программ. Запишите результат их работы. Для каждого случая запишите фрагмент программы, обеспечивающий такой же результат, но с использованием другого оператора цикла.

а)
for x := 1 to 5 do
writeln(x);
б)
x := -2;
while x <= 2 do begin
y := abs(x);
writeln(y);
x := x + 1
end.
в)
for x := 10 downto 5 do
writeln(x);
г)
x := 5;
while x <= 0 do begin
y := x * x;
writeln(y);
x := x — 1
end;

Подробный ответ

Определим, какие значения выводит каждый фрагмент программы, и заменим оператор цикла на другой, сохранив тот же результат.

while	Результат работы	for
x:=1; while x<=5 do begin writeln(x); x:=x+1 end;	$$1,\ 2,\ 3,\ 4,\ 5$$	for x:=1 to 5 do writeln(x);
x:=-2; while x<=2 do begin y:=abs(x); writeln(y); x:=x+1 end;	$$2,\ 1,\ 0,\ 1,\ 2$$	for x:=-2 to 2 do begin y:=abs(x); writeln(y); end;
x:=10; while x>=5 do begin writeln(x); x:=x-1 end;	$$10,\ 9,\ 8,\ 7,\ 6,\ 5$$	for x:=10 downto 5 do writeln(x);
x:=5; while x>=0 do begin y:=x*x; writeln(y); x:=x-1 end;	$$25,\ 16,\ 9,\ 4,\ 1,\ 0$$	for x:=5 downto 0 do begin y:=x*x; writeln(y); end;