³ şərti ödənilməlidir.
Nümunə1: S= å
=
+
10 1 i 2 ) a i ( ifadəsini hesablayan alqoritmin blok sxemini və
proqramını qurun.
Paskal proqram: PROGRAM MİSAL3;
USES CRT;
CONST
N=10;
VAR
İ:İNTEGER;
69
A, S:REAL;
BEGİN
READLN (A);
CLRSCR;
S:=0;
FOR İ:=1 TO N DO
S:=S+(SQR(İ)+A);
WRITELN (‘A=’,A:2:1,’ N=’,N,’ S=’,S:6:2);
END.
2. WHILE təkrarlanma operatoru. Operatorun ümumi şəkli aşağıdakı kimidir:
WHILE <şərt> DO begin ;end; Burada WHILE, DO - dilin ehtiyat (açar) sözləridir (ingiliscə “hələlik (yerinə
yetirildiyi müddətdə)”, “etmək( yerinə yetirmək)” mənasını daşıyır);
<şərt> - məntiqi tipli ifadə və şərtdir;
- Turbo Paskalın ixtiyari operatorudur.
Operator aşağıdakı kimi işləyir: əgər şərt ödənirsə, yəni doğrudursa onda
operator yerinə yetirilir və şərtin təkrar yoxlanması aparılır. Şərt ödənmədikdə
idarəetmə növbəti sıradakı operatora verilir.
Nümunə2: P= Õ
=
+
n 1 k ) b k ( ifadəsini n və b-nin ixtiyari qiymətlərində hesab-
layan alqoritmin blok-sxemini və Paskal proqramını qurun.
Paskal proqramı: PROGRAM MİSAL4:
USES CRT;
VAR
K, N: İNTEGER;
B, P: REAL;
BEGİN
READLN(N, B);
CLRSCR;
K:=1;
P:=1;
WHILE K<=N DO
70
BEGIN
P:=P*(SQRT(ABS(K+B)));
K:=K+1;
END;
WRITELN(‘N=’,N,’ B=’,B:5:2,’ P=’,P:9:2);
END.