?? d11r3.txt
字號:
implementation
//PROGRAM D11R3
//Driver for routine MDIAN2
uses
unit2;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
const
s1='%9.6f'; NPTS = 50;
var
F:TextFile; I,J:Integer;
DATA:array[0..50] of real; XMED:real;
begin
New(ISET); New(GSET);
Randomize;
For I:= 1 To NPTS do
DATA[I]:= GASDEV;
MDIAN2(DATA, NPTS, XMED);
//輸出計算結果到文件
AssignFile(F, 'd:\delphi_shu\p11\d11r3.dat');
Rewrite(F);
Writeln(F, 'Gaussian distrib., zero mean, unit variance');
Writeln(F);
Writeln(F, 'Median according to MDIAN2 is ', Format(s1,[XMED]));
MDIAN1(DATA, NPTS, XMED);
Writeln(F, 'Median according to MDIAN1 is ', Format(s1,[XMED]));
CloseFile(F);
//屏幕顯示計算結果
memo1.Lines.LoadFromFile('d:\delphi_shu\p11\d11r3.dat');
end;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -