Дейін немесе шартты соңынан тексеру циклі

цикл денесі

repeat (қайталау), until(дейін)-қызметші сөздер. Олар операторлық жақшалар ролін де орындайды. Until- дің алдындағы оператордан соң нүктелі үтір қойылмауы тиіс. Дейін циклінде цикл денесінің операторы ең болмағанда бір рет орындалады, содан соң шарт тексеріледі. Егер шарттың мәні жалған болса, цикл денесі қайталап орындалады, шарт ақиқат болғанда цикл аяқталады. Әзір циклінен айырмашылығы бұл циклде кері шарт жазылады.

Program m1;

var i, n: integer;

P: longint;

begin

read (n);

i:=1;

P:=P*1;

Until i>n

writeln ('n!=', P);

end.

Program m2;

var i, p, s: integer;

k: real;

begin

i:=2; S:=0; P:=1;

P:=P*i; S:=S+i;i:=i+2;

Until i>20

k:=S/10;

writeln ('Көбейтінді=', P, 'Арифметикалық орта=',k)

end.

Program Summa;

var i: integer; S, E: real;

begin

i:=1;

S:=S+i/sqr (i);

i:=i+1;

until 1/ sqr (i)

writeln ('S=’, S);

end.

Program m1;

var i, P: integer;

begin

Repeat

Until i >98

Write (‘P=’, P);

end.

Program m2;

var i, s1, s2: integer;

begin

Repeat

if x>0 then s1:=s1+x else s2:=s2+x;

i:=i+1;

Until i>n

writeln ('Оң сандардың қосындысы =', s1);

writeln ('Теріс сандардың қосындысы =', s2);

end.