Приближенный метод решения интегралов. Метод прямоугольников (правых, средних, левых)

Категория реферата: Рефераты по математике
Теги реферата: первый реферат, индивидуальные рефераты
Добавил(а) на сайт: Chistjakov.

for i:=0 to n-1 do

begin x:=xb+i*h; s:=s+f(x)*h; end;

writeln('Интеграл равен ',s:12:10); readln;

end. a=1 b=2 n=10 S= 18,077 a=1 b=2 n=20 S= 18, 208 a=1 b=2 n=100 S= 18, 270

Программа вычисления [pic] по методу правых прямоугольников.

Program pravii; {Метод правых прямоугольников}

uses crt;

var i,n:integer; a,b,h,x,xb,s:real;

function f(x:real):real;

begin f:=(1/x)*sin(3.14*x/2); end;

begin

clrscr;

write('Введите нижний предел интегрирования '); readln(a);

write('Введите верхний предел интегрирования '); readln(b);

write('Введите количество отрезков '); readln(n);

h:=(b-a)/n; s:=0; xb:=a;

for i:=1 to n do

begin x:=xb+i*h; s:=s+f(x)*h; end;

writeln('Интеграл равен ',s:12:10); readln;

end. a=1 b=2 n=10 S=18,05455 a=1 b=2 n=20 S=18,55555 a=1 b=2 n=100 S= 18,2734

Программа вычисления [pic] по методу средних прямоугольников.

Program srednii; {Метод средних прямоугольников}

uses crt;

var i, n: integer; a, b, dx, x, s, xb : real;

function f(x : real):real;

Поделитесь этой записью или добавьте в закладки