Сравнение работы операторов цикла

№

Характеристика

While

For

Repeat

1

Оператор цикла с

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

параметром

постусловием

2

Установка начального значения параметра цикла

до цикла

в заголовке

до цикла

3

Тип циклического алгоритма

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

с постусловием

4

Тело цикла выполняется пока условие

истинно

ложно

5

Количество операторов тела цикла

простой или составной

любое

6

Сколько раз выполняется тело цикла

может не выполняться

ни разу

Один раз обязательно

7

Тип параметров цикла

любой простой

только порядковый

любой простой

8

Шаг изменения параметров цикла

любой

+1 или -1

любой

конец

конец

program primer1;

var i,x:integer;

Pr:real;

begin

writeln('Введите число');

readln(x);

Pr:=1;

for i:=1 to x do

Pr:=Pr*i;

writeln('Факториал x = ',Pr:10);

end.

Program primer2;

Var

N,K: real;

Begin

Writeln (‘введите положительное число: ’);

Readln (N);

K:=0;

While N>0 do

Begin

N:= N div 10;

K:=K+1;

End;

Writeln (‘Вывод К= ’,K);

Readln

End.

Program primer3;

Var x, x1 ,x2 ,x3, y, min: real;

Begin

Writeln(‘введите х1,х2,х3’);

Readln(x1,x2,x3);

min:=f(x1);

x:=x1;

Repeat

y:=f(x);

If y<min then min:=y;

x:=x+x3;

Until x>x2;

Writeln(‘min=‘, min:7:2)

End.

Program primer4;

Var x, x1 ,x2 ,x3, y, min: real;

i, k: integer;

Begin

Writeln(‘введите х1,х2,х3’);

Readln(x1,x2,x3);

K:=trunc((x2-x1)/x3)+1;

x:=x1;

For i:=1 to k do

begin

y:=f(x);

writeln(‘x=’,x:6:1,’ y=’,y6:1);

x:=x+x3;

end;

End.