Talaba biliwi ha’m islep biliwi kerek

S

operatorlar skobkasınan paydalanıladı. Sebebi kompilyator so`zlerin
Repeat ha`m until so`zlerin repeat begin
end until xızmetshi so`zleri sıyaqlı qabıl etedi.

M ısal di esaplan`.

P rogramma
Program sum 2 
V ar
k : integer; s : real
B egin
k

K= S=0

:=1 ; s : = 0 ;
repeat S: = S+1 / sqr (k)
k :=k + 1 until k > 50
w
S= S+  /sqr (k)
rite ( ‘ S= ’ , S: 13 : 5 ); end.

K=k+1

tamam

repeat operatorı while operatorına salıstırg`anda to`mendegi o`zgesheliklerge iye.

. repeat operatorı denesi en` keminde bir ma`rte orınlanadı.
. repeat operatorı sha`rt orınlanbasa, yag`nıy logikalıq an`latpa false ma`nisin qabıl etkende tsikl denesi qayta orınlanadı.
. repeat operatorında tsikl denesinde strukturalı operator ornalasqanda begin, end operatorlar skobkasın qoyıw kerek.
Ayırım sha`rtler boyınsha tsikl denesi o`zgeriwshilerge baylanıslı bir ta`rtede orınlanbawı talap etiliwi mumkin. Mısalı dı berilgen E sanınan ulken bolg`an jag`dayındag`ı barlıq ag`zaları qosındısın tabın`. Onda
Algoritm

К:=1; S:=0

S: =S+ 1 / sqr (k)

k : = k +1
Programma

Program sum 3;
Var
l, s : real : integer ;
begin
S : = 0; k:=1; read (l)
While (1/sqr (k)) > l do
Begin
S : = S + 1 / sqr (k) ;
k : = k + 1;
end
writeln; write (“ S = ”, S) ;
end