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

var i,j:integer;

begin

x0[1]:=1; x0[2]:=175; x0[3]:=4;

ix[1]:=0.5; ix[2]:=25; ix[3]:=2;

y[1,1]:=24.99; y[1,2]:=22.61;y[1,3]:=26.99; y[1,4]:=39.61;

y[1,5]:=49.8; y[1,6]:=37.8; y[1,7]:=26.61; y[1,8]:=28.99;

y[1,9]:=35.8; y[1,10]:=37.61;y[1,11]:=27.99;y[1,12]:=24.18;

y[1,13]:=26.8; y[1,14]:=34.99;y[1,15]:=32.8;

y[2,1]:=25.51;y[2,2]:=23.89; y[2,3]:=26.89; y[2,4]:=39.51;

y[2,5]:=53.7; y[2,6]:=37.51; y[2,7]:=26.7; y[2,8]:=28.7;

y[2,9]:=38.89;y[2,10]:=37.32;y[2,11]:=33.51;y[2,12]:=28.7;

y[2,13]:=30.7; y[2,14]:=38.7;y[2,15]:=31.51;

xc2:=sqrt(8/15); d:=sqrt((15*xc2-8)/2);

ys:=y;

sgcod.Cells[0,1]:='Íóëåâîé óðîâåíü';

sgcod.Cells[0,2]:='Èíòåðâàë âàðüèðîâàíèÿ';

sgcod.Cells[0,3]:='Íèæíèé óðîâåíü';

sgcod.Cells[0,4]:='Âåðõíèé óðîâåíü';

sgcod.Cells[0,5]:='Êîäîâîå îáîçíà÷åíèå';

sgcod.Cells[1,0]:='Ñîäåðæ. Li,% ';

sgcod.Cells[2,0]:='T ñòàð., ãð.Ñ ';

sgcod.Cells[3,0]:=' t ñòàð., ÷. ';

for i:=1 to 3 do

begin sgcod.Cells[i,1]:=' '+floattostr(x0[i]);

sgcod.Cells[i,2]:=' '+floattostr(ix[i]);

sgcod.Cells[i,3]:=' '+floattostr(x0[i]-ix[i]);

sgcod.Cells[i,4]:=' '+floattostr(x0[i]+ix[i]);

end;

sgcod.Cells[1,5]:=' x1';