unit2.pas

来自「《Delphi常用数值算法集》的配书源码」· PAS 代码 · 共 15 行

unit Unit2;

interface
Procedure FPOLY(X:real; var P:array of real; NP:integer);
implementation
Procedure FPOLY(X:real; var P:array of real; NP:integer);
var
    J:integer;
begin
    P[1]:=1;
    For J:=2 To NP do
      P[J]:=P[J - 1] * X;
end;
end.