unit2.pas

来自「1、说明： 本书中所有的常用数值算法子过程按书中的章数分别放在以C开头」· PAS 代码 · 共 23 行

unit Unit2;

interface
Function ASS(N:integer; B:real):real;

implementation
Function ASS(N:integer; B:real):real;
var
    DB:real;A:array[1..15] of real; I:integer;
begin
    A[1]:=Exp(-B) / B;
    If N = 1 Then
      ASS:=A[N]
    else
    begin
        DB:=1 / B;
        For I:=2 To N do
          A[I]:=A[1] + DB * (I - 1) * A[I - 1];
        ASS:=A[N]
    end;
end;
end.