📄 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;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -