1. Цикл с предусловием

2. Цикл с постусловием

 

Цикл с предусловием

WHILE  <логическое условие> DO

<оператор цикла> ;

WHILE  <логическое условие> DO

BEGIN

<оператор 1>;

<оператор 2> ;

<оператор N>

END;

Операторы цикла выполняются , пока (WHILE) логическое выражение истинно

Фрагмент программы вывода на экран квадратов целых чисел от 5 до 10

            x:=5;

            WHILE X<=10 DO

                                   BEGIN

                                   Y:=SQR (X) ;

                                   WRITELN (’квадрат’,X,’=‘ ,Y );

                                   X:= X+1;

                                   END;

 

 

 

Цикл с постусловием

REPEAT

            оператор 1;

            оператор 2;

            оператор n

          UNTIL <логическое условие> ;

Операторы повторяются (REPEAT) до тех пор (UNTIL), пока значение логического выражения ложно