Axborotlashtirish texnologiyalari

Masalan. 1) for i:=1 to 10 do x:=sqr(i+1); S:=S+1;
2) for n:=1 to a+b do S:=S+sqrt(sqr(n)+1);
Paskal tilida parametrli sikl operatorini kamayib boruvchi shaklida ham ifodalash mumkin: 
for V := Xn downto Xo do S;
Bu yerda V - sikl parametri, Xn, Xo- sikl parametrining oxirgi va boshlang’ich qiymatlari; S - sikl tanasi; for (uchun), downto (gacha kamayadigan) va do(bajar) xizmatchi so’zlar. Bu operator quyidagicha bajariladi: sikl operatori V eng avval oxirgi Xn qiymatni qabul qilib oladi. Qolgan qiymatlari -1 qadam bilan o’zgarib borgan Xo gacha bo’lgan qiymat-lardan iborat bo’ladi. Sikl parametri V ning har bir qiymatida S operatorlar ketma- ketligi bajariladi.
Masalan. 1) for n := 5 downto 1 do x;
Bu yerda sikl parametri n besh marta takrorlanadi va x o’zgaruvchi ketma- ket 32*x,16*x, 8*x, 4*x, 2*x qiymatlarni qabul qiladi.
2) y :=0; for i :=n downto 1 do y:=y+2/i;
Misol. yig’indini hisoblash dasturini tuzing.
1) 1- ko’rinish .
program summa;
var S : real;
N,i : integer;
begin readln(n); S:=0;
for i:=1 to n do S:=S+(2*i+ 1);
write('S=';S)
end.
2) 2- ko’rinish
program summa;
var S: real; N, i : integer;
begin read(n); S:=0;
for i := n downto 1 do S:=S+ (2*i+ 1);
write('S=',S)
end.


10- амалий машғулот
Mavzu: Takrorlanuvchi dastur tuzish
Reja:

1. 
   Sharti oldin va keyin qo’yilgan sikl operatori yordamida dastur tuzish.
   
2. 
   Mustaqil topshiriqlar bajarish.