Цикл с предусловием., с постусловием. Связь с другими циклами.

Командой повторения или циклом назыв-ся такая форма орган-ии действий, при j одна и та же послед-ть действий повторяется до тех пор, пока сохраняется значение некоторого лог-ого выр-ия. Если какие-либо операторы необходимо выполнить несколько раз, то их не переписывают каждый раз заново, а организуют цикл: -предусловием(while ЛВ do S): вычисл-ся значение ЛВ, если это значение истинно, то выполняется серия операторов S и вновь происходит переход к вычислению значения ЛВ, если знач-ие ложь, то цикл завершается. Цикл может выполнятся от 0 до ∞ кол-ва раз; 0 раз, когда знач-ие ЛВ=лжи, обычно цикл выполняется некоторое кол-во раз, зацикливание явл-ся неприемлемым, т.к. нарушается cв-во алг-ма, и может произойти в том случае, если не предусмотрено изменение знач ЛВ с истины на ложь. S - тело цикла (операторы, j здесь используются). -постусловием(repeat S until ЛВ) - выпол-ся серия операторов S, после чего вычисляется знач ЛВ, если знач ЛВ ложь, происходит повторение действий, завершение цикла происходит, когда знач ЛВ=истине. Цикл может выпол-ся от 1 до ∞ кол-ва раз. - цикл с параметром: используется в тех случаях, когда число повторений тел цикла заранее известно. Структура цикла, организованного с помощью этого оператора, имеет вид:

Пример: найти сумму тех членов ряда 1/2+1/3+1/4+…, j не меньше заданного епсилон.

Program sum; (с предусловием)

Var i:integer; s:real; eps:real;

Begin

Writeln(‘число eps=’);

Readln(eps);

S:=0;

I:=2;

While 1/i>=eps do

Begin

S:=s+1/I;

I:=i+1;

End;

Writeln(s:10:7);

End.

Program sum;(с постуловием)

Var i:integer; s:real; eps:real;

Begin

Writeln(‘число eps=’);

Readln(eps);

S:=0;

I:=2;

Repeat if 1/I >=eps then s:=s+1/I;

I:=i+1;

Until 1/i<eps

End;

Writeln(s:10:7);

End.