fpoly.txt

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

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;