O’zbekiston respublikasi oliy va o’rta maxsus ta‘lim vazirligi

while i<=n do
begin
S:=S + 1/i;
i:=i+1;
end;
writeln (S)
end.

Misol. ni hisoblash algoritm blok-sxemasi va dasturini WHILE operatoridan foydalanib tuzamiz.

Program summa(input, output); var x,s: real; n: integer; begin write(‘x ni kiriting x=’); readln(x); s:=0; n:=1; while n<=50 do begin s:=s+(1+x)/(n+1); n:=n+1; end; writeln(‘yigindi qiymati s=’ ,s:5:4); end. bu yugindini hisoblash dasturida takrorlanish jarayoni n ning kiymati 50ga teng bulguncha davom etadi. N ning kiymati 50 dan katta bo’lganidan yigindini kymatlarini hisoblash jarayoni tuxtatiladi va natija ekranga chikariladi.

Ichma–ich joylashgan tsikllarni dasturlash
Bitta tsikl ichiga bir yoki bir nechta boshqa tsikllar kirsa, karrali tsikl strukturali dasturlar hosil bo’ladi, ya‘ni ichma-ich tsikllar hosil bo’ladi.
Bunda ichki tsiklning ta‘sir doirasi uni uz ichiga oluvchi tsiklda joylashadi.
Misol A(10,15) matritsaning musbat elementlarining yozuvga chiqarish dasturini tuzamiz.
Har bir katorda matritsaning berilgan katoriga mansub elementlarni yozuvga chikarsin. Agar katorda musbat elementlar bulmasa, u bush bo’lishi kerak.
Dastur quyidagi ko’rinishda bo’ladi:


program matr (input, output);
const imax=10;ymax=15;
var y,i:integer;