Цикл FOR.

Оператор повтора FOR может иметь два формата:

1. FOR_параметр-цикла:=S1_TO_S2_DO_оператор;

2.FOR_параметр-цикла:=S1_DOWNTO_S2_DO_оператор;

где S1 и S2 – выражения, определяющие начальное и конечное значение параметра цикла. FOR…DO – заголовок цикла, оператор – тело цикла. Тело цикла может быть простым или составным оператором. Оператор FOR обеспечивает выполнение тела цикла с увеличением параметра цикла (TO) или с уменьшением параметра цикла (DOWNTO) на единицу.

В операторе повтора FOR Паскаль не допускает изменения параметра цикла на величину, отличную от единицы. В составе оператора запрещены операторы, меняющие значение параметра цикла. Если необходимо выполнить более одного оператора после ключевого слова do, то надо записать составной оператор begin … end;

Примеры программ.

1. Найти все натуральные числа от 1 до n, используя оператор цикла while.

Program example1;

Var i,n:integer;

begin

writeln(‘введите количество натуральных чисел ’);

readln(n);

i:=1;

while i<=n do

begin writel(‘ ’,i);

i:=i+1

end

end.

2. Найти все натуральные числа от 1 до n, используя оператор цикла repeat.

Program example2;

Var i, n: integer;

begin

writeln(‘введите количество натуральных чисел ’);

readln (n);

i:=1;

repeat write(‘ ’,i);

i:=i+1;

until i>n

end.

3. Написать программу приближённого вычисления суммы

с точностью

По условию задачи считается, что нужное приближение получено, если вычислена сумма нескольких первых слагаемых, и очередное слагаемое по модулю меньше, чем данное малое положительное число - это и все последующие слагаемые уже не надо учитывать. В таких задачах следует вычислять каждый член последовательности из предыдущего с помощью рекуррентного соотношения. В данном примере, если уже получено значение выражения x^i-1/(i-1)!, то для получения xⁱ/i! достаточно умножить значение предыдущего выражения на x/i.

Program example3;

Var i:integer;

x, eps, a,s:real; {а - очередной член ряда}

begin

writeln(‘введите x ’);

readln(x);

writeln(‘введите eps ’);

readln(eps);

i:=0; s:=0; a:=1;

while abs(a)>=eps do

begin

s:=s+a;

i:=i+1;

a:=a*x/i

end;

write(‘s=’,s) end.

4. Написать программу для вычисления суммы

Знак в формуле означает суммирование слагаемых, каждый из которых имеет вид , где n принимает значения от 1 до k.

Program example4;

Var i,n:integer;

x, s, a :real; {а - очередной член ряда}

begin

writeln(‘введите n’);

readln(n);

writeln(‘введите x ’);

readln(x);

s:=0; a:=-1;

for i:=1 to n do begin

begin

a:=-a*x/i

s:=s+a;

end;

write(‘s=’,s)

end.