Ketma-ketliklar, to‘plamlar, daraxtlar, graflarni ifodalash usullari


writeln(‘integral kiymati J=’,J:3:4)



Yüklə 92,06 Kb.
səhifə4/9
tarix05.06.2023
ölçüsü92,06 Kb.
#125420
1   2   3   4   5   6   7   8   9
Ketma-ketliklar, to‘plamlar, daraxtlar, graflarni ifodalash usul

writeln(‘integral kiymati J=’,J:3:4);

end.






{Simpson usuli}



Program integral2(input,output);

Uses crt;

var a,b,h,s,J:real;

i,n,k:integer;

function f(x:real):real;

begin

f:=ln(x*x+3*x+1); end;

begin clrscr;

write(‘quyi chegara a=’); readln(a);

write(‘yuqori chegara b=’); readln(b);

write(‘bo’laqlar soni n=’); readln(n);

h:=(b-a)/n; s:=f(a)+f(b); k:=1;

for i:=2 to n do

begin

s:=s+(3+k)*f(a+(i-1)*h); k=-k

end;

J:=s*h/3; textcolor(2);

writeln(‘integral qiymati J=’,J:3:4);

end.

Ushbu dasturlarni zamonaviy IBM va Pentiem kompyuterlarining Turbo Pascal tizimiga kiritib natijalarni olish va taxlil qilish mumkin.
Algebraik va trantsendent tenglamalarni taqribiy yechish usullari, kesmani ikkiga bulish usuli
Algebraik va trantsendent tenglamalar ildizlari yotadigan oraliklar ajratib olingandan sung tenglamaning ildizini taqribiy hisoblash uchun, taqribiy hisoblash usullaridan biri kullaniladi.
Demak tenglama berilgandan sung, tenglamaning ildizlari yotgan oraliklar ajratib olinadi, taqribiy ildizni topish usuli tanlanadi, tanlangan usulga mos ravishda algorimning blok–sxemasi va biror bir dasturlashtirish tilida blok–sxemaga mos ravishda dastur tuziladi. Dastur kompyuterga terilib, natijalar olinadi va taxlil kilinadi.
Tenglamalarning ildizlarini taqribiy yechish usullaridan biri bu kesmani teng ikkiga bulish usulidir. Bunda berilgan [a;b] kesma teng ikkiga bulinib [a;сyoki [с;b] kesmalarda f(a)∙f(c)<0 yoki f(c)∙f(b)<0 shart tekshiriladi va с=(a+b)/2 qilib olinadi va ildiz b-a≤ε shart bajarulgunga kadar davom etirilib topiladi.



Yüklə 92,06 Kb.

Dostları ilə paylaş:
1   2   3   4   5   6   7   8   9




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

gir | qeydiyyatdan keç
    Ana səhifə


yükləyin