[Pascal] Определенный интеграл.

[Рамик]

курсовое задание:
создать программу модульной структуры реализующую вычисление определенного интеграла методами прямоугольников, симпсона и трапеции с точностью вычислений 0,001. Провести сравнительный анализ вычислений.
а=0,1
b=0,5
интеграл= (1/(1+sin(x)+x))dx.

P.S. Нахождение интеграла оформить процедурой, подинтегральную функцию найти и оформить функцией.

=================================== ==================
нахождение подинтегральной функции сделал...:

Function func(x:real):real;
begin
func:=1/(1+sin(x)+x);
end;

=================================== ==================
примерные наработки для нахождения интеграла...(методом прямоугольников):

sum:=0;
n:=1;
while (integral1-integral2)>0.001 do begin
n:=n*2;  // колличество частей
h:=(b-a)/n; //шаг
x:=a;
y:=func(x);  //функция написана выше
sum:=sum+y;
for i:=1 to n do begin
x:=x+h;
y:=func(x);
sum:=sum+y;
end;
sum:=sum*h;
...

подскажите пожалуйста как правильно оформить эту процедуру и че тут не правильно или чего не хватает

[Stilet]

Например так:

var y,x,sum,h,b,a:double; i,n,integral2,integral1:integer;

 Function func(x:real):real;
begin
func:=1/(1+sin(x)+x);
end;

begin
    sum:=0;
    n:=1;
    while (integral1-integral2)>0.001 do begin
      n:=n*2;  // колличество частей
      h:=(b-a)/n; //шаг
      x:=a;
      y:=func(x);  //функция написана выше
      sum:=sum+y;
      for i:=1 to n do begin
        x:=x+h;
        y:=func(x);
        sum:=sum+y;
      end;
      sum:=sum*h;
    end;
    writeln(sum);readln;
end.

Но что такое integral1-integral2 я увы не понял.

[Рамик]

я сам запутался....
делал с массивом, препод сказала что нужно без массива..
а вообще правильно составлена процедура?
исправтье пожалуйста

[Sweta]

integral1-integral2

Судя по условию задачи это заданная точность.

[Stilet]

а вообще правильно составлена процедура?

Я в матеке не силен, но результат мне выдала какой-то

[Рамик]

Сообщение от Sweta

integral1-integral2

Судя по условию задачи это заданная точность.

да что то типо того...
мы сравниваем это с заданной точностью......

[Рамик]

Сообщение от Stilet

Я в матеке не силен, но результат мне выдала какой-то

та же проблема...
плохо знаю математику...

кто-нибудь знает математику?)
помогите пожалуйста

[Sweta]

Есть такая книга Мудров Численные методы для ПЭВМ на языках Бейсик, фортран и Паскаль. Там есть примеры программ, в частности для метода Симпсона.
И еще найди на форуме тему "Вычисление интеграла, там несколько примеров по этой теме.