Язык программирования Pascal. Ветвления и циклы. Васильев В.В - 7 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

7
Цикл с предусловием является циклом «пока» . Если булево выражение
истинно, то выполняется оператор. Оператор, входящий в тело цикла, часто
бывает составным .
В цикле с предусловием вначале происходит проверка
истинности булева выражения. Поэтому если изначально
значение булева выражения равно False, то оператор из тела
цикла не выполнится ни разу.
Графически оператор цикла с предусловием можно
изобразить на блок-схеме так, как показано справа.
Синтаксическая диаграмма оператора цикла с предусловием :
Оператор цикла с предусловием часто используется, когда заранее не из-
вестно число повторений.
Рассмотрим задачу, в которой предлагается вводить вещественные числа
до появления 0 (признак конца последовательности). Требуется напечатать
среднее арифметическое введенных чисел .
В переменную X считывается очередной член последовательности . Пере-
менная N – счетчик количества членов последовательности . S – сумма введен -
ных чисел .
Program Sr_arifm;
Var X,S:real; N:integer;
Begin
N:=1;S:=0;
write('Введите ',N,'-е число (0 - конец последовательно-
сти):');
readln(X);
while x<>0
do
begin
S:=S+X; N:=N+1;
write('Введите ',N,'-е число (0 - конец
последовательности):');
readln(X);
end;
if N<>1
then writeln('Среднее арифметическое = ',S/(N-1):8:2)
else writeln('Среднее арифметическое = ',0);
readln
end. {Sr_arifm}
Проверьте работу программы на ПК! Предусмотрите удобный интер-
фейс !
Рассмотрим оператор цикла с постусловием .
Repeat Операторы Until Булево выражение;
WHILE
Выражение
DO
Оператор

Страницы