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

x[8,i]:=x2[2,i];

x[9,i]:=x2[3,i];

end;

for i:=1 to 15 do

begin sgplan.Cells[0,i]:=inttostr(i);

sgplan.Cells[1,i]:=' 1';

for j:=1 to 3 do begin

sgplan.Cells[j+1,i]:=' '+floattostr(x[j,i]);

sgplan.Cells[j+4,i]:=' '+floattostrf(x2[j,i],fffixed,5,3); end;

sgplan.Cells[8,i]:=' '+floattostr(x12[i]);

sgplan.Cells[9,i]:=' '+floattostr(x13[i]);

sgplan.Cells[10,i]:=' '+floattostr(x23[i]);

end;

xh[1]:=-1; xh[2]:=-1; xh[3]:=-1;

kk:=0;

end;

procedure TForm1.Button2Click(Sender: TObject);

var i:integer;

begin

kk:=kk+1;

for i:=1 to 15 do

sgplan.Cells[10+kk,i]:=floattostr(ys[kk,i]);

if kk>=2 then begin button2.Enabled:=false;

for i:=1 to 15 do begin

yc[i]:=(y[1,i]+y[2,i])/2;

ycs[i]:=(y[1,i]+y[2,i])/2;

sgplan.Cells[13,i]:=floattostr(ycs[i]);

end;

end;