pascal - 帕斯卡。为调用“f1”指定的参数数量错误

Question

创建过程数据类型时，Free Pascal 会抛出一个奇怪的错误。但是我传的是一个参数，为什么参数个数不对呢？(((

Type
    Func = Function (x:Real):Real;
    
Function middlfunc(a, b:Real; n:Integer; f:Func): Real;
Var
    x,s,d: Real; k:Integer;
Begin
    d:=(b-a)/n;
    s:=0;
    For k:=0 To n Do
    Begin
        x:=a+k*d;
        s:=s+f(x);
    End;
    middlfunc:=s/(n+1);
End;

Function f1(x:Real):Real; {There is the error}
Begin
    f1:=x*x;
End;

Var
    mf1:Real;
    a, b: real;
    n: integer;
    
Begin
    a := 0;
    b := 3.1415;
    n := 100;
    mf1 := middlfunc(a,b,n,f1); {ERROR :((((((((}
    WriteLn(mf1)
End.

标签： pascalfreepascal