Оператор WHILE называют также оператором цикла с предпроверкой условия.
Он имеет следующую структуру:
1 2 3 4 |
WHILE условие DO оператор |
где WHILE, DO – зарезервированные слова;
оператор — любой оператор языка Турбо-Паскаль.
Если условие истинно, то выполнится заданный оператор, после этого проверка условия повторится. Если условие ложно, оператор WHILE прекращает свою работу.
Оператор WHILE используется в тех случаях, когда указанное действие необходимо выполнять до тех пор, пока не выполнится некоторое условие.
Рассмотрим следующий пример.
Заданы числа a и b (a>1). Необходимо получить последовательность a, a2, a3 и т.д., ограниченную числом b. В этом случае вычисления будут продолжаться до тех пор, пока очередной член последовательности не превысит значение b.(пример 9).
Пример 9
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
uses Crt; var a, b, c : real; BEGIN ClrScr; write(‘Введите числа A и B:’); readln(a,b); c:=a; while c<b do begin writeln(c); c:=c*a; end; END. |
Обратите внимание на использование приема накопления произведения, описанного выше.