unit2.pas

用于开发税务票据管理的软件

unit Unit2;

interface
uses
    unit1;

procedure QUAD3D(XX1, XX2:real; var SS:real);
Function F(ZZ:real):real;
Function G(YY:real):real;
Function H(XX:real):real;

implementation
procedure QUAD3D(XX1, XX2:real; var SS:real);
begin
    QGAUSX(XX1, XX2, SS);
end;

Function F(ZZ:real):real;
begin
    Z := ZZ;
    F := FUNC(X, Y, Z);
end;

Function G(YY:real):real;
var
    B1,B2,SS:real;
begin
    Y := YY;
    B1 := Z1(X, Y);
    B2 := Z2(X, Y);
    QGAUSZ(B1, B2, SS);
    G := SS;
end;

Function H(XX:real):real;
var
    A1,A2,SS:real;
begin
    X := XX;
    A1 := Y1(X);
    A2 := Y2(X);
    QGAUSY(A1, A2, SS);
    H := SS;
end;
end.