End.
Begin
End.
Begin
End.
Begin
Begin
End.
Begin
Begin
Write('Введите число слагаемых и x: '); ReadLn(N, X);
Pr:= 1; {в этой переменной хранятся последовательные степени sin x}
S:= 0;
For I:= 1 To N Do
Pr:= Pr * Sin(X); {Очередная степень Sin(x)}
S:= S + Pr
End;
WriteLn('Сумма равна ', S: 7: 4)
Достаточно часто цикл с параметром используется при разработке программ обработки массивов.
Примечание. Как видно из приведённого выше, область применения цикла с параметром в языке Pascal значительно ограничена: ограничения связаны с шагом изменения параметра цикла, с типом параметра цикла, его начального и конечного значения.
Пример 2. Вычислить В в 9-й степени при В<0 с помощью оператора For.
… …
P:=1;
For K:=1 To 9 Do P:=P*B;
Пример 3. Найти минимальное значение функции для х =5,6,7,...,25; а =105;
b =-2.38.
Program Cikl_3;
Const A=0.105; B=-2.38;
Var Y,Ymin: Real;
X: Integer;
X:=5;
Ymin:=Cos(A*X*X) + Sin(B*X);
For X:=6 To 25 Do
Y:=Cos(A*X*X) + Sin(B*X);
If Y < Ymin Then Ymin:=Y
End;
Write('Ymin=',Ymin:10)
Пример 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;
Var K,M: Byte;
V: Real;
M:=8;
V:=1.0;
For K:=1 To M Do
V:=V * Exp(K/2*Ln(M))/(2*(M-1));
Write('V=',V:10)
Пример 6. Составить программу вычисления суммы
Program Cikl_5;
Uses Crt;
Var K,N: Byte;
A,S: Real;
ClrScr;
Read(N,A);
S:=0;
For K:=1 To N Do S:=S + Sin(A*K) / K;
Write('S=', S:10)
Данные процедуры применяются внутри операторов цикла с параметром или условием.
Continue; - ограничение цикла,
Break; - прерывание цикла.
Continue и Break позволяют производить действия не для всех операторов внутри цикла. Действие Continue заключается в передаче управления на начало цикла, при этом контролируется условие выхода из цикла. Действие Break заключается в передаче управления оператору, следующему за последним оператором цикла, при этом не контролируется условие выхода из цикла. Во вложенных циклах Continue и Break действуют только на цикл в котором они записаны. Приведем пример использования данных процедур: