unit1.pas

Numeric Programs

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
//PROGRAM D4R5
//Driver for routine BETA
uses
  unit2;
  {$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
  ACTUAL:array[1..5] of real;W,Z:array[1..5] of REAL;
  F:TextFile;j:Integer;
const
  s1='%6.1f';s2='.#####0e+00';
begin
  ACTUAL[1]:=5;             ACTUAL[2]:=2.5;
  ACTUAL[3]:=0.36075e-3;    ACTUAL[4]:=0.238095e-1;
  ACTUAL[5]:=0.832501e-4;
  W[1]:=1;    W[2]:=1;
  W[3]:=6;    W[4]:=6;
  W[5]:=7;
  Z[1]:=0.2;  Z[2]:=0.4;
  Z[3]:=6;    Z[4]:=2;
  Z[5]:=7;
  //输出计算结果到文件
  AssignFile(F, 'd:\delphi_shu\p4\d4r5.dat');
  Rewrite(F);
  Writeln(F, '    W     Z       Actual       BETA(W,Z)');
  For j:= 1 To 5 do
    Writeln(F,Format(s1,[W[j]]),Format(s1,[Z[j]]),'    ',
      FormatFloat(s2,Actual[j]),'    ',FormatFloat(s2,BETA(W[j], Z[j])));
  CloseFile(F);
  //屏幕显示计算结果
  memo1.Lines.LoadFromFile('d:\delphi_shu\p4\d4r5.dat');
end;

end.