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