gammq.txt

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

Function GAMMQ(A,X:real):real;
var
  GAMSER,GLN:real;
begin
    If (X < 0) Or (A <= 0) Then  ShowMessage('PAUSE');
    If X < A + 1 Then
    begin
        GSER(GAMSER, A, X, GLN);
        GAMMQ:=1-GAMSER;
    end
    Else
    begin
        GCF(GAMSER, A, X, GLN);
        GAMMQ:=GAMSER;
    end;
end;