Қarshi muҳandislik-iқtisodiyot instituti “Axborot texnologiyalari va matematik modellashtirish” kafedrasi assistenti J

 writeln(‘yigindi kiymati s=’,s);
 end.
yigindini kiymati 
s=4.499…
FOR va WHILE operatorlaridan tashkari REPAET operatori yordamida ham takrorlanish 
jarayonini tashkil etish mumkin. REPAET operatorining umumiy ko’rinishi quyidagicha: 
repaet a until b
; Bu yerda
а
-operatorlar tsikl tanasi, 
b
-mantiqiy ifoda. 
boshlash 
N<=50 
S= 
tamom 
boshlash 
S=s+1/n 
S= 
tamom 
n=1…500 

---

111 
Agar 
b
shart bajarilsa boshqarish V dan keyingi operatorga utadi, V bajarilmasa tsikl davom 
etishi tuxtaydi. 
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; 
a: array [1..imax,1..ymax] of real; 
begin 
for i=1 to imax do 
begin 
for y:=1 to ymax do 
begin 
read (a[i,y]); 
if (a[i,y])>0 then write (a[i,y]:2:2) 
end; 
writeln 
end; 
end.