Algoritmlar. O’quv-uslubiy majmua


– misol. Quyidagi ifodaning qiymatini toping



Yüklə 2,15 Mb.
səhifə125/178
tarix29.07.2023
ölçüsü2,15 Mb.
#128614
1   ...   121   122   123   124   125   126   127   128   ...   178
jcv v j

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.




Yüklə 2,15 Mb.

Dostları ilə paylaş:
1   ...   121   122   123   124   125   126   127   128   ...   178




Verilənlər bazası müəlliflik hüququ ilə müdafiə olunur ©muhaz.org 2024
rəhbərliyinə müraciət

gir | qeydiyyatdan keç
    Ana səhifə


yükləyin