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