Обратная форма оператора for
Запись обратной формы этого оператора имеет вид:
for <идентификатор переменной порядкового типа> :=
n1 downto n2 do <оператор>;
nl — начальное (большее) значение соответствующего типа; n2 – конечное (меньшее) значение соответствующего типа. Если n1 < n2, то оператор цикла вообще не выполняется.
Примеры. Эти примеры повторяют вышеприведённые примеры, но счётчик цикла изменяется в обратном направлении.
1)
for i:= 100 downto 1 do S:= S + i*i;
2)
for c:= 'Z’ downto 'A' do Writeln(ord(c), ' - ', c) ;
3)
for t:= 400 downto 300 do if (t mod 3) = 0 then Writeln(t);
Как вы заметили, в теле цикла может выполняться только один оператор, который записан непосредственно за структурой for … do. Поэтому, если возникает необходимость, мы можем воспользоваться составным оператором и объединить в теле цикла несколько операторов.
Примеры:
1)
for i: = 1 to 100 do
begin
Writeln(i , ‘)’ );
S:= S + i*i ;
Writeln(S);
end;
2)
for h:= 'F’ to 'X’ do
begin
readln(b, c);
1: = chr(ord(b) - ord(h));
m: = m + chr(ord(c) + ord(h));
writeln (1, m);
end;
Как уже было сказано, счетчиком цикла могут быть переменные любого порядкового типа, даже если это тип пользователя.
Пример:
program р9;
type
Month = (Jan, Feb, Mar, Apr, May, Jun,
Jul, Aug, Sep, Oct, Nov);
var
i: Month;
z: integer;
begin
z : = 0 ;
for i: = Jan to Sep do z: = z + Ord(i)*32;
Writeln(z);
end.
Советы для начинающих
1. Постарайтесь не изменять счетчик цикла в самом цикле. Если хорошо подумаете, то поймете, что в этом нет необходимости, а последствия этого могут оказаться непредсказуемыми.
2. В Паскале нет понятия - шаг цикла (step), вещественный тип не может быть типом счетчика цикла, так как не является перечислимым, но при возникшей необходимости в цикле можно воспользоваться любой вещественной переменной. Для этого на каждой итерации необходимо изменять ее на определенное вещественное значение - шаг.
3. Перед использованием цикла постарайтесь точно понять, «почувствовать» как он работает, что происходит со счетчиком, сколько раз он выполняется, как изменяются переменные в выражениях типа S: = S +..., Р:= Р *. . . и т. п. Их корректность зависит от построения выражения и начальных значений переменных.
Например:
р: = 0;
for i: = 2 to n do p: = p* i;
Стандартная ошибка. В этом примере незадачливый, начинающий программист попытался решить задачу нахождения факториала, а получил ноль.
Задача. Табулировать функцию f(x) на отрезке [а,b] с шагом h.
program p10;
var
a, b, h, x, y: Real;
i, n: integer;
begin
Writeln('введите начало и конец отрезка’);
Read(a, b);
Writeln('введите шаг');
Read(h);
х:= а; {начальное значение переменной х}
n:=round((b-a)/h); {количество полных интервалов}
for i:= 1 to n do
begin
y:= sin(x); { находим значение функции,
для текущего значения аргумента}
Writeln(i, ' х= ' , х, ' у= ' , у) ; { выводим на экран
номер шага, значение аргумента и значение функции}
x:=x+h; {увеличиваем аргумент на значение
шага}
end;
end.
Задача. Вычислить выражение 
.
program p11;
var
S, f: real;
i, n: integer;
begin
Write('Введите n: ’);
Read(n); {Ввод значения переменной n}
f: = 1;
S: = 0; {начальное значение переменных f и S }
for i: = 1 to n do
begin
f: = f*2;
S:= S + sin(i)/f;
end;
Writeln(' S= ', S: 6: 4) ;
end.
Задача. Вычислить выражение
,
где n, а и b вводятся с клавиатуры.
program p12;
var
a, b, P, k, 1: real;
i, n: integer;
begin
Write('Введите значения a, b и n: ');
Readln (a, b, n);
k:= 1; {начальное значение переменных k,1 и Р}
1:= 1;
P:= 1;
for i:= 1 to n do
begin
k:= k * a;
1:= 1 * b;
P:= P * (sin(k) + cos(l));
end;
Writeln(‘ P= ', P: 6: 4);
end.
Часто возникает необходимость организации вложенных циклов, действие которых можно понять при анализе работы следующей программы:
program р13;
var
i, j : integer;
begin
for i:= 1 to 5 do
for j:= 1 to 5 do writeln ('i= ', i, ' j= ', j); end.
Программа выводит на экран всевозможные пары значений целых чисел до пяти.
i=1 j=1
i=l j=2
i=l j=3
i=l j= 4
i=l j= 5
………
………
………
i=5 j= 2
i=5 j= 3
i=5 j= 4
i=5 j= 5
Каждая строка, выводимая на экран, соответствует одному выполнению тела цикла.
Цикл типа While
Этот цикл используется, если известно условие прекращения цикла, но неизвестно количество итераций.
While <выражение типа Boolean> do <оператор>;
В данном случае <выражение типа Воо1еап> - это условие продолжения цикла (пока условие - истинно, тело цикла выполняется).
Если условие принимает с самого начала значение false, то тело цикла вообще не выполняется.
Конструкция цикла предусмотрена на случай того, что телом является только один оператор, который непосредственно следует за структурой While... do, а для включения в тело цикла нескольких операторов необходимо объединить их в один составной.
Примеры:
1)
While x < у do х: = х - 1 ;
2)
while (a < m) or (b < n) do
begin
a : = a - t ;
b : = b - z ;
end;
При организации цикла While может возникнуть ситуация "зацикливания". Чтобы этого не произошло, по крайней мере, один из повторяемых в теле цикла операторов должен влиять на значение условия прекращения цикла, иначе он будет выполнятся бесконечно.
Примеры:
1)
While true do Writeln('2=2') ;
Данный цикл будет выполнятся бесконечно, так как в теле цикла нет оператора, который бы мог изменить условие продолжения цикла.
2)
while (a < 100) or (a > 100) or (a = 100) do Writeln(a);
В этом цикле условие его продолжения будет всегда выполняться (а – переменная целого типа), а в теле цикла нет оператора влияющего на условие его продолжения. Следовательно цикл будет продолжаться бесконечно.
Задача. Используя алгоритм Евклида, найти НОД (наибольший общий делитель) двух чисел.
Алгоритм Евклида:
1) пока переменные неравны, заменить большее значение на разность большего и меньшего;
2) выбрать любое значение в качестве результата.
program p15;
var
а, b, х, у: integer;
begin
Write('Введите а и b: ');
Readln (a, b);
х := а; {запоминаем начальные значения а и b}
у:=b;
While a <> b do
if a > b then a:= a - b else b:= b – a;
Writeln (‘ HOД( ‘, x, ', ' , y, ') = ' , a);
end.