?? fleg.txt
字號(hào):
Procedure FLEG(X:real; var PL:array of real; NL:integer);
var
J:integer; TWOX,F1,F2,D:real;
begin
PL[1]:=1;
PL[2]:=X;
If NL > 2 Then
begin
TWOX:=2 * X;
F2:=X;
D:=1;
For J:=3 To NL do
begin
F1:=D;
F2:=F2 + TWOX;
D:=D + 1;
PL[J]:=(F2 * PL[J - 1] - F1 * PL[J - 2]) / D;
end;
end;
end;
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -