Паскаль Нахождение производной

[Igomax]

Вот дана программа вычисления предела. А мне надо её пределать так чтобы вычислялись производные (-4ctg^3x) и ((e^x)-(e^-x))/((e^x)+(e^-x)). Помогите плиз переделать её.

program proiz;
const epsilon=0.00001;
type func=function(x:real):real;
var z,y:real; {$f+}
function f1(x:real):real;
begin
f1:=sin(x)/x;
end;
function f2(x:real):real;
begin
f2:=(2*x+3)/(x-5);
end;

Function lim(f:func; a:real:exp:real) : real;

var

        y1,y2,x:real; i,p:longint;

begin

        i:=1; p:=-1; y1:=f(a+10);
          
repeat

             y2 := y1;

             p := p*(-1);

             x:=p/i+a;

             y1:=f(x)

             i:=i+1

until       abs(y1-y2)< exp;

             lim := y2;

      end;
      begin
      z:=lim(f1,0,epsilon);
      y:=lim(f2,5,epsilon);
      write(z:10:5;y:10:5);
     end.

[ОДИНОЧЕСТВО В СЕТИ]

дык вставляй свои функции вместо

f1:=sin(x)/x;

и

f2:=(2*x+3)/(x-5);

[Igomax]

это понятно но мне надо не предел а производную вычислить

[SuperVisor]

Ну, давай сначала разберемся в другом. Как производные математически вычислить знаешь? Пиши сюда - там разберемся.