Program Problem2;
uses WinCrt;
var
i, n, s, k: integer;
begin
writeln("Введите натуральное число, до которого надо");
write("выводить квадраты чисел "); readln(n);
writeln("Квадраты чисел следующие:");
s := 0; k := 1;
for i := 1 to n do
begin
s := s + k;
writeln("Квадрат числа ", i, " равен ", s);
k := k + 2
end
end.
27. Цикл с постусловием - Repeat - until.
проверка условия производится после выполнения тела (действий) цикла. Это обеспечивает его выполнение хотя бы один раз в отличие от ранее разобранных циклов.
Обратите внимание на то, что данный оператор цикла предполагает наличие нескольких операторов в теле цикла, то есть можно выполнять несколько действий, поэтому служебные слова Begin и End не нужны.
Последовательность операторов, входящих в тело цикла выполняется один раз, после чего проверяется соблюдение условия, записанного следом за служебным словом Until. Если условие не соблюдается, цикл завершается. В противном случае - тело цикла повторяется ещё раз, после чего снова проверяется соблюдение условия.
Блок - схема цикла с постусловием:
Формат записи, структура цикла:
REPEAT
<тело цикла>
UNTIL <условие>;
Пример:
Program test2;
Var b:Real;
Begin
b:=100;
Repeat b:=b/2;
Until b<10;
Writeln(b:0:2);
End.
