Цикл с параметром for..to..do

Цикл с заранее известным числом повторений может быть реализован на языке Pascal с помощью оператора цикла с параметромfor..to..do.

Формат оператора:

for<параметр цикла> := <нач_знач>to<кон_знач>

do<оператор>;

где for, to,do– служебные слова (для, до, выполнить);

<параметр цикла> – параметр цикла, в качестве которого выступает переменная порядкового типа;

<нач_знач> – начальное значение параметра цикла: константа, переменная или выражение порядкового типа;

<кон_знач> – конечное значение параметра цикла: константа, переменная или выражение порядкового типа;

<оператор> – простой, составной или структурированный оператор (тело цикла).

Принцип действия оператораfor..to..do.

1 Параметру цикла присваивается начальное значение, и выполняются операторы тела цикла.

2 Параметр цикла увеличивается на единицу, т. е. <параметр_цикла> := <нач_знач> + 1. Операторы тела цикла выполняются во второй раз.

3 После каждого увеличения параметра цикла на единицу происходит выполнение операторов тела цикла.

4 В последний раз тело цикла выполняется при достижении параметром цикла его конечного значения, т. е. когда <параметр_цикла> = <кон_знач>.

Таким образом, операторы тела циклаfor..to..do выполнятся <кон_знач> − <нач_знач> +1 раз.

Для случаев, когда конечное значениепараметра цикла меньше начального, в языке Pascal предусмотрен оператор for..downto..do.

Формат оператора:

for<параметр цикла> := <нач_знач> downto <кон_знач>

do<оператор>;

В этом случае шаг изменения параметра цикла отрицательный, равный минус 1.

Пример 7.Составить, используя оператор цикла с известным числом повторений, программу для вычисления и вывода на экран значений функции

                                                                                                     (7)

при х, изменяющемся в диапазоне от –3 до 6 с шагом 0,3.

Решение.

Programprim_f;

Var x,y: real; i,n: integer;

Begin

x:=-3; {левая граница диапазона изменения переменной}

n:=round((6-(-3))/0.3)+1; {количество повторений}

fori:=1ton do

Begin

y:=cos(exp(x*ln(5))/abs(x+2));

writeln('x=',x:5:2,' y=',y:7:3);

x:=x+0.3

End

End.