Оператор цикла While. Оператор цикла Repeate

Оператор цикла While

Называется оператором с предусловием т. к. проверка условия выполнения тела цикла идет перед его выполнением.

Число повторений заранее не известно и оно зависит от заданного условия.

Общий вид оператора:

While<выражение>  Do<тело цикла>

Пример: вывод на экран чисел от 1 до 100:

begin

K:=0;

While K<100 do

Begin

K:=k+1,

Writeln(k);

End;

Вывод на экран четных чисел от 1 до 12:

Var

I,sum:integer

Begin

I:=0; sum:=0;

While i<12 do

Begin

Writeln (‘i=’,i);

Sum:=sum+I;

I:=i+2;

End;

Writeln (‘четные числа=’,sum);

End.

Оператор цикла Repeate

Цикл является циклом последующего условия, то есть операторы входящие в тело цикла выполняются хотя бы 1 раз.

Общий вид:

Repeat<оператор>

Until<Условие>

Между repeat  и until можно размещать сколь угодно операторов (больше 1)

Слова Repeat и Until являются…поэтому…

Цикл продолжается до тех пор, пока условие не станет истинным.

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

Keypressed – удерживает картинку на экране.

Пример:

K:=0;

Repeat

K:=k+1;

Writeln(k);

Until K>100;