Цикл с постусловием. Если число повторений цикла известно к началу выполнения, например равно n, и величина шага равна единице или минус единицы

End.

Repeat

..............

Цикл с предусловием

Цикл с параметром

Если число повторений цикла известно к началу выполнения, например равно n, и величина шага равна единице или минус единицы, то можно использовать оператор цикла с параметром FOR. Оператор повтора FOR состоит из заголовка и тела цикла. Он может быть представлен в двух форматах:

для шага параметра цикла равного единице (1)

FOR <параметр цикла>:=<нач.знач.> TO <кон.знач.> DO <оператор>;

для шага параметра цикла равного минус единице (-1)

FOR <параметр цикла>:=<нач.знач.> DOWNTO <кон.знач.> DO <оператор>;

FOR... DO - заголовок цикла; <нач.знач.> <кон.знач.> - выражения, определяющие соответственно начальное и конечное значение параметра цикла; <оператор> - тело цикла, представляющее собой совокупность простых, составных и структурных операторов, но может быть представлено и одним оператором. Оператор FOR обеспечивает выполнения тела цикла до тех пор, пока не будут перебраны все значения параметра или индекса цикла о начального до конечного. Параметр цикла, его начальное и конечное значения должны принадлежать одному и тому же типу. Допустим любой скалярный тип, кроме вещественного.

Примеры: for i:=1 to n do begin s:=0;

for k:=1 to n do s:=s+b[ i, k ]; a[ i ]:=s;

writeln(‘a[ ‘, i,‘ ] = ‘,a[ i ]:12:6);

end;

Оператор повтора REPEAT состоит из заголовка, тела и условия окончания UNTIL.

REPEAT <Оператор 1>;

<Оператор 2>;

<Оператор N>;

UNTIL <условие - логическое выражение>;

Операторы, заключенные между словами REPEAT... UNTIL, являются телом цикла. В начале выполняется тело цикла, затем проверяется условие выхода из цикла. Если результат булевского выражения равен False, то цикл активизируется еще раз, если результат True - происходит выход из цикла. По крайней мере один из операторов тела цикла должен влиять на значение условия, иначе цикл будет выполняться бесконечно.

Пример вычисления суммы гармонического ряда h = 1 + 1/2 + 1/3 + … + 1/n.

Program primer;

var n: integer; h: real;

begin readln(n);

h:= 0;

h:= h +1/n; n:= n-1;

until n = 0;

write(‘n=’, n, ‘ h=’, h);

Оператор повтора WHILE аналогичен оператору REPEAT, но проверка условия выполнения цикла производится в начале оператора.

WHILE <условие> DO <тело цикла>;

< условие > - булевское выражение, < тело цикла >- простой или составной оператор. Перед каждым выполнением тела цикла вычисляется значение выражения условия. Если результат равен True, то тело цикла выполняется и снова вычисляется выражение условия, если результат равен False, происходит выход из цикла и переход к первому после WHILE оператору.

Пример вычисления суммы гармонического ряда h = 1 + 1/2 + 1/3 + … + 1/n.

Program primer;

Var n; integer; h; real;

Begin Readln(n);

H:= 0;

While n >0 do Begin

H:= h + 1/n; g:= n-1;

End;

Write(‘n=’, n, ‘h=’, h);

Дата добавления: 2014-01-06