103
Bunday takrorlanish jarayonini dasturlashda maxsus REPEAT operatoridan
foydalaniladi.
Ushbu operatorning umumiy ko‗rinishi quyidagicha:
REPEAT M UNTIL L;
bu erda
REPEAT - takrorlamoq, UNTIL - «gacha» ma'nosini
anglatuvchi xizmatchi
so‗zlar;
M - takrorlanish tanasi, uning tarkibida bitta operator
yoki operatorlar guruhi
bo‗lishi mumkin. Operatorlar guruhini Begin va End orasiga olish shart emas.
Operator quyidagi tartibda bajariladi:
- takrorlanish tanasiga kirgan operatorlar birin-ketin bajariladi. So‗ng L mantiqiy
ifodaning qiymati topiladi, ya'ni shart tekshiriladi. Agar bu shart bajarilsa (L ning
qiymati TRUE (rost) bo‗lsa) boshqaruv
takrorlashdan tashqariga, UNTIL so‗zidan
keyingi operatorga uzatiladi. Aks holda takrorlanish davom etadi.
Takrorlanish jarayonining bunday ko‗rinishi yuqorida keltirilgan takrorlanishdan
shu
bilan farq qiladiki, bunda takrorlanish tanasi hech bo‗lmaganda bir marta
bajariladi.
Misol.
1) S=1+1/2 +1/3+…+1/ n yig‗indini hisoblash dasturi tuzilsin.
program prep(input,output);
var i,n : integer; s: real;
begin
read(n);
s:=0;I:=1;
Repeat
S:=S+1/ I;
Write (s);
I:=I+1;
Until I>n
End.
