Оператор цикла с постусловием организует выполнение цикла, состоящего из любого количества операторов неизвестное заранее количество раз. Выход из цикла осуществляется, если некоторое логическое выражение окажется истинным. Так как истинность логического оператора проверяется в конце, тело цикла выполняется хотя бы один раз.
REPEAT ;... ; UNTIL ; В этой структуре: ; ;... ; - тело цикла. - логическое выражение, ложность которого проверяется после выполнения тела цикла.
Выполняются операторы, следующие за служебным словом REPEAT. После этого проверяется условие. Если условие ложно, то происходит возврат к выполнению операторов, следующих за служебным словом REPEAT и снова проверяется условие. Если условие истинно, то выполнение тела цикла прекращается.
Нет Да (выход из цикла) Действие Условие
Вычислите сумму двух чисел. Program summa; Uses crt; Var x, y, sum: real; t: byte; Begin clrscr; repeat writeln('Введите числа x и y.') readln(x, y); sum := x + y; writeln('Cумма чисел равна ', sum); write('Завершить программу? 1-да, 2-нет :'); readln(t); until t = 1; readln; End.
Разработчик: Лавкель Юлия, учащаяся ГГПТК легкой промышленности