Сборник заданий для практических занятий по информатике. Крупенников О.Г - 41 стр.

UptoLike

40
WRITELN(‘В ПАРТИИ РАВЕН’, SR:4:3,’ММ’);
READKEY;
END.
Оператор цикла с предусловием WHILE. Организует выполнение
одного оператора с заранее неизвестным числом повторений.
Его структура имеет вид:
WHILE <УСЛОВИЕ> DO < ОПЕРАТОР >; ,
где <УСЛОВИЕ> – логическое выражение, истинность которого проверя-
ется в начале каждой итерации; < ОПЕРАТОР > – выполняемый оператор.
Так как истинность логического выражения (условия) проверяется в
самом начале цикла, то его тело может не выполниться ни разу.
Выход из цикла WHILE осуществляется, если проверяемое условие
окажется ложным. Если данное логическое условие никогда не становится
ложным, то цикл будет выполняться бесконечное число раз (т. е. про-
грамма зациклится). Для выхода из состояния зацикливания необходимо
нажать комбинацию клавиш «CTRL + BREAK». При необходимости мно-
гократного повторения в цикле с предусловием нескольких операторов их
следует заключить в операторные скобки «BEGIN – END».
Пример 4.2. Модернизировать программу из примера 4.1 с использо-
ванием цикла WHILE. Алгоритм программы представлен в приложении Г.5.
PROGRAM SRED_RAZM_1;
USES CRT;
VAR I, N: INTEGER;
SUM, SR, R: REAL;
BEGIN
CLRSCR;
WRITE (‘ВВЕДИТЕ КОЛИЧЕСТВО ДЕТАЛЕЙ В ПАРТИИ:’);
READLN (N);
SUM:=0;
I:=1;