有关函数，过程调用的问题？我就是不懂其中参数要不要定义？十万火急！！在线等待

Question

function的返回值大概是result:=,而不是fun:=y*y-x*x;

Answer 1

function RungKt(xa,ya,xb:double,FUN(ya,xa):double;
这句定义中FUN(ya,xa)有问题吧。

Answer 2

你把     xa,xb,ya,yb:double;   
   function fun(y,x:double):double;
       begin
         fun:=y*y-x*x;
       end;   function RungKt(xa,ya,xb:double,FUN(ya,xa):double;
    
      begin 
           ...............  
       end;  
写道外面去！
/*************************************/
/*1、MY TOOL:                        */
/*2、Delphi,Oracle,Sybase,C++/C      */
/*3、PROJECT:                        */
/*3、Boss                            */
/*4、为了五星的目标希望你早点结贴    */
/*************************************/下为我公司中餐定购点，大家随意随意......
四季隆小吃部：13033009679
许骏：13003059177
史记火锅快餐：3663371
清真拉面：3635476
舒乐：3661693
阿郎酒家：13956948465

Answer 3

你对参数的定义没有错，但是函数应该单独定义然后还要在窗体声明部分声明。
FUNCTION和PROCEDURE 是平等的关系，不能在里边定义。而且，函数声明的时候，要声明成为PUBLIC类型。

Answer 4

在PUBLIC怎么申明，　我有时候化它不认函数的调用，是怎么回事

Answer 5

function RungKt(xa,ya,xb:double,FUN(ya,xa):double;
聲明改為
function RungKt(xa,ya,xb:double,FUNResult:double);

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
 var
     xa,xb,ya,yb:double;   
   function fun(y,x:double):double;
       begin
         fun:=y*y-x*x;
       end;   function RungKt(xa,ya,xb:double;FunXY:double):double;
    
      begin 
           ...............  
       end;   begin
   xa:=0.0;
   ya:=1.0;
   xb:=10;
   yb:=RungKt(xa,ya,xb,fun(ya,xa));  end;
end.