FOR i:=J TO N DO действие;
REPEAT
действие1;
действие2;
UNTIL (ПОКА УСЛОВИЕ ЛОЖНО);
WHILE (ПОКА УСЛОВИЕ ИСТИННО) DO
begin
действие1;
действие2;
end
печать s
ввод а, N
да
нет
Цикл с предусловием
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.
i = 0
да
ввод а, N
Цикл с постусловием
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.
Цикл с параметром
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.
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть