END.
Natija: S=4.499... chiqadi.
REPEAT Sikl operatori.
Umumiy ko’rinishi:
REPEAT STS UNTIL A;
Bu erda, STS - bajariladigan operatorlar guruxi. A – mantiqiy ifoda.
Operator quyidagicha ishlaydi: STS operatorlari bajariladi va A ifoda
hisoblanadi. Agar A ifoda yolg’on (FALSE) bo’lsa, u holda STS operatorlari
yana bajariladi. Agar A - rost (TRUE) bo’lsa, Sikl tugaydi. Agar Sikl boshida
A - rost (TRUE) bo’lsa, STS operatorlari bir marta bajariladi. Agar A hech
qachon rost (TRUE) qiymatini qabul qilmasa, u holda STS operatorlari
cheksiz ko’p marta bajariladi va Sikllanish hosil bo’ladi.
Misol 1:
REPEAT C:=C+1*X; X:=X-1
UNTIL X=0;
Birinchi C:=C+1*X; X:=X-1 operatorlari bajariladi va X=0 shart tekshiriladi.
Agar X
0 bo’lsa, u holda yuqorida ko’rsatilgan operatorlar bajariladi: Agar
X=0 bo’lsa, u holda boshqaruv UNTIL X=0; dan keyingi operatorlarga
uzatiladi.
MISOL 2:
1 1 1
47
S = 1+ --- + ---+ .... + ---- YIG’INDINI HISOBLANG.
2 3 50
PROGRAM N2(OUTPUT);
VAR S:REAL; N:INTEGER;
BEGIN
S:=0; N:=1;
REPEAT S:=S+1/N; N:=N+1;
UNTIL N>50;
WRITELN (' S=',S)
END.
Natija: 4.499...
FOR operatori.
Umumiy ko’rinishi:
FOR I:=N1 TO N2 DO ST;
Bu erda, I - Sikl o’zgaruvchisi, N1- Sikl o’zgaruvchisining boshlang’ich
Do'stlaringiz bilan baham: |