📄 f1dim.txt
字号:
Function F1DIM(X:real):real;
var
XT:array[0..50] of real;
J:integer;
begin
For J:=1 To NCOM do
XT[J]:=PCOM[J] + X * XICOM[J];
F1DIM:=FUNC2(XT, NCOM);
end;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -