|
Bajardi: \ Toshkent 2022 Mavzu: Aniq integrallarni taqribiy hisoblash usullari, algoritmlari va dasturlari Reja
|
bet | 3/3 | Sana | 29.05.2022 | Hajmi | 51.98 Kb. | | #22278 |
Bog'liq Mavzu Aniq integrallarni taqribiy hisoblash Yoriyev O M . Umumiy va noorganik kimyodan masala va mashqlar to\'plami., Ижара ЭМФ 1.03.2021г, 1 sinf a tovushi va aa harfi bilan , 12695 2 1F78141C8FE347CF075407B8659ABEF4B14CF9DE, Document, маълумотнома мактаб, qurulish, 1317345 диёрбекi,n:integer;
{nostandart funktsiyani tavsiflaymiz}
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);
s:=(f(a)+f(b))/2; h:=(b-a)/n;
for i:=2 to n do
s:=s+f(a+(i-1)*h);
J:=h*s; textcolor(13);
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.
Foydalanilgan adabiyotlar
Ё. Х. Соатов «Олий математика» 1-2-қисм. Тошкент-1995 й.
Д.Т.Ж.Жўраев «Олий математика асослари» 1-2-қисм Тошкент-1995 й.
В. Е. Шнайдер ва бошқалар «Олий математика қисқа курси» 2-қисм Тошкент1992 й.
В. П. Минорский «Олий математикадан масалалар тўплами» Тошкент-1977 й.
П. Е. Данко и др. «Высшая математика в упражнениях и задачах» Част I. Москва1986 г.
|
| |