Readln (A);

while A>=0 {заголовок цикла}

Do begin

if (A>100) and (A<150)

then Summa:=Summa+A;

Inc (Summa, A);

Readln (A) {читаем новое значение А}

End.

Оператор цикла с постусловием

Синтаксическая диаграмма цикла с постусловием изображена на рис. 4.

Рис. 4. Синтаксическая диаграмма цикла с постусловием

Оператор – любой оператор Паскаля.

Выражение – выражение логического типа.

Данный оператор аналогичен оператору цикла с предусловием. Отличия:

1) условие проверяется после выполнения оператора, следовательно, хотя бы один раз оператор выполнится;

2) цикл прекращает выполняться, когда значение выражения равно true (истина). Если результат логического выражения false (ложь), то тело цикла активизируется (выполняется) еще раз.

Факториал n! с помощью цикла Repeat можно вычислить следующим образом:

{фрагмент программы}

i:= 1;

f:=1;

Readln (n);

Repeat

f:=f*i;

Inc(i)

until i > n;

П р и м е р. С клавиатуры вводятся числа. Найти сумму этой последовательности. Как только введено число большее 999, суммирование выполнить последний раз и выдать результат на печать.

А л г о р и т м:

1. Сумма = 0.

2. Открываем цикл.

2.1. Ввод Х.

2.2. Summa = Summa + X.

3. Конец цикла; проверка X > PRK.

4. Печать суммы.

Перечень используемых переменных приведен в табл. 7.

Таблица 7

Таблица переменных

{Программа подсчета суммы}

Program sum;

Const

PRK = 999;

Var

X,Summa:real;

Begin

Summa:=0;

Repeat