1. Parametrli takrorlash operatori

2. Re`eat takrorlash operatori

Yuqorida aytib o`tganimizdek, tsikldagi takrorlanishlar soni oldindan ma`lum bo`lsa, parametrli (for) tsikl operatori foydalanish uchun juda qulay. Lekin, ko`pgina hollarda, takrorlanuvchi jarayonlardagi takrorlanishlar soni oldindan ma`lum bo`lmaydi, tsikldan chiqish esa ma`lum bir shartning bajarilishi yoki bajarilmasligiga bog`lik holda bo`ladi. Bu hollarda re`eat yoki while tsikl operatorlaridan foydalanish zarur. Agar tsikldan chiqish sharti, takrorlanuvchi jarayonning oxirida joylashgan bo`lsa re`eat operatoridan, bosh qicmida joylashgan bo`lsa while operatoridan foydalanish maqsadga muvofiqdir.

Re`eat operatorining yozilish formasi quyidagicha bo`ladi:


re`eat S1; S2; ... SN until B;

bu yerda re`eat (takrorlamoq), until ( gacha) - xizmatchi so`zlar;

S1, S2, ..., SN lar esa tsikl tanasini tashkil etuvchi operatorlar;
B - tsikldan chiqish sharti (mantiqiy ifoda).

Operatorning ishlash printsipi juda sodda, yahni tsiklning tanasi B mantiqiy ifoda rost qiymatli natija bermaguncha takror - takror hisoblanaveradi. Misol sifatida, yana yuqoridagi yig`indi hisoblash misolini olaylik.

program Sum2;
var i, n: Byte;
S: real;
begin
readln(n);
S: =0; i:=1;
re`eat
S:= S+1_i;
i:=i+1;
until i>n;
writeln (S)
end.

Ayrim takrorlanish jarayonlarida tsikldan chiqish shartini ifodalovchi mantiqiy ifoda hech qachon True (rost) qiymatga erishmasligi mumkin. Bu xolda programmaning takrorlash qismi cheksiz marta qaytadan hisoblanishi mumkin, yahni dasturchilar tili bilan aytganda «programma osilib qoladi» shuning uchun, operatordagi shartni tanlashda ehtiborli bo`lish lozim.

Ehtiboringizga yahna bir, ismni qidirib topish programmasini xavola qilamiz:


program ism;
Var
a,b:String[20];
Begin
a:=`Jamshid`;
Re`eat
Writeln(`Tanlagan ismingizni kiriting`);
Readln(B);
if a<>b Then writeln(`Notugri`) else writeln(`Yashang tugri topdingiz`);
Until A=B;
End.