Давайте вспомним как работает цикл while-do:
1 2 3 4 5 6 7 8 |
while (условие) do begin оператор(группа операторов); end; пока (выполняется это условие) делай от начала оператор(группа операторов); до конца; |
То есть цикл сначала проверяет истина ли условие или нет, и если истина, то выполняет операторы заключённые в цикле, если условие ложно, то он не выполняет операторы в цикле.
Бывают случаи в программировании, когда нужно выполнить операторы в цикле последний раз, даже если условие будет ложно.
Для этого используется цикл repeat-until, он сначала выполняет операторы, а потом проверяет условие. Давайте рассмотрим конструкцию этого цикла:
1 2 3 4 5 6 |
REPEAT оператор(группа операторов); UNTIL (условие); ПОВТОРЯЙ оператор(группа операторов); ДО (тех пор, пока условие не будет верным); |
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Program repeat_until; uses crt; var num, sum: Integer; begin clrscr; repeat write('Введите число - '); readln(num); sum := sum + num; until (sum >= 10); write('Сумма чисел равна - ', sum); readln; end. |
Похожие записи: