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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

8
Цикл с постусловием является циклом «до» . Если булево выражение лож-
но, то повторно выполняется последовательность операторов из тела цикла.
Операторы отделяются друг от друга точкой с запятой . Перед Until точку с за-
пятой можно опустить .
Синтаксическая диаграмма оператора с постусловием :
В цикле с постусловием вначале происходит выполнение серии операто-
ров, а затем проверка истинности булева выражения. Поэтому в цикле с посту-
словием серия операторов всегда будет выполнена хотя бы один раз . Цикл
прекращается, когда булево выражение истинно.
Перепишем программу о нахождении среднего арифметического последо-
вательности чисел с использованием оператора цикла с постусловием .
Program Sr_arifm_;
Var X,S:real; N:integer;
Begin
N:=0;S:=0;
repeat
write('Введите ',N+1,'-е число (0 - конец последова-
тельности):');
readln(X); S:=S+X; N:=N+1
until X=0;
if N<>1
then writeln('Среднее арифметическое = ',S/(N-1):8:2)
else writeln('Среднее арифметическое = ',0);
readln
End.{Sr_arifm_}
Проверьте работу программы на ПК! Предусмотрите удобный интер-
фейс !
Рассмотрим оператор цикла с параметром. Существует две разно-
видности оператора цикла с параметром
Формат оператора цикла по возрастанию с параметром:
For Параметр:=Начальное значение To Конечное значение Do Оператор;
Параметром цикла может служить переменная порядкового типа. Началь -
ное и конечное значения параметра – это выражения того же типа, что и пара -
метр цикла. Параметр цикла описывается как обычная переменная в разделе
описания переменных .
В операторе цикла с параметром сначала вычисляются начальное и ко-
нечное значения параметра . Затем параметру цикла присваивается начальное
значение. После проводится проверка, не пора ли заканчивать . Цикл прекра -
щается, когда значение параметра цикла превышает конечное значение. Если
цикл не заканчивается, то выполняется оператор из тела цикла. Параметру
цикла присваивается следующее значение (для целого типа – на единицу
больше).
REPEAT
Операторы UNTIL Выражение

Страницы