代码搜索结果
找到约 10,000 项符合
2 的代码
d2r2.dof
[Compiler]
A=1
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=1
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;
d2r2.dpr
program d2r2;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas';
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run
d2r2.txt
implementation
//PROGRAM D2R2
//Driver for routine RATINT
uses
unit2;
{$R *.DFM}
Function FUNC(x:real):real;
begin
FUNC:= X * Exp(-X)/(Sqr(X - 1)+1);
end;
procedure TForm1.Button1C