Pascal-Lazarus Tutorial

ตัวอย่าง การส่ง function เข้าไปอีก function หนึ่ง
ข้อสังเกต: ปัญหาการส่งผ่าน func เข้าไปใน average_value ไม่สามารถทำได้

program Find_MaxValue_Of_Function;

type
  Tfunc = function(x:real):real; //Procedural Type

//define polynomial function f(x) = x^2+2*x-5
//This function has the Max value = 15 at x = 5
function func(x:real):real;
begin
  result:=-x*x+10*x-10 ;  
end;

function Find_Max(f:Tfunc; xFirst,xLast,increment:real):real;
var x,xMax,max:real;
begin
  x:=xFirst;
  xMax:=x;
  max:= f(x);
  while x<xLast do
   begin
     x:=x+increment;
     if f(x)>max then xMax := x;
     max:= f(x);
   end;
  result:=f(xMax);
end;

//Call the above function
BEGIN
  writeln('Max value between x = 0 to x = 10 is : ',Find_Max(@func,0,10,0.001));
  readln;
END.  

Type
  Tfunc = function(x:real):real; 

//define polynomial function f(x) = x^2+2*x-5
function func(x:real):real;
begin
  result:=x*x+2*x-5 ;
end;

//create function to find the average value between a and b of any function
function average_value(f:Tfunc; a,b:real):real;
begin
  result:=(f(a)+f(b))/2;
end;
  
//Call the above function
BEGIN
  writeln(average_value(@func,1,10)); 

END.  

Type
  Tfunc = function(x:real):real; 

//define polynomial function f(x) = x^2+2*x-5
function func(x:real):real;
begin
  result:=x*x+2*x-5 ;
end;

//create function to find the average value between a and b of any function
function average_value(f:Tfunc; a,b:real):real;
begin
  result:=(f(a)+f(b))/2;
end;
  
//Call the above function
BEGIN
  //Lazarus
  writeln(average_value(@func,1,10)); 
  
  //Delhpi
  writeln(average_value(func,1,10)); 

END.