Оператор цикла с предусловием

Проверка условия выполнения тела цикла с предусловием производится в самом начале оператора (следовательно, может не выполняться ни разу). Синтаксическая диаграмма оператора изображена на рис.3.

Рис. 3. Синтаксическая диаграмма цикла с предусловием

Выражение – условие логического типа.

Оператор – любой оператор Паскаля, простой или составной.

Оператор While задает многократное выполнение оператора, стоящего после do. Перед каждым выполнением тела цикла вычисляется значение выражения – условия. Если результат равен True (истина), то выполняется оператор после do, если False (ложь), то действие оператора while прекращается.

Программа вычисления факториала с использованием данного вида цикла будет выглядеть следующим образом:

{фрагмент программы}

Begin

i:=1;

f:=1;

Readln(n);

while i < =n

Do begin

f:=f*i;

Inc(i);

End;

П р и м е р. Подсчитать сумму чисел в интервале от 100 до 150, вводимых с клавиатуры. Как только введено отрицательное число, ввод и суммирование прекратить.

А л г о р и т м:

1. Запись в Summa 0.

2. Ввод А.

3. Начало цикла (пока А > = 0).

3.1. Проверка условия 100 < A < 150

3.1.1. Если условие истинно, Summa + A.

3.1.2. Ввод нового А

4. Конец цикла.

5. Печать суммы.

Составим таблицу переменных (табл. 6).

Таблица6

Пример составления таблицы переменных

{Текст программы}

Program while_2;

Const

Amin=100; Amax=150;

Var A,Summa:real;

Begin

Summa:=0;

Writeln(' Введите А ');