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

-118110000
Мұхан АғырзаИнформатика пәні мұғалімі
Ақтау қаласы, Маңғыстау облысы
Сабақтың тақырыбы: Цикл операторларының үш түрімен есептер шығару
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.
Берілген санға дейінгі жұп сандардың қосындысын, тақ сандардың көбейтіндісін есептейтін бағдарлама құрыңдар.
program esep2;
var s,p,i,n:integer;
beginp:=1; s:=0; i:=1;
read(n);
while i<=n do
beginif i mod 2=0 then s:=s+i else p:=p*i;
i:=i+1;
end;
writeln('s=', s);
writeln('p=', p);
end.
program esep2;
var s,p,i,n:integer;
beginp:=1; s:=0; i:=1;
read(n);
repeatif i mod 2=0 then s:=s+i else p:=p*i;
i:=i+1;
until (i>n);
writeln('s=', s);
writeln('p=', p);
end.
program esep1;
var s,p,i,n:integer;
beginp:=1; s:=0;
read(n);
for i:=1 to n do
beginif i mod 2=0 then s:=s+i else p:=p*i;
end;
writeln('s=', s);
writeln('p=', p);
readln;
end.