Yechish. Bunda h=0,1 x ning o`zgarish qadami, a va b lar esa uning boshlang`ich va oxirgi qiymatlari. Dasturni tuzamiz.
Program prew (input, output);
Uses printer;
Var x, y, a, b, h: real;
Begin writeln(‘kiritilsin – a, b, h’);
read(a, b, h);
x:= a;
while x<= b do begin y:= (exp(3*ln(x))-4*x+1)/(sqr(x)+2*x+1);
writeln(‘y=’, y);
x:= x+h;
end;End. Sharti keyin tekshiriladigan takrorlanish jarayoni.Takrorlanish jarayonining bu ko`rinishi ham takrorlanish soni oldindan noma’lum bo`lgan hollarda ishlatiladi. Bunday jarayonda biror buyruq yoki buyruqlar tizimi berilgan shart bajarulgunga qadar takror va takror bajariladi, bu jarayonning avvalgisidan farqi shundaki, bunda takrorlanishning tanasi hech bo`lmaganda bir marta bo`lsa ham bajariladi, chunki takrorlanishdan chiqih sharti takrorlanish tanasi bajarilgandan keyin tekshiriladi. Ushbu operatorning umumiy ko`rinishi quyidagicha:
Repeat< operatorlar >; Until < mantiqiy ifoda >;
bu yerda, repeat - takrorlamoq, until – «gacha» ma’nosini anglatuvchi xizmatchi so`zlar, <operatorlar> - takrorlanish tanasi. Operatorlar guruhini begin va end ga olish shart emas. Misol. Yuqoridagi 1-misolga repeat operatorinin qo`llab dastur tuzamiz.
Program wel;
Var k: integer; S, a: real;
Begin S:= 1; k:= 0; a:= 30;
Repeat S:= S*3; k:= k+1;
Writeln(‘k=‘, k, ‘S=’, S)
Until S<= a; End.
