O‘zbekiston respublikasi oliy va o‘rta maxsus ta’lim vazirligi toshkent viloyati kasbiy ta’limni rivojlantirish va muvofiqlashtirish hududiy boshqarmasi toshkent viloyati Quyi chirchiq tumani 2-son kasb xunar maktabi

2 – misol. Quyidagi ifodaning qiymatini toping.

.

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.