Цикл с параметром (for)

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

For i:= j ₁ to j ₂ do

оператор 1;

Если внутри цикла (после слова do) необходимо выполнить несколько действий (составной оператор), то они заключаются в операторные скобки «begin-end»:

For i:= j ₁ to j y₂ do

Begin

оператор 1;

оператор 2;

End;

Блок-схема цикла с постусловием выглядит следующим образом:

Параметр цикла i, диапазон его изменения (от стартового (j ₁) до конечного значения (j ₂) включительно) могут быть только целочисленного или перечислимого типа. Причём j ₁ <j ₂. Сам параметр должен быть описан совместно с прочими переменными (в разделе var). Шаг цикла For всегда постоянный и равен "интервалу" между двумя ближайшими значениями типа параметра цикла.

Изменения параметра цикла может быть и убывающим, в этом случае структура цикла следующая (j ₁ <j ₂):

For i:= j ₂ downto j ₁ do

оператор 1;

Выполнение цикла начинается с присваивания параметру стартового значения. Затем следует проверка, не превосходит ли параметр конечного значения (to) или не является ли он меньше конечного значения (downto). Если результат проверки утвердительный, то цикл считается завершенным и начинают выполняться следующие за циклом операторы. В противном случае выполняется тело цикла и после этого параметр меняет свое значение на следующее, согласно заголовку цикла.

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

1. Количество повторений тела цикла известно заранее.

2. Если параметр цикла в каждом круге цикла увеличивается на единицу, то в теле цикла не нужно задавать выражение для изменения i. Цикл с параметром выполнит его преобразование автоматически.

Пример. Найти значение выражения .

С циклом с предусловием	С циклом с постусловием	С циклом с параметром
Program stepen; Uses crt; Var x,y,n,i:integer; Begin Clrscr; Writeln('Введите x'); Readln(x); Writeln('Введите n'); Readln(n); i:=1; y:=1; While i<=n do begin y:=y*x; i:=i+1; end; Writeln('Значение выражения равно ',y); End.	Program stepen; Uses crt; Var x,y,n,i:integer; Begin Clrscr; Writeln('Введите x'); Readln(x); Writeln('Введите n'); Readln(n); i:=1; y:=1; Repeat y:=y*x; i:=i+1; Until (i>n); Writeln('Значение выражения равно ',y); End.	Programstepen; Uses crt; Var x,y,n,i:integer; Begin Clrscr; Writeln('Введите x'); Readln(x); Writeln('Введите n'); Readln(n); y:=1; For i:=1 to n do y:=y*x; Writeln('Значение выражения равно ',y); End.

Задание. Набрать примеры программ. Нарисовать блок-схему к каждому случаю.

Дата добавления: 2015-07-08