Оператор WHILE в Турбо-Паскаль. Пример №9.

Оператор WHILE называют также оператором цикла с предпроверкой условия.

Он имеет следующую структуру:

WHILE условие DO
   оператор

где WHILE, DO – зарезервированные слова;

оператор — любой оператор языка Турбо-Паскаль.

Если условие истинно, то выполнится заданный оператор, после этого проверка условия повторится. Если условие ложно, оператор WHILE прекращает свою работу.

Оператор WHILE используется в тех случаях, когда указанное действие необходимо выполнять до тех пор, пока не выполнится некоторое условие.

Рассмотрим следующий пример.

Заданы числа a и b (a>1). Необходимо получить последовательность a, a², a³ и т.д., ограниченную числом b. В этом случае вычисления будут продолжаться до тех пор, пока очередной член последовательности не превысит значение b.(пример 9).

Пример 9

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.

Обратите внимание на использование приема накопления произведения, описанного выше.