w naglowku w naglowku
delphi>function trapeznadmiar (od1,do1:Double; n:word; f:fx):real;
nie wiem czmeu ale wyskakuje mi blad **Undeclared identifier: 'fx'
*
wiec prosze o pomoc;/..jak sie tego pozbyc
function trapeznadmiar (od1,do1:Double; n:word; f:fx):real;
var i:word; xi,h,Wynik:real;
begin
Wynik:=0;
h:=(do1-od1)/n;
for i:=0 to n-1 do
begin
xi:=od1+i*h;
Wynik:=Wynik+f(xi)*h;
end;
nadmiar:=Wynik;
end;
function trapezniedomiar (od1,do1:Double; n:word; f:fx):real;
var i:word; xi,h,Wynik:real;
begin
Wynik:=0;
h:=(do1-od1)/n;
for i:=1 to n do
begin
xi:=od1+i*h;
Wynik:=Wynik+f(xi)*h;
end;
niedomiar:=Wynik;
end;
function trapez (od1,do1:Double; n:word; f:fx):real;
var i:word; xi,h,Wynik:real;
begin
Wynik:=0;
h:=(do1-od1)/n;
for i:=1 to n-1 do
begin
xi:=od1+i*h;
Wynik:=Wynik+f(xi);
end;
Wynik:=(Wynik + (f(od1)+f(do1))/2)*h;
trapez:=Wynik;
end;