вычисление производной по формуле, Помогите пожалуйста, осталась последняя задача Опции

[Лилия]

Паскаль. (задача на процедурный параметр)Написать ф-цию которая принимает в качестве параметра функцию f(x) типа (real-->real), точку x и шаг h и вычисляет производную f(x) по формуле f '(x)=(f(x+h)-f(x))/h. То же сделать для формулы f '(x)=(f(x+h)-f(x-h))/(2*h) и сравнить результаты между собой и с точным результатом для какой-нить конкретной f(x). также поступить со 2 произодной по формуле f''(x)=(f(x-h)-2*f(x)+f(x+h))/h^2.

Заранее спасибо...

Сообщение отредактировано: Лилия - 25.12.2007 4:45

[volvo]

Вот так будет выглядеть функция вычисления производной:

type
  func = function(X: real): real;


function get_deriv(f: func; X, step: real): real;
begin
  get_deriv := (f(X + step) - f(X)) / step;
end;

{ Это - сама функция F(x), она должна компилироваться в расчете на дальние вызовы с {$F+} }
{$F+}
function f(x: real): real;
begin
  f := 2 * sqr(x);
end;

Вызывать вот так:

...
  d_val := get_deriv(f, 2, 0.01);
...

Остальное попробуй сделать сама...