Формула Симпсона (численное интегрирование функции)

[jora1333]

Написать программу численного интегрирования функции.

Формат входных данных:
n – количество отрезков
а, b – границы интервала интегрирования

Формат выходных данных:
I – значение интеграла

по формуле Симпсона

[Аватар]

Кому написать?

Покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[digitalis]

Когда я был студентом (лет Х0 назад), я бы на Дельфи накорябал приблизно так :

function TForm1.Simps (n:integer;a,b:real):real;
var i:integer ; sum,h,h2,tmp,x: real ;
begin
  h := (b-a)/n ;
  h2 := h/2 ;
  sum := myfun(a) ;
  x := a + h2;
  for i := 1 to n do
    begin
      tmp := myfun(x+h2) ;
      if i<n then tmp := tmp * 2 ;
      sum := sum + tmp + myfun(x)*4 ;
      x := x + h ;
    end ;
  Result := sum*h/6 ;
end ;

Ну а перепереть с Дельфя на ++ и передать интегрируемую функцию myfun в виде параметра - для отличника это как два байта переслать