Упр.2.202 ГДЗ Сборник упражнений Босова 7-9 класс (Информатика)
Проанализируйте фрагменты программ. Запишите результат их работы. Для каждого случая запишите фрагмент программы, обеспечивающий такой же результат, но с использованием другого оператора цикла (while/for).
1)
x := 1; while x <= 5 do begin writeln(x); x := x + 1 end;2)
for x := -2 to 2 do begin y := abs(x); writeln(y); end;3)
x := 10; while x >= 5 do begin writeln(x); x := x - 1 end;4)
for x := 5 downto 0 do begin y := x * x; writeln(y); end;
1) В цикле переменная $$x$$ принимает значения от $$1$$ до $$5$$, поэтому на экран выводятся числа:
$$1\ 2\ 3\ 4\ 5$$
x := 1;
while x <= 5 do
begin
writeln(x);
x := x + 1
end;
for x := 1 to 5 do
writeln(x);
2) Переменная $$x$$ изменяется от $$-2$$ до $$2$$, а выводится $$y = |x|$$. Получаем:
$$2\ 1\ 0\ 1\ 2$$
for x := -2 to 2 do
begin
y := abs(x);
writeln(y);
end;
x := -2;
while x <= 2 do
begin
y := abs(x);
writeln(y);
x := x + 1
end;
3) Цикл идёт от $$10$$ до $$5$$ с убыванием на $$1$$, значит выводятся числа:
$$10\ 9\ 8\ 7\ 6\ 5$$
x := 10;
while x >= 5 do
begin
writeln(x);
x := x — 1
end;
for x := 10 downto 5 do
writeln(x);
4) Переменная $$x$$ принимает значения от $$5$$ до $$0$$, а выводится $$y = x^2$$. Получаем:
$$25\ 16\ 9\ 4\ 1\ 0$$
for x := 5 downto 0 do
begin
y := x * x;
writeln(y);
end;
x := 5;
while x >= 0 do
begin
y := x * x;
writeln(y);
x := x — 1
end;



