В предыдущей статье мы с вами разбирали условные операторы, а в этой поговорим о цикле. Циклы являются одним из наиболее важных компонентов языка программирования. С их помощью, вы можете выполнить автоматически несколько раз данный фрагмент кода, в зависимости от выполненного условия. В этой статье мы узнаете о работе циклаREPEAT UNTIL(повторение).
Общий синтаксис цикла Repeat Until выглядит следующим образом:
|
1 2 3 |
REPEAT {любой фрагмент кода} UNTIL{условие...}; {... и точка с запятой} |
Принцип работы вышеуказанного цикла очень прост. Данный код между ключевыми словами REPEAT и UNTIL выполняется до тех пор, пока данное условие после ключевого слова UNTIL не вернет true, т.е. не будет истинным.
Примечание: цикл REPEAT-UNTILвсегда будет выполняться хотя бы один раз, так как условие проверяется только в конце. (Противоположностью цикла REPEAT-UNTILявляется циклWHILE-DO.) |
Пример использования цикла REPEAT:
|
1 2 3 4 |
REPEAT Write('укажите число, отличное от 0:'); Readln(a); UNTIL a <> 0; |
В приведенном выше примере код будет работать до тех пор, пока пользователь не предоставит число, отличное от 0 (тогда условие будет истинным).
Итак, давайте напишем программу, которая делит два числа друг на друга. Чтобы проверить это, мы будем использовать цикл REPEAT-UNTIL вместо условного оператора IF:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
программа с циклом repeat; uses CRT; var a, b:byte; rezultat: real; begin ClrScr; Write('введите первое число:'); Readln(a); REPEAT Write('укажите число, отличное от 0:'); Readln(b); UNTIL b <> 0; rezultat: = a / b; write('оценка деления:', оценка:4:2); repeat until KeyPressed; end. |
Вот и все, что вам нужно знать о цикле repeat-until в языке программирования Паскаль.
С Уважением, MonitorBank