Циклические алгоритмы

1. Циклические алгоритмы 9 класс

2.

Пример.
Вычислить аN. Где N, а целые и N>0.
S=a*a*….*a
N раз

3.

начало
Цикл с предусловием
ввод а, N
s=1
i=1
нет
i<=n
да
s=s*a
печать s
i=i+1
конец
Program Cikl;
var a,n,S,i: integer;
Begin
Writeln('vvedite a ');
Readln(a);
Writeln('vvedite n ');
Readln(n);
S:=1;
i:=1;
While i<=n do
begin
S:=S*a;
i:=i+1;
end;
Writeln('S=',S:6);
Readln;
end.

4.

начало
ввод а, N
s=1
i=0
s=s*a
i=i+1
i = n?
нет
да
Печать s
конец
Цикл с постусловием
Program Cikl2;
var a,n,S,i: integer;
Begin
Writeln('vvedite a ');
Readln(a);
Writeln('vvedite n ');
Readln(n);
S:=1;
i:=0;
repeat
S:=S*a;
i:=i+1;
until i=n;
Writeln('S=',S:6);
Readln;
end.

5.

начало
Ввод a, n
Цикл с параметром
s=1
i=1, n, 1
s=s*a
печать s
конец
Program Cikl3;
var a,n,S,i: integer;
Begin
Writeln('vvedite a ');
Readln(a);
Writeln('vvedite n ');
Readln(n);
S:=1;
For i:=1 to n do
S:=S*a;
Writeln('S=',S:6);
Readln;
end.