Axborotlashtirish texnologiyalari

Masalan.
1) y :=1; k:=0;
while y<=M do begin y:=y*3;k:=k+1 end
2) y:=1; v:=1;
while abs(v) >= eps do v:=(x/y-y)/2; y:=y+v end
Misol. yig’indini hisoblash dasturini tuzing.
program summa;
var S:real; n,i:integer;
begin read(n); S:=0; i:=1;
while i<=n do
begin S:=S + (2*i+1); i:=i+1 end;
write('S=',S)
end.
Bu misolda qaysi operatordan foydalanish - for yoki while danmi farq qilmaydi. Agar takrorlanish soni ma’lum bo’lsa, for operatori ishlatiladi, takrorlanish soni ma’lum bo’lmasa while operatori qo’llaniladi.
1- misol. yig’indini aniqlikda hisoblash dasturini tuzing.
program summa;
var S, eps : real; i : integer;
begin
readln(eps); S:=0; i:=1;
while 1/ (2*i) > eps do
begin S:=S + 1/ (2*i); i:=i+1; end;
write('S=',S)
end.
Sharti keyin qo’yilgan sikl operatori. Bu operator takrorlanuvchi hisoblash jarayonlarida takrorlanishlar soni noma’lum bo’lgan holatlarda ishlatiladi. Operatorning umumiy ko’rinishi quyidagicha:
repeat S1,S2,...,Sn until B;
Bu yerda repeat (takrorlamoq), until(gacha) – xizmatchi so’zlar, S1,S2,S3,...,Sn operatorlar ketma ketligi, B - mantiqiy ifoda.
Operatorning bajarilishida repeat va until operatorlari orasida joylashgan operatorlar ketma- ketligi bir marta va undan ortiq bajarilishi mumkin. Bu jarayon qo’yilgan mantiqiy ifoda yolg’on qiymat qabul qilgunga qadar davom etadi.
Repeat operatorining while operatoridan farqi shundaki, bunda eng avval operatorning qiymati hisoblanib, so’ngra qo’yilgan shart tekshiriladi. Bu esa bunda berilgan operatorning hyech bo’lmaganda bir marta bajarilishiga imkon yaratadi.
Masalan.