2. Оператор цикла с предварительным условием

Данный цикл позволяет организовать цикл, число повторений которого зависит от записанного в нем условия. Общий вид записи оператора:

while B do P,

где В -условие (логическое выражение), Р – оператор или операторы (телом цикла).

Если логическое выражение имеет значение TRUE, то выполняются операторы, входящие в тело цикла. Как только логическое выражение примет значение FALSE, происходит выход из цикла. Если логическое выражение с самого начала ложно, то тело цикла не выполнится ни разу.

Пример5 Пусть даны два числа a и b (а>1) и надо получить все члены бесконечной последовательности а, а², а³, ..., меньшие числа b. Программа:

• Б

  • Проверка для a=2 и b=10

  1 цикл	2 цикл	3 цикл
  a=2 b=10 c=2 2<10 2 c=2*2=4	c=4 4<10 4 c=4*2=8	c=8 8<10 8 c=8*2=16	c=16 16<10 конец

  • Листинг проограммы:

  Program Posledow;

  Var a, b, c:real;

  Begin Writeln(‘Введите числа a и b’);

  Readln(a, b);

  c:=a;

  While c<b do begin writeln(c,’ ‘: 3);

  c:=c*a;

  end;

  End.

  лок-схема:

2. Оператор цикла с последующим условием

В этом операторе проверка условия производится после тела цикла, обеспечивается выполнение по крайне мере одного вычисления в цикле (когда значение логического выражения ложно). Общий вид записи оператора имеет вид:

repeat P₁;P₂;...;P_n;

until B;

где P₁;P₂;...;P_n- операторы циклической части программ (тело цикла), В - логическое выражение.

Пример6 Пусть для аргумента X, находящегося в диапазоне от 3 до 9, требуется вычислить и напечатать значение функции Y=(X-6)², где X изменяется с шагом 2. (рис. 1)

• Б

  • Проверка

  1 цикл	2 цикл	3 цикл
  X=3 Y=(3-6)2=9 9 X=3+2=5 5<9	Y=(5-6)2=1 5 1 X=5+2=7 7<9	Y=(7-6)2=1 7 1 X=7+2=9 9<9	конец

  • Листинг программы:

  Program Tabulir;

  Var X, Y:real;

  Begin X:=3;

  Repeat Y:=SQR(X-6);

  writeln(X:8:3,’ ‘: 5,Y:8:3);

  X:=X+2;

  Until X<9;

  End.

  

  X:=X+2

  X=3

  

  –

  

  X>9

  

  Y:=(X-6)²

  +

  начало

  лок-схема: