Informatika va axborot texnologiyalari fani haqida

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: