Курсовая работа: Вероятностные процессы и математическая статистика в автоматизированных системах

procedure TForm1.Button1Click(Sender: TObject);

var k1,k2:integer; yk:real;

begin

randomize;

k1:=random(14)+1;

k2:=random(14)+1;

sgplan.Rows[16]:=sgplan.Rows[k1];

sgplan.Rows[k1]:=sgplan.Rows[k2];

sgplan.Rows[k2]:=sgplan.Rows[16];

yk:=ys[1,k1];

ys[1,k1]:=ys[1,k2];

ys[1,k2]:=yk;

yk:=ys[2,k1];

ys[2,k1]:=ys[2,k2];

ys[2,k2]:=yk;

end;

procedure TForm1.PageControl1Change(Sender: TObject);

var u,i,j,li:integer; sums,g,s2ad,fp,xx:real;

begin

if button2.Enabled=false then begin

sgvos.Cells[0,0]:=' u';

sgvos.Cells[1,0]:=' S2u';

sums:=0;

for u:=1 to 15 do

begin s2u[u]:=sqr(yc[u]-y[1,u])+sqr(yc[u]-y[2,u]);

sgvos.Cells[1,u]:=floattostrf(s2u[u],fffixed,5,3);

sgvos.Cells[0,u]:=inttostr(u);

sums:=sums+s2u[u];

end;