Var I,n,s:integer;

Begin

TextColor(Red); TextBackGround(White);

ClrScr;

Write('N= '); Readln(N);

S:=0; {начальное значение суммы}

FOR i:=N DOWNTO 1 DO S:=S+i;

Writeln('S= ',S:6);

Readln

End.

Для операторов цикла с параметром существуют некоторые ограничения:

• нельзя задавать шаг изменения значения параметра, отличный от 1 или -1;

• не желательно изменять внутри цикла значения параметра цикла, начальное и конечное значения параметра;

• входить в цикл можно только через его начало, а выходить - либо при исчерпании значений параметра цикла, либо при выполнении оператора перехода по метке, расположенной вне данного цикла.

Примеры алгоритмов циклической структуры

Пример 1. Дано натуральное число n, действительное число x. Вычислить

Алгоритм решения задачи:

1) ввести данные - количество слагаемых n и число x;

2) присвоить переменной pr, в которой будем хранить степени sin x, значение 1; S := 0;

3) присвоить параметру цикла значение 1;

4) если значение параметра цикла меньше n, перейти к следующему пункту, иначе к п. 9;

5) вычислить очередную степень sin x;

6) добавить вычисленное значение к сумме;

7) увеличить параметр цикла на 1;

8) перейти к п.4;

9) вывести на печать сумму S;

10) конец.

Program Summa; {Программа вычисления суммы степеней sin x}

Var s, X, Pr : Real;

N, I : Integer;

Begin

Write('Введите число слагаемых и x: '); ReadLn(N, X);

Pr := 1; {в этой переменной хранятся последовательные степени sin x}

S := 0;

For I := 1 To N Do

Begin

Pr := Pr * Sin(X); {Очередная степень Sin(x)}

S := S + Pr

End;

WriteLn('Сумма равна ', S : 7 : 4)

End.

Достаточно часто цикл с параметром используется при разработке программ обработки массивов.

Примечание. Как видно из приведённого выше, область применения цикла с параметром в языке Pascal значительно ограничена: ограничения связаны с шагом изменения параметра цикла, с типом параметра цикла, его начального и конечного значения.

Пример 2. Вычислить В в 9-й степени при В<0 с помощью оператора For.

……

P:=1;

For K:=1 To 9 Do P:=P*B;

Пример 3. Найти минимальное значение функции y=cos(a*x*x)+sin(b*x) для Х=5,6,7,...,25; а=105; b=-2.38.

Program Cikl_3;

Const A=0.105; B=-2.38;

Var y,Ymin : Real;

X : Integer;

Begin

X:=5;

Ymin:=Cos(A*X*X) + Sin(B*X);

For X:=6 To 25 Do

Begin

Y:=Cos(A*X*X) + Sin(B*X);

If Y < Ymin Then Ymin:=Y

End;

Write('Ymin=',Ymin:10)

End.

Пример 4. Возвести B в 9-ю степень при B<0, используя оператор цикла For с убывающим значением управляющей переменной.

…..

P:=1;

For K:=9 DownTo 1 Do P:=P*B;

Замечания:

1. Внутри цикла нельзя изменять ни начальное, ни конечное значения (N1, N2) переменной цикла K, а также само значение K.

2. Если в возрастающем цикле N1 > N2, то цикл не выполняется ни разу. Аналогично - для убывающего цикла с DownTo, если N2 < N1.

3. После завершения цикла значение переменной цикла K становится неопределенным, за исключением выхода из цикла с помощью оператора GoTo.

Пример 5. Составить программу вычисления произведения

Program Cikl_4;