Циклдердің үш түрімен есептер шығару

Мұхан Ағырза

Информатика пәні мұғалімі

Ақтау қаласы, Маңғыстау облысы

Сабақтың тақырыбы: Цикл операторларының үш түрімен есептер шығару

1. 1-ден n-ға дейінгі сандардың қосындысын есептеу.

Алдын -ала берілген шарт бойынша қайталау операторы While көмегімен:

program esep1;

var s,i,n:integer;

begin

s:=0; i:=1;

read(n);

i<=n do

begin

s:=s+i; i:=i+1;

end;

write('s=', s);

end.

Шартты соңында тексеру операторы repeat, until көмегімен:

program esep1;

var s,i,n:integer;

begin

s:=0; i:=1;

read(n);

repeat;

s:=s+i; i:=i+1;

until(i>n);

write('s=', s);

end.

Параметрлі for операторының көмегімен:

program esep1;

var s,i,n:integer;

begin

s:=0;

read(n);

for i:=1 to n do

begin

s:=s+i;

end;

writeln('s=', s);

readln;

end.