Program Turqut_proqram_4; Const k=100; Var n:integer; y:real; begin y:=0; n:=1; repeat y:=y+1/(n*n); n:=n+1; until n=k+1; Writeln(y); end. İlkin şərtli dövr operatoru.
İlkin şərtli dövr operatoru sonrakı şərtli dövr operatoruna oxşar əməliyyatı
yerinə yetirir. Fərq yalnız odur ki, dövrün qurtarmasını müəyyən edən şərt dövrün
gövdəsindən əvvəl gəlir. Yazılış formatı aşağıdakı kimidir:
while <şərt> do;
Burada
<şərt>
məntiqi ifadə,
isə sadə və ya
mürəkkəb operatordur. Operator yerinə yetirildikdə ilk öncə əvvəl məntiqi ifadənin
qiyməti hesablanır. İfadə
true qiyməti aldıqda dövrün gövdəsini təşkil edən
operatorlar yerinə yetirilir və yenidən məntiqi ifadənin qiyməti hesablanır və ifadə
true qiyməti aldıqda proses təkrarlanır. Bu proses məntiqi ifadə false qiyməti alana
qədər dövrü olaraq davam edir. Bundan sonra proqramda dövr operatorundan sonra
gələn operator yerinə yetirilir.
Qeyd
edək ki, <
şərt
>-in qiyməti yalan (
false) olarsa, onda dövrün
gövdəsini təşkil edən operatorlar bir dəfə də olsun yerinə yetirilmir. Lakin sonrakı
şərtli dövr operatorunda dövrün gövdəsi <
şərt
>-dən asılı olmayaraq ən azı bir
dəfə yerinə yetirilir. Sonrakı şərtli dövr operatorunda olduğu kimi, ilkin şərtli dövr
operatorunda da gövdəsini təşkil edən operatorlardan biri elə olmalıdır ki, o dövrün
qurtarması şərtinə təsir edə bilsin.
