d8r1.txt

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

implementation
//PROGRAM D8R1
//Driver for routine EULSUM
uses
  unit2;
  {$R *.DFM}
var
  F:TextFile;
procedure TForm1.Button1Click(Sender: TObject);
begin
  //输出计算结果到文件
  AssignFile(F, 'd:\delphi_shu\p8\d8r1.dat');
  Rewrite(F);
  Writeln(F, '      Graph of the Bessel Function J0:');
  Writeln(F);
  SCRSHO;
  CloseFile(F);
  //屏幕显示计算结果
  memo1.Lines.LoadFromFile('d:\delphi_shu\p8\d8r1.dat');
end;