d11r12.txt

《Delphi常用数值算法集》的配书源码

implementation
//PROGRAM D11R12
//Driver for routine PROBKS
uses
  unit2;
  {$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
const
  s1='%10.4f';
  NPTS = 20; SCALE1 = 40;  EPS = 0.1;
var
  F:TextFile;   I,J:Integer;  ALAM,VALUE:real;  STR1:string;
  TEXT:array[0..50] of String;
begin
  //输出计算结果到文件
  AssignFile(F, 'd:\delphi_shu\p11\d11r12.dat');
  Rewrite(F);
  Writeln(F, 'Probability func. Kolmogorov-Smirnov statistic');
  Writeln(F);
  Writeln(F, ' Lambda:  Value:   Graph:');
  For I:= 1 To NPTS do
  begin
    ALAM:= I * EPS;
    VALUE:= PROBKS(ALAM);
    TEXT[1]:='*';
    For J:= 1 To 50 do
    begin
      If J <= Round(SCALE1 * Value) Then
        Text[J]:= '*'
      else
        Text[J]:= ' ';
    end;
    STR1:=' ';
    For J:= 1 To 50 do
      STR1:= STR1 + TEXT[J];
    Writeln(F, Format('%6.2f',[ALAM]),Format(s1,[Value]),' ',STR1);
  end;
  CloseFile(F);
  //屏幕显示计算结果
  memo1.Lines.LoadFromFile('d:\delphi_shu\p11\d11r12.dat');
end;