Теорія імовірностей та математична статистика

halt;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.Close;

Form1.Visible:=true;

end;

procedure TForm2.FormActivate(Sender: TObject);

var sn,i,j,k:integer;p,w,v,t:variant;dx,tx:double;

s1,s2,s3:string;

begin

v := VarArrayCreate([0,n], varDouble);

p := VarArrayCreate([0,n], varDouble);

m:=0;

for i:=1 to n do begin

v[i]:=Form1.StringGrid1.Cells[i,0];

p[i]:=Form1.StringGrid1.Cells[i,0];

end;

{sorting}

k:=n;

while k<>0 do begin

for i:=n-1 downto 1 do

if v[i]>v[i+1] then begin

t:=v[i]; v[i]:=v[i+1]; v[i+1]:=t;

end;