Условный оператор цикла WHILE.
Является оператором цикла с предпроверкой условия, т.е. вначале проверяет условие, и если оно, верно, то выполняет необходимое действие и возвращается к проверке условия, если же условие не выполняется, то действие не выполняется и цикл заканчивается.
Оператор |
Модуль |
Назначение |
Пример |
WHILE |
SYSTEM |
Повторение заданной последовательности операторов в зависимости от условия. Форма записи:
WHILE <условие> DO
<оператор>;
<условие> выражение или переменная логического типа;
<оператор> исполнительный оператор. |
VAR
I:INTEGER;
BEGIN
...
I:=0;
WHILE I<100 DO
BEGIN
READLN(I);
END;
...
END. |
Если <условие> имеет значение TRUE (выполняется), то выполняется <оператор>, после чего повторяется проверка <условия>. Если <условие> имеет значение FALSE (не выполняется), оператор WHILE прекращает свою работу.
Если в условии участвует переменная, то необходимо чтобы значение этой переменной могло изменяться в процессе выполнения цикла, иначе можно получить бесконечный цикл.
Пример программы.
Program While_Demo;
Var
I : Integer;
St : String;
BEGIN
Write('Введите слово: ');
Readln(St);
Writeln('Повторяю 10 раз.');
I:=0;
While I < 10 Do
Begin
Writeln(St);
I:=I+1;
End;
END.
Блок-схема программы.
![](al/al23.gif)