Процедуры ограничения и прерывания цикла
Оглавление
Оператор цикла с параметром.. 1
Примеры алгоритмов циклической структуры.. 2
Процедуры ограничения и прерывания цикла. 4
Контрольные вопросы и задания. 4
Комбинированный урок №6
Цель: формирование знаний о форматах операторов For, навыков применения операторов, приемов составления схем алгоритмов циклических вычислительных…Оператор цикла с параметром
Общий вид оператора цикла с параметром:
FOR i:= A TO B DO оператор;
где i - параметр цикла (счетчик повторов) - переменная целого типа (integer);
A и B - начальное и конечное значения параметра цикла-выражения того же типа, что и параметр цикла;
оператор - любой простой или составной оператор, который требуется повторить несколько раз.
Оператор цикла типа FOR...TO...DO предусматривает последовательное увеличение на единицу параметра цикла i от начального значения A до конечного значения B и выполнение входящего в цикл алгоритма при каждом значении параметра цикла.
В качестве иллюстрации применения оператора цикла FOR...TO...DO рассмотрим решение с его помощью предыдущей задачи, где на экран несколько раз выводится слово "ЦИКЛ".
Program Primer;
Uses Crt;
Var i:integer;
Begin
TextColor(Yellow); TextBackGround(Blue);
ClrScr;
FOR i:=1 TO 5 DO Writeln('ЦИКЛ');
Readln
End.
Приведем еще один пример использования оператора цикла с параметром. В этом примере с клавиатуры вводится целое число N, после чего вычисляется сумма всех целых чисел от 1 до N.
Program Primer;
Uses Crt;
Var i,N,S:integer;
Begin
TextColor(Green); TextBackGround(Cyan);
ClrScr;
Write('N= '); Readln(N); {C клавиатуры ввели целое число в переменную “N”}
S:=0; {Задали начальное значение суммы}
FOR i:=1 TO N DO S:=S+i; { во время каждого из повторов значение суммы "S" увеличивается }
{ на новую величину счетчика "i" }
Writeln('S= ',S:6);
Readln
End.
В этой программе оператор S:=S+i выполняется N раз, при различных значениях параметра цикла i.
В некоторых случаях бывает удобно, чтобы параметр цикла принимал последовательно убывающие, а не возрастающие значения. Для этого предусмотрена следующая разновидность оператора цикла:
FOR i:=B DOWNTO A DO оператор;
где i, A и B имеют прежний смысл. Отличие от предыдущего варианта цикла в том, что в операторе цикла типа FOR...DOWNTO...DO шаг наращивания параметра равен -1, при этом начальное значение счетчика повторов B больше конечного значения A.
Проследим, как изменится предыдущий пример при нисходящем изменении значения параметра цикла:
Program Primer;
Uses Crt;
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. Найти минимальное значение функции 
для х=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;
Var K,M : Byte;
V : Real;
Begin
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)
End.
Пример 6. Составить программу вычисления суммы 
Program Cikl_5;
Uses Crt;
Var K,N : Byte;
A,S : Real;
Begin
ClrScr;
Read(N,A);
S:=0;
For K:=1 To N Do S:=S + Sin(A*K) / K;
Write('S=', S:10)
End.
Процедуры ограничения и прерывания цикла
Continue; - ограничение цикла, Break; - прерывание цикла. Continue и Breakпозволяют производить действия не для всех операторов внутри цикла. Действие Continue заключается в…. . .
For i := 1 to 3 do
Begin
Write( 'Введите ПАРОЛЬ' );
Readln(S); {S и Parol - переменные одного типа}
If S = Parol Then Break {выход из цикла}
Else
if i <> 3 Then Continue; {переход на новую итерацию цикла}
Writeln( 'Доступ к программе ЗАПРЕЩЕН. Нажмите Enter' );
Writeln(' );
Readln;
Halt;{процедура прерывания выполнения программы }
End;
. . .
Комментарий к программе:Если пароль введен правильно (введенное значение переменной S совпало с заранее заданным значением переменной Parol, то выполняется процедура Break, т.е. происходит выход из цикла For на оператор, следующий после end, и программа продолжает работу.
Если пароль введен неправильно, то проверяется условие i<>3. Если это условие выполняется, то процедура Continue передает управление оператору For и цикл выполняется еще раз, при этом параметр циклаiувеличивается на 1. Если пароль введен неправильно трижды (I=3), то выводится сообщение «Доступ к программе ЗАПРЕЩЕН. Нажмите Enter» и выполняется процедура Halt (процедура прерывает работу программы).
Контрольные вопросы и задания
- Дайте определение понятию «цикл».
- Опишите действия, необходимые для выполнения организации цикла.
- Опишите структуру оператора цикла с параметром. Принцип выполнения цикла с параметром.
- Назовите тип параметр цикла, его начальное и конечное значения в цикле с параметром.
- Могут ли параметр цикла, его начальное и конечное значения в цикле с параметром в языке Pascal быть разных типов? Обоснуйте ответ.
- Назовите глубину вложенности циклов.
- Определите сколько раз исполнится фрагмент программы и чему будет равен результат k
K:=1; For i := 1 to -1 Do k:=k*i;
- Определите сколько раз исполнится фрагмент программы и чему будет равен результат k
K:=1; For i := -1 to 1 Do k:=k*i;
- Определите сколько раз исполнится фрагмент программы и чему будет равен результат k
K:=1; For i := 1 downto -1 Do k:=k*i;