Додаток 4.

 

unit URozr;

..........................

procedure TRozr.BitBtn2Click(Sender: TObject);

begin

Close;

end;

 

procedure TRozr.FormActivate(Sender: TObject);

begin

tabl.Cells[0,0]:='Номер';

 tabl.Cells[1,0]:='Х спотворене';

 tabl.Cells[2,0]:='x^0';

 tabl.Cells[3,0]:='x^2';

 tabl.Cells[4,0]:='x^3';

 tabl.Cells[5,0]:='x^4';

 tabl.Cells[6,0]:='x^5';

 tabl.Cells[7,0]:='x^6';

 tabl.Cells[8,0]:='Xістинне';

 tabl.Cells[9,0]:='Yістинне';

 tabl.Cells[10,0]:='XY';

 tabl.Cells[11,0]:='YX^2';

 tabl.Cells[12,0]:='YX^3';

 tabl.Cells[13,0]:='Yзрівноважене';

 tabl.Cells[14,0]:='Yі-Yзрівн.';

 tabl.Cells[15,0]:='VV';

 tabl.Cells[16,0]:='YY';

 tabl.Cells[17,0]:='Генер_число';

 tabl.Cells[18,0]:='Вектор_оберн_ваг';

 tabl.Cells[19,0]:='Корінь ваг';

 tabl.Cells[20,0]:='Сер_кв_пох функції';

tabl.Cells[0,1]:='1';

 tabl.Cells[0,2]:='2';

 tabl.Cells[0,3]:='3';

 tabl.Cells[0,4]:='4';

 tabl.Cells[0,5]:='5';

 tabl.Cells[0,6]:='6';

 tabl.Cells[0,7]:='7';

 tabl.Cells[0,8]:='8';

 tabl.Cells[0,9]:='9';

 tabl.Cells[0,10]:='10';

 tabl.Cells[0,11]:='11';

 tabl.Cells[0,12]:='12';

 tabl.Cells[0,13]:='13';

 tabl.Cells[0,14]:='14';

 tabl.Cells[0,15]:='15';

 tabl.Cells[0,16]:='16';

 tabl.Cells[0,17]:='17';

 tabl.Cells[0,18]:='18';

 tabl.Cells[0,19]:='19';

 tabl.Cells[0,20]:='20';

 tabl.Cells[0,21]:='21';

 tabl.Cells[0,22]:='22';

 tabl.Cells[0,23]:='23';

 tabl.Cells[0,24]:='24';

 tabl.Cells[0,25]:='25';

 tabl.Cells[0,26]:='26';

 tabl.Cells[0,27]:='27';

 tabl.Cells[0,28]:='28';

 tabl.Cells[0,29]:='29';

 tabl.Cells[0,30]:='30';

 tabl.Cells[0,31]:='31';

 tabl.Cells[0,32]:='32';

 tabl.Cells[0,33]:='33';

 tabl.Cells[0,34]:='34';

 tabl.Cells[0,35]:='35';

 tabl.Cells[0,36]:='36';

 tabl.Cells[0,37]:='37';

 tabl.Cells[0,38]:='38';

 tabl.Cells[0,11]:='Сума';

BitBtn1.Enabled:=false;

 Panel2.Visible:=false;

 Panel3.Visible:=false;

 PageControl1.Visible:=false;

end;

 

 

procedure TRozr.FormClose(Sender: TObject; var Action: TCloseAction);

begin

action:=CaFree;

end;

 

 

procedure TRozr.BitBtn3Click(Sender: TObject);

var

  a:array [1..39] of real;

  summ:real;

  sr,n28,n21,n35,n42,n49,d,d1,d2,d3,o,n,m,l,k,g,j,r,q,p,h,c,a11,a22,a33,a44,h54,h56,

  mv,ma,mb,mc,md,e,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,

  y1,y2,y3,y4,y5,y6,y7,y8,y9,y10,y11,y12,y13,y14,y15,y16,y17,y18,y19,y20,y21,y22,

  y23,y24,y25,y26,y27,y28,y29,y30,y31,y32,y33,y34,y35,y36,y37,y38,

  s31,s32,s33,s34,s35,s36,s37,s38,s39,s3,s21,s22,

  s23,s24,s25,s26,s27,s28,s29,s2,ss1,ss2,ss3,ss4,ss5,ss6,ss7,ss8,ss9,ss,

  s01,s02,s03,s04,s05,s06,s07,s08,s09,s0,zn1,zn2,zn3,zn4,

  s40,s41,s42,s43,s44,s45,s46,s47,s48,s49,s50,s51,s52,s53,s54,s55,s56,s57,s58,

  s59,s60,s61,s62,s63,s64,s65,s66,s67,

  s30,s70,s71,s72,s73,s74,s75,s76,s77,s78,s79,s80,s81,s82,s83,s84,s85,s86,

  s87,s88,s89,s90,s91,s92,s93,s94,s95,s96,s97,

  ss10,ss11,ss12,ss13,ss14,ss15,ss16,ss17,ss18,ss19,ss20,ss21,ss22,ss23,ss24,

  ss25,ss26,ss27,ss28,ss29,ss30,ss31,ss32,ss33,ss34,ss35,ss36,ss37,

  s010,s012,s013,s014,s015,s016,s017,s018,s019,S011,s020,s021,s023,s024,s025,s026,

  s027,s028,s029,s022,s030,s031,s032,s033,s034,s035,s036,s037:real;

  i:integer;

begin

 

  tabl.Cols[1].LoadFromFile('date\Xspotv.txt');

  tabl.Cols[8].LoadFromFile('date\Xist.txt');

  tabl.Cols[9].LoadFromFile('date\Yist.txt');

  tabl.Cols[17].LoadFromFile('date\generPohib.txt');

 

  tabl.Cells[2,1]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,1])))));//,ffGeneral,6,5);

  tabl.Cells[2,2]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,2])))));//,ffGeneral,6,5);

  tabl.Cells[2,3]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,3])))));//,ffGeneral,6,5);

  tabl.Cells[2,4]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,4])))));//,ffGeneral,6,5);

  tabl.Cells[2,5]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,5])))));//,ffGeneral,6,5);

  tabl.Cells[2,6]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,6])))));//,ffGeneral,6,5);

  tabl.Cells[2,7]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,7])))));//,ffGeneral,6,5);

  tabl.Cells[2,8]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,8])))));//,ffGeneral,6,5);

  tabl.Cells[2,9]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,9])))));//,ffGeneral,6,5);

  tabl.Cells[2,10]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,10])))));//,ffGeneral,6,5);

  tabl.Cells[2,11]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,11])))));//,ffGeneral,6,5);

  tabl.Cells[2,12]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,12])))));//,ffGeneral,6,5);

  tabl.Cells[2,13]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,13])))));//,ffGeneral,6,5);

  tabl.Cells[2,14]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,14])))));//,ffGeneral,6,5);

  tabl.Cells[2,15]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,15])))));//,ffGeneral,6,5);

  tabl.Cells[2,16]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,16])))));//,ffGeneral,6,5);

  tabl.Cells[2,17]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,17])))));//,ffGeneral,6,5);

  tabl.Cells[2,18]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,18])))));//,ffGeneral,6,5);

  tabl.Cells[2,19]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,19])))));//,ffGeneral,6,5);

  tabl.Cells[2,20]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,20])))));//,ffGeneral,6,5);

  tabl.Cells[2,21]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,21])))));//,ffGeneral,6,5);

  tabl.Cells[2,22]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,22])))));//,ffGeneral,6,5);

  tabl.Cells[2,23]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,23])))));//,ffGeneral,6,5);

  tabl.Cells[2,24]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,24])))));//,ffGeneral,6,5);

  tabl.Cells[2,25]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,25])))));//,ffGeneral,6,5);

  tabl.Cells[2,26]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,26])))));//,ffGeneral,6,5);

  tabl.Cells[2,27]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,27])))));//,ffGeneral,6,5);

  tabl.Cells[2,28]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,28])))));//,ffGeneral,6,5);

  tabl.Cells[2,29]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,29])))));//,ffGeneral,6,5);

  tabl.Cells[2,30]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,30])))));//,ffGeneral,6,5);

  tabl.Cells[2,31]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,31])))));//,ffGeneral,6,5);

  tabl.Cells[2,32]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,32])))));//,ffGeneral,6,5);

  tabl.Cells[2,33]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,33])))));//,ffGeneral,6,5);

  tabl.Cells[2,34]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,34])))));//,ffGeneral,6,5);

  tabl.Cells[2,35]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,35])))));//,ffGeneral,6,5);

  tabl.Cells[2,36]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,36])))));//,ffGeneral,6,5);

  tabl.Cells[2,37]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,37])))));//,ffGeneral,6,5);

  tabl.Cells[2,38]:=floattostr(exp(0*(ln(strtofloat(tabl.Cells[1,38])))));//,ffGeneral,6,5);

           for i:=1 to 38 do

        if tabl.Cells[2,i]<>''

         then

          a[i]:=StrToFloat(tabl.Cells[2,i])

           else a[i]:=0;

           summ:=0;

              for i:=1 to 38 do

              summ:=summ+a[i];

   tabl.Cells[2,39]:=FloatToStr(summ);//,ffGeneral,6,5);

 

  tabl.Cells[3,1]:=floattostr(sqr(strtofloat(tabl.Cells[1,1])));//,ffGeneral,6,5);

  tabl.Cells[3,2]:=floattostr(sqr(strtofloat(tabl.Cells[1,2])));//,ffGeneral,6,5);

  tabl.Cells[3,3]:=floattostr(sqr(strtofloat(tabl.Cells[1,3])));//,ffGeneral,6,5);

  tabl.Cells[3,4]:=floattostr(sqr(strtofloat(tabl.Cells[1,4])));//,ffGeneral,6,5);

  tabl.Cells[3,5]:=floattostr(sqr(strtofloat(tabl.Cells[1,5])));//,ffGeneral,6,5);

  tabl.Cells[3,6]:=floattostr(sqr(strtofloat(tabl.Cells[1,6])));//,ffGeneral,6,5);

  tabl.Cells[3,7]:=floattostr(sqr(strtofloat(tabl.Cells[1,7])));//,ffGeneral,6,5);

  tabl.Cells[3,8]:=floattostr(sqr(strtofloat(tabl.Cells[1,8])));//,ffGeneral,6,5);

  tabl.Cells[3,9]:=floattostr(sqr(strtofloat(tabl.Cells[1,9])));//,ffGeneral,6,5);

  tabl.Cells[3,10]:=floattostr(sqr(strtofloat(tabl.Cells[1,10])));//,ffGeneral,6,5);

  tabl.Cells[3,11]:=floattostr(sqr(strtofloat(tabl.Cells[1,11])));//,ffGeneral,6,5);

  tabl.Cells[3,12]:=floattostr(sqr(strtofloat(tabl.Cells[1,12])));//,ffGeneral,6,5);

  tabl.Cells[3,13]:=floattostr(sqr(strtofloat(tabl.Cells[1,13])));//,ffGeneral,6,5);

  tabl.Cells[3,14]:=floattostr(sqr(strtofloat(tabl.Cells[1,14])));//,ffGeneral,6,5);

  tabl.Cells[3,15]:=floattostr(sqr(strtofloat(tabl.Cells[1,15])));//,ffGeneral,6,5);

  tabl.Cells[3,16]:=floattostr(sqr(strtofloat(tabl.Cells[1,16])));//,ffGeneral,6,5);

  tabl.Cells[3,17]:=floattostr(sqr(strtofloat(tabl.Cells[1,17])));//,ffGeneral,6,5);

  tabl.Cells[3,18]:=floattostr(sqr(strtofloat(tabl.Cells[1,18])));//,ffGeneral,6,5);

  tabl.Cells[3,19]:=floattostr(sqr(strtofloat(tabl.Cells[1,19])));//,ffGeneral,6,5);

  tabl.Cells[3,20]:=floattostr(sqr(strtofloat(tabl.Cells[1,20])));//,ffGeneral,6,5);

  tabl.Cells[3,21]:=floattostr(sqr(strtofloat(tabl.Cells[1,21])));//,ffGeneral,6,5);

  tabl.Cells[3,22]:=floattostr(sqr(strtofloat(tabl.Cells[1,22])));//,ffGeneral,6,5);

  tabl.Cells[3,23]:=floattostr(sqr(strtofloat(tabl.Cells[1,23])));//,ffGeneral,6,5);

  tabl.Cells[3,24]:=floattostr(sqr(strtofloat(tabl.Cells[1,24])));//,ffGeneral,6,5);

  tabl.Cells[3,25]:=floattostr(sqr(strtofloat(tabl.Cells[1,25])));//,ffGeneral,6,5);

  tabl.Cells[3,26]:=floattostr(sqr(strtofloat(tabl.Cells[1,26])));//,ffGeneral,6,5);

  tabl.Cells[3,27]:=floattostr(sqr(strtofloat(tabl.Cells[1,27])));//,ffGeneral,6,5);

  tabl.Cells[3,28]:=floattostr(sqr(strtofloat(tabl.Cells[1,28])));//,ffGeneral,6,5);

  tabl.Cells[3,29]:=floattostr(sqr(strtofloat(tabl.Cells[1,29])));//,ffGeneral,6,5);

  tabl.Cells[3,30]:=floattostr(sqr(strtofloat(tabl.Cells[1,30])));//,ffGeneral,6,5);

  tabl.Cells[3,31]:=floattostr(sqr(strtofloat(tabl.Cells[1,31])));//,ffGeneral,6,5);

  tabl.Cells[3,32]:=floattostr(sqr(strtofloat(tabl.Cells[1,32])));//,ffGeneral,6,5);

  tabl.Cells[3,33]:=floattostr(sqr(strtofloat(tabl.Cells[1,33])));//,ffGeneral,6,5);

  tabl.Cells[3,34]:=floattostr(sqr(strtofloat(tabl.Cells[1,34])));//,ffGeneral,6,5);

  tabl.Cells[3,35]:=floattostr(sqr(strtofloat(tabl.Cells[1,35])));//,ffGeneral,6,5);

  tabl.Cells[3,36]:=floattostr(sqr(strtofloat(tabl.Cells[1,36])));//,ffGeneral,6,5);

  tabl.Cells[3,37]:=floattostr(sqr(strtofloat(tabl.Cells[1,37])));//,ffGeneral,6,5);

  tabl.Cells[3,38]:=floattostr(sqr(strtofloat(tabl.Cells[1,38])));//,ffGeneral,6,5);

 

  for i:=1 to 38 do

   if tabl.Cells[3,i]<>''

   then

   a[i]:=StrToFloat(tabl.Cells[3,i])

   else a[i]:=0;

   summ:=0;

        for i:=1 to 38 do

        summ:=summ+a[i];

   tabl.Cells[3,39]:=FloatToStr(summ);

  tabl.Cells[4,1]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,1])))));//,ffGeneral,6,5);

  tabl.Cells[4,2]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,2])))));//,ffGeneral,6,5);

  tabl.Cells[4,3]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,3])))));//,ffGeneral,6,5);

  tabl.Cells[4,4]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,4])))));//,ffGeneral,6,5);

  tabl.Cells[4,5]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,5])))));//,ffGeneral,6,5);

  tabl.Cells[4,6]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,6])))));//,ffGeneral,6,5);

  tabl.Cells[4,7]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,7])))));//,ffGeneral,6,5);

  tabl.Cells[4,8]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,8])))));//,ffGeneral,6,5);

  tabl.Cells[4,9]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,9])))));//,ffGeneral,6,5);

  tabl.Cells[4,10]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,10])))));//,ffGeneral,6,5);

  tabl.Cells[4,11]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,11])))));//,ffGeneral,6,5);

  tabl.Cells[4,12]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,12])))));//,ffGeneral,6,5);

  tabl.Cells[4,13]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,13])))));//,ffGeneral,6,5);

  tabl.Cells[4,14]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,14])))));//,ffGeneral,6,5);

  tabl.Cells[4,15]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,15])))));//,ffGeneral,6,5);

  tabl.Cells[4,16]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,16])))));//,ffGeneral,6,5);

  tabl.Cells[4,17]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,17])))));//,ffGeneral,6,5);

  tabl.Cells[4,18]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,18])))));//,ffGeneral,6,5);

  tabl.Cells[4,19]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,19])))));//,ffGeneral,6,5);

  tabl.Cells[4,20]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,20])))));//,ffGeneral,6,5);

  tabl.Cells[4,21]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,21])))));//,ffGeneral,6,5);

  tabl.Cells[4,22]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,22])))));//,ffGeneral,6,5);

  tabl.Cells[4,23]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,23])))));//,ffGeneral,6,5);

  tabl.Cells[4,24]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,24])))));//,ffGeneral,6,5);

  tabl.Cells[4,25]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,25])))));//,ffGeneral,6,5);

  tabl.Cells[4,26]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,26])))));//,ffGeneral,6,5);

  tabl.Cells[4,27]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,27])))));//,ffGeneral,6,5);

  tabl.Cells[4,28]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,28])))));//,ffGeneral,6,5);

  tabl.Cells[4,29]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,29])))));//,ffGeneral,6,5);

  tabl.Cells[4,30]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,30])))));//,ffGeneral,6,5);

  tabl.Cells[4,31]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,31])))));//,ffGeneral,6,5);

  tabl.Cells[4,32]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,32])))));//,ffGeneral,6,5);

  tabl.Cells[4,33]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,33])))));//,ffGeneral,6,5);

  tabl.Cells[4,34]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,34])))));//,ffGeneral,6,5);

  tabl.Cells[4,35]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,35])))));//,ffGeneral,6,5);

  tabl.Cells[4,36]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,36])))));//,ffGeneral,6,5);

  tabl.Cells[4,37]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,37])))));//,ffGeneral,6,5);

  tabl.Cells[4,38]:=floattostr(exp(3*(ln(strtofloat(tabl.Cells[1,39])))));//,ffGeneral,6,5);

   for i:=1 to 38 do

        if tabl.Cells[4,i]<>''

         then

          a[i]:=StrToFloat(tabl.Cells[4,i])

           else a[i]:=0;

            summ:=0;

             for i:=1 to 38 do

             summ:=summ+a[i];

   tabl.Cells[4,39]:=FloatToStr(summ);//,ffGeneral,6,5);

 

  tabl.Cells[5,1]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,1])))));//,ffGeneral,6,5);

  tabl.Cells[5,2]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,2])))));//,ffGeneral,6,5);

  tabl.Cells[5,3]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,3])))));//,ffGeneral,6,5);

  tabl.Cells[5,4]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,4])))));//,ffGeneral,6,5);

  tabl.Cells[5,5]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,5])))));//,ffGeneral,6,5);

  tabl.Cells[5,6]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,6])))));//,ffGeneral,6,5);

  tabl.Cells[5,7]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,7])))));//,ffGeneral,6,5);

  tabl.Cells[5,8]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,8])))));//,ffGeneral,6,5);

  tabl.Cells[5,9]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,9])))));//,ffGeneral,6,5);

  tabl.Cells[5,10]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,10])))));//,ffGeneral,6,5);

  tabl.Cells[5,11]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,11])))));//,ffGeneral,6,5);

  tabl.Cells[5,12]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,12])))));//,ffGeneral,6,5);

  tabl.Cells[5,13]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,13])))));//,ffGeneral,6,5);

  tabl.Cells[5,14]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,14])))));//,ffGeneral,6,5);

  tabl.Cells[5,15]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,15])))));//,ffGeneral,6,5);

  tabl.Cells[5,16]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,16])))));//,ffGeneral,6,5);

  tabl.Cells[5,17]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,17])))));//,ffGeneral,6,5);

  tabl.Cells[5,18]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,18])))));//,ffGeneral,6,5);

  tabl.Cells[5,19]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,19])))));//,ffGeneral,6,5);

  tabl.Cells[5,20]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,20])))));//,ffGeneral,6,5);

  tabl.Cells[5,21]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,21])))));//,ffGeneral,6,5);

  tabl.Cells[5,22]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,22])))));//,ffGeneral,6,5);

  tabl.Cells[5,23]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,23])))));//,ffGeneral,6,5);

  tabl.Cells[5,24]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,24])))));//,ffGeneral,6,5);

  tabl.Cells[5,25]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,25])))));//,ffGeneral,6,5);

  tabl.Cells[5,26]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,26])))));//,ffGeneral,6,5);

  tabl.Cells[5,27]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,27])))));//,ffGeneral,6,5);

  tabl.Cells[5,28]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,28])))));//,ffGeneral,6,5);

  tabl.Cells[5,29]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,29])))));//,ffGeneral,6,5);

  tabl.Cells[5,30]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,30])))));//,ffGeneral,6,5);

  tabl.Cells[5,31]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,31])))));//,ffGeneral,6,5);

  tabl.Cells[5,32]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,32])))));//,ffGeneral,6,5);

  tabl.Cells[5,33]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,33])))));//,ffGeneral,6,5);

  tabl.Cells[5,34]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,34])))));//,ffGeneral,6,5);

  tabl.Cells[5,35]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,35])))));//,ffGeneral,6,5);

  tabl.Cells[5,36]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,36])))));//,ffGeneral,6,5);

  tabl.Cells[5,37]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,37])))));//,ffGeneral,6,5);

  tabl.Cells[5,38]:=floattostr(exp(4*(ln(strtofloat(tabl.Cells[1,39])))));//,ffGeneral,6,5);

      for i:=1 to 38 do

        if tabl.Cells[4,i]<>''

         then

          a[i]:=StrToFloat(tabl.Cells[4,i])

           else a[i]:=0;

            summ:=0;

             for i:=1 to 38 do

             summ:=summ+a[i];

   tabl.Cells[5,39]:=FloatToStr(summ);//,ffGeneral,6,5);

 

  tabl.Cells[6,1]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,1])))));//,ffGeneral,6,5);

  tabl.Cells[6,2]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,2])))));//,ffGeneral,6,5);

  tabl.Cells[6,3]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,3])))));//,ffGeneral,6,5);

  tabl.Cells[6,4]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,4])))));//,ffGeneral,6,5);

  tabl.Cells[6,5]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,5])))));//,ffGeneral,6,5);

  tabl.Cells[6,6]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,6])))));//,ffGeneral,6,5);

  tabl.Cells[6,7]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,7])))));//,ffGeneral,6,5);

  tabl.Cells[6,8]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,8])))));//,ffGeneral,6,5);

  tabl.Cells[6,9]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,9])))));//,ffGeneral,6,5);

  tabl.Cells[6,10]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,10])))));//,ffGeneral,6,5);

  tabl.Cells[6,11]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,11])))));//,ffGeneral,6,5);

  tabl.Cells[6,12]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,12])))));//,ffGeneral,6,5);

  tabl.Cells[6,13]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,13])))));//,ffGeneral,6,5);

  tabl.Cells[6,14]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,14])))));//,ffGeneral,6,5);

  tabl.Cells[6,15]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,15])))));//,ffGeneral,6,5);

  tabl.Cells[6,16]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,16])))));//,ffGeneral,6,5);

  tabl.Cells[6,17]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,17])))));//,ffGeneral,6,5);

  tabl.Cells[6,18]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,18])))));//,ffGeneral,6,5);

  tabl.Cells[6,19]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,19])))));//,ffGeneral,6,5);

  tabl.Cells[6,20]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,20])))));//,ffGeneral,6,5);

  tabl.Cells[6,21]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,21])))));//,ffGeneral,6,5);

  tabl.Cells[6,22]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,22])))));//,ffGeneral,6,5);

  tabl.Cells[6,23]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,23])))));//,ffGeneral,6,5);

  tabl.Cells[6,24]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,24])))));//,ffGeneral,6,5);

  tabl.Cells[6,25]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,25])))));//,ffGeneral,6,5);

  tabl.Cells[6,26]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,26])))));//,ffGeneral,6,5);

  tabl.Cells[6,27]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,27])))));//,ffGeneral,6,5);

  tabl.Cells[6,28]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,28])))));//,ffGeneral,6,5);

  tabl.Cells[6,29]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,29])))));//,ffGeneral,6,5);

  tabl.Cells[6,30]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,30])))));//,ffGeneral,6,5);

  tabl.Cells[6,31]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,31])))));//,ffGeneral,6,5);

  tabl.Cells[6,32]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,32])))));//,ffGeneral,6,5);

  tabl.Cells[6,33]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,33])))));//,ffGeneral,6,5);

  tabl.Cells[6,34]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,34])))));//,ffGeneral,6,5);

  tabl.Cells[6,35]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,35])))));//,ffGeneral,6,5);

  tabl.Cells[6,36]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,36])))));//,ffGeneral,6,5);

  tabl.Cells[6,37]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,37])))));//,ffGeneral,6,5);

  tabl.Cells[6,38]:=floattostr(exp(5*(ln(strtofloat(tabl.Cells[1,39])))));//,ffGeneral,6,5);

  for i:=1 to 38 do

        if tabl.Cells[4,i]<>''

         then

          a[i]:=StrToFloat(tabl.Cells[4,i])

           else a[i]:=0;

            summ:=0;

             for i:=1 to 38 do

             summ:=summ+a[i];

   tabl.Cells[6,39]:=FloatToStr(summ);//,ffGeneral,6,5);

 

  tabl.Cells[7,1]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,1])))));//,ffGeneral,6,5);

  tabl.Cells[7,2]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,2])))));//,ffGeneral,6,5);

  tabl.Cells[7,3]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,3])))));//,ffGeneral,6,5);

  tabl.Cells[7,4]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,4])))));//,ffGeneral,6,5);

  tabl.Cells[7,5]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,5])))));//,ffGeneral,6,5);

  tabl.Cells[7,6]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,6])))));//,ffGeneral,6,5);

  tabl.Cells[7,7]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,7])))));//,ffGeneral,6,5);

  tabl.Cells[7,8]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,8])))));//,ffGeneral,6,5);

  tabl.Cells[7,9]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,9])))));//,ffGeneral,6,5);

  tabl.Cells[7,10]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,10])))));//,ffGeneral,6,5);

  tabl.Cells[7,11]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,11])))));//,ffGeneral,6,5);

  tabl.Cells[7,12]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,12])))));//,ffGeneral,6,5);

  tabl.Cells[7,13]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,13])))));//,ffGeneral,6,5);

  tabl.Cells[7,14]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,14])))));//,ffGeneral,6,5);

  tabl.Cells[7,15]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,15])))));//,ffGeneral,6,5);

  tabl.Cells[7,16]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,16])))));//,ffGeneral,6,5);

  tabl.Cells[7,17]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,17])))));//,ffGeneral,6,5);

  tabl.Cells[7,18]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,18])))));//,ffGeneral,6,5);

  tabl.Cells[7,19]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,19])))));//,ffGeneral,6,5);

  tabl.Cells[7,20]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,20])))));//,ffGeneral,6,5);

  tabl.Cells[7,21]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,21])))));//,ffGeneral,6,5);

  tabl.Cells[7,22]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,22])))));//,ffGeneral,6,5);

  tabl.Cells[7,23]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,23])))));//,ffGeneral,6,5);

  tabl.Cells[7,24]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,24])))));//,ffGeneral,6,5);

  tabl.Cells[7,25]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,25])))));//,ffGeneral,6,5);

  tabl.Cells[7,26]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,26])))));//,ffGeneral,6,5);

  tabl.Cells[7,27]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,27])))));//,ffGeneral,6,5);

  tabl.Cells[7,28]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,28])))));//,ffGeneral,6,5);

  tabl.Cells[7,29]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,29])))));//,ffGeneral,6,5);

  tabl.Cells[7,30]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,30])))));//,ffGeneral,6,5);

  tabl.Cells[7,31]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,31])))));//,ffGeneral,6,5);

  tabl.Cells[7,32]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,32])))));//,ffGeneral,6,5);

  tabl.Cells[7,33]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,33])))));//,ffGeneral,6,5);

  tabl.Cells[7,34]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,34])))));//,ffGeneral,6,5);

  tabl.Cells[7,35]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,35])))));//,ffGeneral,6,5);

  tabl.Cells[7,36]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,36])))));//,ffGeneral,6,5);

  tabl.Cells[7,37]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,37])))));//,ffGeneral,6,5);

  tabl.Cells[7,38]:=floattostr(exp(6*(ln(strtofloat(tabl.Cells[1,39])))));//,ffGeneral,6,5);

    for i:=1 to 38 do

        if tabl.Cells[4,i]<>''

         then

          a[i]:=StrToFloat(tabl.Cells[4,i])

           else a[i]:=0;

            summ:=0;

             for i:=1 to 38 do

             summ:=summ+a[i];

   tabl.Cells[7,39]:=FloatToStr(summ);//,ffGeneral,6,5);

  tabl.Cells[10,1]:=floattostr((strtofloat(tabl.Cells[1,1]))*(strtofloat(tabl.Cells[9,1])));//,ffGeneral,7,6);

  tabl.Cells[10,2]:=floattostr((strtofloat(tabl.Cells[1,2]))*(strtofloat(tabl.Cells[9,2])));//,ffGeneral,7,6);

  tabl.Cells[10,3]:=floattostr((strtofloat(tabl.Cells[1,3]))*(strtofloat(tabl.Cells[9,3])));//,ffGeneral,7,6);

  tabl.Cells[10,4]:=floattostr((strtofloat(tabl.Cells[1,4]))*(strtofloat(tabl.Cells[9,4])));//,ffGeneral,7,6);

  tabl.Cells[10,5]:=floattostr((strtofloat(tabl.Cells[1,5]))*(strtofloat(tabl.Cells[9,5])));//,ffGeneral,7,6);

  tabl.Cells[10,6]:=floattostr((strtofloat(tabl.Cells[1,6]))*(strtofloat(tabl.Cells[9,6])));//,ffGeneral,7,6);

  tabl.Cells[10,7]:=floattostr((strtofloat(tabl.Cells[1,7]))*(strtofloat(tabl.Cells[9,7])));//,ffGeneral,7,6);

  tabl.Cells[10,8]:=floattostr((strtofloat(tabl.Cells[1,8]))*(strtofloat(tabl.Cells[9,8])));//,ffGeneral,7,6);

  tabl.Cells[10,9]:=floattostr((strtofloat(tabl.Cells[1,9]))*(strtofloat(tabl.Cells[9,9])));//,ffGeneral,7,6);

  tabl.Cells[10,10]:=floattostr((strtofloat(tabl.Cells[1,10]))*(strtofloat(tabl.Cells[9,10])));//,ffGeneral,7,6);

  tabl.Cells[10,11]:=floattostr((strtofloat(tabl.Cells[1,11]))*(strtofloat(tabl.Cells[9,11])));//,ffGeneral,7,6);

  tabl.Cells[10,12]:=floattostr((strtofloat(tabl.Cells[1,12]))*(strtofloat(tabl.Cells[9,12])));//,ffGeneral,7,6);

  tabl.Cells[10,13]:=floattostr((strtofloat(tabl.Cells[1,13]))*(strtofloat(tabl.Cells[9,13])));//,ffGeneral,7,6);

  tabl.Cells[10,14]:=floattostr((strtofloat(tabl.Cells[1,14]))*(strtofloat(tabl.Cells[9,14])));//,ffGeneral,7,6);

  tabl.Cells[10,15]:=floattostr((strtofloat(tabl.Cells[1,15]))*(strtofloat(tabl.Cells[9,15])));//,ffGeneral,7,6);

  tabl.Cells[10,16]:=floattostr((strtofloat(tabl.Cells[1,16]))*(strtofloat(tabl.Cells[9,16])));//,ffGeneral,7,6);

  tabl.Cells[10,17]:=floattostr((strtofloat(tabl.Cells[1,17]))*(strtofloat(tabl.Cells[9,17])));//,ffGeneral,7,6);

  tabl.Cells[10,18]:=floattostr((strtofloat(tabl.Cells[1,18]))*(strtofloat(tabl.Cells[9,18])));//,ffGeneral,7,6);

  tabl.Cells[10,19]:=floattostr((strtofloat(tabl.Cells[1,19]))*(strtofloat(tabl.Cells[9,19])));//,ffGeneral,7,6);

  tabl.Cells[10,20]:=floattostr((strtofloat(tabl.Cells[1,20]))*(strtofloat(tabl.Cells[9,20])));//,ffGeneral,7,6);

  tabl.Cells[10,21]:=floattostr((strtofloat(tabl.Cells[1,21]))*(strtofloat(tabl.Cells[9,21])));//,ffGeneral,7,6);

  tabl.Cells[10,22]:=floattostr((strtofloat(tabl.Cells[1,22]))*(strtofloat(tabl.Cells[9,22])));//,ffGeneral,7,6);

  tabl.Cells[10,23]:=floattostr((strtofloat(tabl.Cells[1,23]))*(strtofloat(tabl.Cells[9,23])));//,ffGeneral,7,6);

  tabl.Cells[10,24]:=floattostr((strtofloat(tabl.Cells[1,24]))*(strtofloat(tabl.Cells[9,24])));//,ffGeneral,7,6);

  tabl.Cells[10,25]:=floattostr((strtofloat(tabl.Cells[1,25]))*(strtofloat(tabl.Cells[9,25])));//,ffGeneral,7,6);

  tabl.Cells[10,26]:=floattostr((strtofloat(tabl.Cells[1,26]))*(strtofloat(tabl.Cells[9,26])));//,ffGeneral,7,6);

  tabl.Cells[10,27]:=floattostr((strtofloat(tabl.Cells[1,27]))*(strtofloat(tabl.Cells[9,27])));//,ffGeneral,7,6);

  tabl.Cells[10,28]:=floattostr((strtofloat(tabl.Cells[1,28]))*(strtofloat(tabl.Cells[9,28])));//,ffGeneral,7,6);

  tabl.Cells[10,29]:=floattostr((strtofloat(tabl.Cells[1,29]))*(strtofloat(tabl.Cells[9,29])));//,ffGeneral,7,6);

  tabl.Cells[10,30]:=floattostr((strtofloat(tabl.Cells[1,30]))*(strtofloat(tabl.Cells[9,30])));//,ffGeneral,7,6);

  tabl.Cells[10,31]:=floattostr((strtofloat(tabl.Cells[1,31]))*(strtofloat(tabl.Cells[9,31])));//,ffGeneral,7,6);

  tabl.Cells[10,32]:=floattostr((strtofloat(tabl.Cells[1,32]))*(strtofloat(tabl.Cells[9,32])));//,ffGeneral,7,6);

  tabl.Cells[10,33]:=floattostr((strtofloat(tabl.Cells[1,33]))*(strtofloat(tabl.Cells[9,33])));//,ffGeneral,7,6);

  tabl.Cells[10,34]:=floattostr((strtofloat(tabl.Cells[1,34]))*(strtofloat(tabl.Cells[9,34])));//,ffGeneral,7,6);

  tabl.Cells[10,35]:=floattostr((strtofloat(tabl.Cells[1,35]))*(strtofloat(tabl.Cells[9,35])));//,ffGeneral,7,6);

  tabl.Cells[10,36]:=floattostr((strtofloat(tabl.Cells[1,36]))*(strtofloat(tabl.Cells[9,36])));//,ffGeneral,7,6);

  tabl.Cells[10,37]:=floattostr((strtofloat(tabl.Cells[1,37]))*(strtofloat(tabl.Cells[9,37])));//,ffGeneral,7,6);

  tabl.Cells[10,38]:=floattostr((strtofloat(tabl.Cells[1,38]))*(strtofloat(tabl.Cells[9,38])));//,ffGeneral,7,6);

     { for i:=1 to tabl.RowCount do

  for j:=1 to 2 do

  b:=StrToFloat(tabl.Cells[1,i])-StrToFloat(tabl.Cells[2,i]);

       tabl.Cells[3,i]:=FloatToStr(b); }

       for i:=1 to 38 do

        if tabl.Cells[10,i]<>''

         then

          a[i]:=StrToFloat(tabl.Cells[10,i])

           else a[i]:=0;

            summ:=0;

             for i:=1 to 38 do

             summ:=summ+a[i];

   tabl.Cells[10,39]:=FloatToStr(summ);//,ffGeneral,7,6);

   tabl.Cells[11,1]:=floattostr((strtofloat(tabl.Cells[3,1]))*(strtofloat(tabl.Cells[9,1])));//,ffGeneral,7,6);

  tabl.Cells[11,2]:=floattostr((strtofloat(tabl.Cells[3,2]))*(strtofloat(tabl.Cells[9,2])));//,ffGeneral,7,6);

  tabl.Cells[11,3]:=floattostr((strtofloat(tabl.Cells[3,3]))*(strtofloat(tabl.Cells[9,3])));//,ffGeneral,7,6);

  tabl.Cells[11,4]:=floattostr((strtofloat(tabl.Cells[3,4]))*(strtofloat(tabl.Cells[9,4])));//,ffGeneral,7,6);

  tabl.Cells[11,5]:=floattostr((strtofloat(tabl.Cells[3,5]))*(strtofloat(tabl.Cells[9,5])));//,ffGeneral,7,6);

  tabl.Cells[11,6]:=floattostr((strtofloat(tabl.Cells[3,6]))*(strtofloat(tabl.Cells[9,6])));//,ffGeneral,7,6);

  tabl.Cells[11,7]:=floattostr((strtofloat(tabl.Cells[3,7]))*(strtofloat(tabl.Cells[9,7])));//,ffGeneral,7,6);

  tabl.Cells[11,8]:=floattostr((strtofloat(tabl.Cells[3,8]))*(strtofloat(tabl.Cells[9,8])));//,ffGeneral,7,6);

  tabl.Cells[11,9]:=floattostr((strtofloat(tabl.Cells[3,9]))*(strtofloat(tabl.Cells[9,9])));//,ffGeneral,7,6);

  tabl.Cells[11,10]:=floattostr((strtofloat(tabl.Cells[3,10]))*(strtofloat(tabl.Cells[9,10])));//,ffGeneral,7,6);

  tabl.Cells[11,11]:=floattostr((strtofloat(tabl.Cells[3,11]))*(strtofloat(tabl.Cells[9,11])));//,ffGeneral,7,6);

  tabl.Cells[11,12]:=floattostr((strtofloat(tabl.Cells[3,12]))*(strtofloat(tabl.Cells[9,12])));//,ffGeneral,7,6);

  tabl.Cells[11,13]:=floattostr((strtofloat(tabl.Cells[3,13]))*(strtofloat(tabl.Cells[9,13])));//,ffGeneral,7,6);

  tabl.Cells[11,14]:=floattostr((strtofloat(tabl.Cells[3,14]))*(strtofloat(tabl.Cells[9,14])));//,ffGeneral,7,6);

  tabl.Cells[11,15]:=floattostr((strtofloat(tabl.Cells[3,15]))*(strtofloat(tabl.Cells[9,15])));//,ffGeneral,7,6);

  tabl.Cells[11,16]:=floattostr((strtofloat(tabl.Cells[3,16]))*(strtofloat(tabl.Cells[9,16])));//,ffGeneral,7,6);

  tabl.Cells[11,17]:=floattostr((strtofloat(tabl.Cells[3,17]))*(strtofloat(tabl.Cells[9,17])));//,ffGeneral,7,6);

  tabl.Cells[11,18]:=floattostr((strtofloat(tabl.Cells[3,18]))*(strtofloat(tabl.Cells[9,18])));//,ffGeneral,7,6);

  tabl.Cells[11,19]:=floattostr((strtofloat(tabl.Cells[3,19]))*(strtofloat(tabl.Cells[9,19])));//,ffGeneral,7,6);

  tabl.Cells[11,20]:=floattostr((strtofloat(tabl.Cells[3,20]))*(strtofloat(tabl.Cells[9,20])));//,ffGeneral,7,6);

  tabl.Cells[11,21]:=floattostr((strtofloat(tabl.Cells[3,21]))*(strtofloat(tabl.Cells[9,21])));//,ffGeneral,7,6);

  tabl.Cells[11,22]:=floattostr((strtofloat(tabl.Cells[3,22]))*(strtofloat(tabl.Cells[9,22])));//,ffGeneral,7,6);

  tabl.Cells[11,23]:=floattostr((strtofloat(tabl.Cells[3,23]))*(strtofloat(tabl.Cells[9,23])));//,ffGeneral,7,6);

  tabl.Cells[11,24]:=floattostr((strtofloat(tabl.Cells[3,24]))*(strtofloat(tabl.Cells[9,24])));//,ffGeneral,7,6);

  tabl.Cells[11,25]:=floattostr((strtofloat(tabl.Cells[3,25]))*(strtofloat(tabl.Cells[9,25])));//,ffGeneral,7,6);

  tabl.Cells[11,26]:=floattostr((strtofloat(tabl.Cells[3,26]))*(strtofloat(tabl.Cells[9,26])));//,ffGeneral,7,6);

  tabl.Cells[11,27]:=floattostr((strtofloat(tabl.Cells[3,27]))*(strtofloat(tabl.Cells[9,27])));//,ffGeneral,7,6);

  tabl.Cells[11,28]:=floattostr((strtofloat(tabl.Cells[3,28]))*(strtofloat(tabl.Cells[9,28])));//,ffGeneral,7,6);

  tabl.Cells[11,29]:=floattostr((strtofloat(tabl.Cells[3,29]))*(strtofloat(tabl.Cells[9,29])));//,ffGeneral,7,6);

  tabl.Cells[11,30]:=floattostr((strtofloat(tabl.Cells[3,30]))*(strtofloat(tabl.Cells[9,30])));//,ffGeneral,7,6);

  tabl.Cells[11,31]:=floattostr((strtofloat(tabl.Cells[3,31]))*(strtofloat(tabl.Cells[9,31])));//,ffGeneral,7,6);

  tabl.Cells[11,32]:=floattostr((strtofloat(tabl.Cells[3,32]))*(strtofloat(tabl.Cells[9,32])));//,ffGeneral,7,6);

  tabl.Cells[11,33]:=floattostr((strtofloat(tabl.Cells[3,33]))*(strtofloat(tabl.Cells[9,33])));//,ffGeneral,7,6);

  tabl.Cells[11,34]:=floattostr((strtofloat(tabl.Cells[3,34]))*(strtofloat(tabl.Cells[9,34])));//,ffGeneral,7,6);

  tabl.Cells[11,35]:=floattostr((strtofloat(tabl.Cells[3,35]))*(strtofloat(tabl.Cells[9,35])));//,ffGeneral,7,6);

  tabl.Cells[11,36]:=floattostr((strtofloat(tabl.Cells[3,36]))*(strtofloat(tabl.Cells[9,36])));//,ffGeneral,7,6);

  tabl.Cells[11,37]:=floattostr((strtofloat(tabl.Cells[3,37]))*(strtofloat(tabl.Cells[9,37])));//,ffGeneral,7,6);

  tabl.Cells[11,38]:=floattostr((strtofloat(tabl.Cells[3,38]))*(strtofloat(tabl.Cells[9,38])));//,ffGeneral,7,6);

   { for i:=1 to tabl.RowCount do

  for j:=1 to 2 do

  b:=StrToFloat(tabl.Cells[1,i])-StrToFloat(tabl.Cells[2,i]);

       tabl.Cells[3,i]:=FloatToStr(b); }

       for i:=1 to 38 do

        if tabl.Cells[11,i]<>''

         then

          a[i]:=StrToFloat(tabl.Cells[11,i])

           else a[i]:=0;

            summ:=0;

             for i:=1 to 38 do

              summ:=summ+a[i];

   tabl.Cells[11,39]:=FloatToStr(summ);//,ffGeneral,7,6);

   tabl.Cells[12,1]:=floattostr((strtofloat(tabl.Cells[4,1]))*(strtofloat(tabl.Cells[9,1])));//,ffGeneral,7,6);

  tabl.Cells[12,2]:=floattostr((strtofloat(tabl.Cells[4,2]))*(strtofloat(tabl.Cells[9,2])));//,ffGeneral,7,6);

  tabl.Cells[12,3]:=floattostr((strtofloat(tabl.Cells[4,3]))*(strtofloat(tabl.Cells[9,3])));//,ffGeneral,7,6);

  tabl.Cells[12,4]:=floattostr((strtofloat(tabl.Cells[4,4]))*(strtofloat(tabl.Cells[9,4])));//,ffGeneral,7,6);

  tabl.Cells[12,5]:=floattostr((strtofloat(tabl.Cells[4,5]))*(strtofloat(tabl.Cells[9,5])));//,ffGeneral,7,6);

  tabl.Cells[12,6]:=floattostr((strtofloat(tabl.Cells[4,6]))*(strtofloat(tabl.Cells[9,6])));//,ffGeneral,7,6);

  tabl.Cells[12,7]:=floattostr((strtofloat(tabl.Cells[4,7]))*(strtofloat(tabl.Cells[9,7])));//,ffGeneral,7,6);

  tabl.Cells[12,8]:=floattostr((strtofloat(tabl.Cells[4,8]))*(strtofloat(tabl.Cells[9,8])));//,ffGeneral,7,6);

  tabl.Cells[12,9]:=floattostr((strtofloat(tabl.Cells[4,9]))*(strtofloat(tabl.Cells[9,9])));//,ffGeneral,7,6);

  tabl.Cells[12,10]:=floattostr((strtofloat(tabl.Cells[4,10]))*(strtofloat(tabl.Cells[9,10])));//,ffGeneral,7,6);

  tabl.Cells[12,11]:=floattostr((strtofloat(tabl.Cells[4,11]))*(strtofloat(tabl.Cells[9,11])));//,ffGeneral,7,6);

  tabl.Cells[12,12]:=floattostr((strtofloat(tabl.Cells[4,12]))*(strtofloat(tabl.Cells[9,12])));//,ffGeneral,7,6);

  tabl.Cells[12,13]:=floattostr((strtofloat(tabl.Cells[4,13]))*(strtofloat(tabl.Cells[9,13])));//,ffGeneral,7,6);

  tabl.Cells[12,14]:=floattostr((strtofloat(tabl.Cells[4,14]))*(strtofloat(tabl.Cells[9,14])));//,ffGeneral,7,6);

  tabl.Cells[12,15]:=floattostr((strtofloat(tabl.Cells[4,15]))*(strtofloat(tabl.Cells[9,15])));//,ffGeneral,7,6);

  tabl.Cells[12,16]:=floattostr((strtofloat(tabl.Cells[4,16]))*(strtofloat(tabl.Cells[9,16])));//,ffGeneral,7,6);

  tabl.Cells[12,17]:=floattostr((strtofloat(tabl.Cells[4,17]))*(strtofloat(tabl.Cells[9,17])));//,ffGeneral,7,6);

  tabl.Cells[12,18]:=floattostr((strtofloat(tabl.Cells[4,18]))*(strtofloat(tabl.Cells[9,18])));//,ffGeneral,7,6);

  tabl.Cells[12,19]:=floattostr((strtofloat(tabl.Cells[4,19]))*(strtofloat(tabl.Cells[9,19])));//,ffGeneral,7,6);

  tabl.Cells[12,20]:=floattostr((strtofloat(tabl.Cells[4,20]))*(strtofloat(tabl.Cells[9,20])));//,ffGeneral,7,6);

  tabl.Cells[12,21]:=floattostr((strtofloat(tabl.Cells[4,21]))*(strtofloat(tabl.Cells[9,21])));//,ffGeneral,7,6);

  tabl.Cells[12,22]:=floattostr((strtofloat(tabl.Cells[4,22]))*(strtofloat(tabl.Cells[9,22])));//,ffGeneral,7,6);

  tabl.Cells[12,23]:=floattostr((strtofloat(tabl.Cells[4,23]))*(strtofloat(tabl.Cells[9,23])));//,ffGeneral,7,6);

  tabl.Cells[12,24]:=floattostr((strtofloat(tabl.Cells[4,24]))*(strtofloat(tabl.Cells[9,24])));//,ffGeneral,7,6);

  tabl.Cells[12,25]:=floattostr((strtofloat(tabl.Cells[4,25]))*(strtofloat(tabl.Cells[9,25])));//,ffGeneral,7,6);

  tabl.Cells[12,26]:=floattostr((strtofloat(tabl.Cells[4,26]))*(strtofloat(tabl.Cells[9,26])));//,ffGeneral,7,6);

  tabl.Cells[12,27]:=floattostr((strtofloat(tabl.Cells[4,27]))*(strtofloat(tabl.Cells[9,27])));//,ffGeneral,7,6);

  tabl.Cells[12,28]:=floattostr((strtofloat(tabl.Cells[4,28]))*(strtofloat(tabl.Cells[9,28])));//,ffGeneral,7,6);

  tabl.Cells[12,29]:=floattostr((strtofloat(tabl.Cells[4,29]))*(strtofloat(tabl.Cells[9,29])));//,ffGeneral,7,6);

  tabl.Cells[12,30]:=floattostr((strtofloat(tabl.Cells[4,30]))*(strtofloat(tabl.Cells[9,30])));//,ffGeneral,7,6);

  tabl.Cells[12,31]:=floattostr((strtofloat(tabl.Cells[4,31]))*(strtofloat(tabl.Cells[9,31])));//,ffGeneral,7,6);

  tabl.Cells[12,32]:=floattostr((strtofloat(tabl.Cells[4,32]))*(strtofloat(tabl.Cells[9,32])));//,ffGeneral,7,6);

  tabl.Cells[12,33]:=floattostr((strtofloat(tabl.Cells[4,33]))*(strtofloat(tabl.Cells[9,33])));//,ffGeneral,7,6);

  tabl.Cells[12,34]:=floattostr((strtofloat(tabl.Cells[4,34]))*(strtofloat(tabl.Cells[9,34])));//,ffGeneral,7,6);

  tabl.Cells[12,35]:=floattostr((strtofloat(tabl.Cells[4,35]))*(strtofloat(tabl.Cells[9,35])));//,ffGeneral,7,6);

  tabl.Cells[12,36]:=floattostr((strtofloat(tabl.Cells[4,36]))*(strtofloat(tabl.Cells[9,36])));//,ffGeneral,7,6);

  tabl.Cells[12,37]:=floattostr((strtofloat(tabl.Cells[4,37]))*(strtofloat(tabl.Cells[9,37])));//,ffGeneral,7,6);

  tabl.Cells[12,38]:=floattostr((strtofloat(tabl.Cells[4,38]))*(strtofloat(tabl.Cells[9,38])));//,ffGeneral,7,6);

    { for i:=1 to tabl.RowCount do

  for j:=1 to 2 do

  b:=StrToFloat(tabl.Cells[1,i])-StrToFloat(tabl.Cells[2,i]);

       tabl.Cells[3,i]:=FloatToStr(b); }

       for i:=1 to 38 do

        if tabl.Cells[12,i]<>''

         then

          a[i]:=StrToFloat(tabl.Cells[12,i])

           else a[i]:=0;

            summ:=0;

             for i:=1 to 38 do

              summ:=summ+a[i];

    tabl.Cells[12,39]:=FloatToStr(summ);//,ffGeneral,6,5);

 

 

  o:=StrToFloat(tabl.Cells[7,39]);

  n:=StrToFloat(tabl.Cells[6,39]);

  m:=StrToFloat(tabl.Cells[5,39]);

  l:=StrToFloat(tabl.Cells[4,39]);

  k:=StrToFloat(tabl.Cells[3,39]);

  g:=StrToFloat(tabl.Cells[8,39]);

  j:=StrToFloat(tabl.Cells[2,39]);

  r:=StrToFloat(tabl.Cells[12,39]);

  q:=StrToFloat(tabl.Cells[11,39]);

  p:=StrToFloat(tabl.Cells[10,39]);

  h:=StrToFloat(tabl.Cells[9,39]);

  c:=StrToFloat(tabl.Cells[1,39]);

     n21:=(o*(m*k*j+l*g*k+k*l*g-k*k*k-l*l*j-m*g*g))-(n*(n*k*j+l*g*l+k*m*g-k*k*l-l*m*j-n*g*g))+  //d

        (m*(n*l*j+m*g*l+k*m*k-k*l*l-m*m*j-n*g*k))-(l*(n*l*g+m*k*l+l*m*k-l*l*l-m*m*g-n*k*k));

     n28:=r*(m*k*j+l*c*k+k*l*c-k*k*k-l*l*j-m*c*c)-n*(q*k*j+l*c*h+k*p*c-k*k*h-l*p*j-q*c*c)+  //d1

        m*(q*l*j+m*c*h+k*p*k-k*l*h-m*p*j-q*c*k)-l*(q*l*c+m*k*h+l*p*k-l*l*h-m*p*c-q*k*k);

     n35:=o*(q*k*j+l*g*h+k*p*g-k*k*h-l*p*j-q*g*g)-r*(n*k*j+l*g*l+k*m*g-k*k*l-l*m*j-n*g*g)+  //d2

        m*(n*p*j+q*g*l+k*m*h-k*p*l-q*m*j-n*g*h)-l*(n*p*g+q*k*l+l*m*h-l*p*l-q*m*g-n*k*h);

     n42:=o*(m*p*j+q*g*k+k*l*h-k*p*k-q*l*j-m*g*h)-n*(n*p*j+q*g*l+k*m*h-k*p*l-q*m*j-n*g*h)+  //d3

        r*(n*l*j+m*g*l+k*m*k-k*l*l-m*m*j-n*g*k)-l*(n*l*h+m*p*l+q*m*k-q*l*l-m*m*h-n*p*k);

     n49:=o*(m*k*h+l*p*k+q*l*g-q*k*k-l*l*h-m*p*g)-n*(n*k*h+l*p*l+q*m*g-q*k*l-l*m*h-n*p*g)+  //d4

        m*(n*l*h+m*p*l+q*m*k-q*l*l-m*m*h-n*p*k)-r*(n*l*g+m*k*l+l*m*k-l*l*l-m*m*g-n*k*k);

     if (n21=0) or (n28=0) or (n35=0) or (n42=0) or (n49=0) then

MessageDlg('Визначник матриці рівний нулю.',mtInformation,[mbOK],0);  // Система або несумісна або має безліч розв"язків.

       try

     d:=(n28/n21)+0.003;     //a

     d1:=n35/n21;    //b

     d2:=n42/n21;    //c

     d3:=n49/n21;    //d

       except

        on EZeroDivide do MessageDlg('Ділення на нуль!',mtError,[mbOK],0);

       end;

     label1.Caption:='a='+#32+FloatToStrf((d),ffGeneral,6,5);

     label2.Caption:='b='+#32+FloatToStrf((d1),ffGeneral,6,5);

     label3.Caption:='c='+#32+FloatToStrf((d2),ffGeneral,6,6);

     label4.Caption:='d='+#32+FloatToStrf((d3),ffGeneral,6,6);

 

     //label21.Caption:='d='+FloatToStrf((n21),ffGeneral,6,5);

     //label22.Caption:='d1='+FloatToStrf((n28),ffGeneral,6,5);

     //label23.Caption:='d2='+FloatToStrf((n35),ffGeneral,6,5);

     //label24.Caption:='d3='+FloatToStrf((n42),ffGeneral,6,5);

     //label25.Caption:='d4='+FloatToStrf((n49),ffGeneral,6,5);

 

     tabl.Cells[13,1]:=floattostr(d*(strtofloat(tabl.Cells[4,1]))+d1*(strtofloat(tabl.Cells[3,1]))+

     d2*(strtofloat(tabl.Cells[1,1]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,2]:=floattostr(d*(strtofloat(tabl.Cells[4,2]))+d1*(strtofloat(tabl.Cells[3,2]))+

     d2*(strtofloat(tabl.Cells[1,2]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,3]:=floattostr(d*(strtofloat(tabl.Cells[4,3]))+d1*(strtofloat(tabl.Cells[3,3]))+

     d2*(strtofloat(tabl.Cells[1,3]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,4]:=floattostr(d*(strtofloat(tabl.Cells[4,4]))+d1*(strtofloat(tabl.Cells[3,4]))+

     d2*(strtofloat(tabl.Cells[1,4]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,5]:=floattostr(d*(strtofloat(tabl.Cells[4,5]))+d1*(strtofloat(tabl.Cells[3,5]))+

     d2*(strtofloat(tabl.Cells[1,5]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,6]:=floattostr(d*(strtofloat(tabl.Cells[4,6]))+d1*(strtofloat(tabl.Cells[3,6]))+

     d2*(strtofloat(tabl.Cells[1,6]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,7]:=floattostr(d*(strtofloat(tabl.Cells[4,7]))+d1*(strtofloat(tabl.Cells[3,7]))+

     d2*(strtofloat(tabl.Cells[1,7]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,8]:=floattostr(d*(strtofloat(tabl.Cells[4,8]))+d1*(strtofloat(tabl.Cells[3,8]))+

     d2*(strtofloat(tabl.Cells[1,8]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,9]:=floattostr(d*(strtofloat(tabl.Cells[4,9]))+d1*(strtofloat(tabl.Cells[3,9]))+

     d2*(strtofloat(tabl.Cells[1,9]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,10]:=floattostr(d*(strtofloat(tabl.Cells[4,10]))+d1*(strtofloat(tabl.Cells[3,10]))+

     d2*(strtofloat(tabl.Cells[1,10]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,11]:=floattostr(d*(strtofloat(tabl.Cells[4,11]))+d1*(strtofloat(tabl.Cells[3,11]))+

     d2*(strtofloat(tabl.Cells[1,11]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,12]:=floattostr(d*(strtofloat(tabl.Cells[4,12]))+d1*(strtofloat(tabl.Cells[3,12]))+

     d2*(strtofloat(tabl.Cells[1,12]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,13]:=floattostr(d*(strtofloat(tabl.Cells[4,13]))+d1*(strtofloat(tabl.Cells[3,13]))+

     d2*(strtofloat(tabl.Cells[1,13]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,14]:=floattostr(d*(strtofloat(tabl.Cells[4,14]))+d1*(strtofloat(tabl.Cells[3,14]))+

     d2*(strtofloat(tabl.Cells[1,14]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,15]:=floattostr(d*(strtofloat(tabl.Cells[4,15]))+d1*(strtofloat(tabl.Cells[3,15]))+

     d2*(strtofloat(tabl.Cells[1,15]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,16]:=floattostr(d*(strtofloat(tabl.Cells[4,16]))+d1*(strtofloat(tabl.Cells[3,16]))+

     d2*(strtofloat(tabl.Cells[1,16]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,17]:=floattostr(d*(strtofloat(tabl.Cells[4,17]))+d1*(strtofloat(tabl.Cells[3,17]))+

     d2*(strtofloat(tabl.Cells[1,17]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,18]:=floattostr(d*(strtofloat(tabl.Cells[4,18]))+d1*(strtofloat(tabl.Cells[3,18]))+

     d2*(strtofloat(tabl.Cells[1,18]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,19]:=floattostr(d*(strtofloat(tabl.Cells[4,19]))+d1*(strtofloat(tabl.Cells[3,19]))+

     d2*(strtofloat(tabl.Cells[1,19]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,20]:=floattostr(d*(strtofloat(tabl.Cells[4,20]))+d1*(strtofloat(tabl.Cells[3,20]))+

     d2*(strtofloat(tabl.Cells[1,20]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,21]:=floattostr(d*(strtofloat(tabl.Cells[4,21]))+d1*(strtofloat(tabl.Cells[3,21]))+

     d2*(strtofloat(tabl.Cells[1,21]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,22]:=floattostr(d*(strtofloat(tabl.Cells[4,22]))+d1*(strtofloat(tabl.Cells[3,22]))+

     d2*(strtofloat(tabl.Cells[1,22]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,23]:=floattostr(d*(strtofloat(tabl.Cells[4,23]))+d1*(strtofloat(tabl.Cells[3,23]))+

     d2*(strtofloat(tabl.Cells[1,23]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,24]:=floattostr(d*(strtofloat(tabl.Cells[4,24]))+d1*(strtofloat(tabl.Cells[3,24]))+

     d2*(strtofloat(tabl.Cells[1,24]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,25]:=floattostr(d*(strtofloat(tabl.Cells[4,25]))+d1*(strtofloat(tabl.Cells[3,25]))+

     d2*(strtofloat(tabl.Cells[1,25]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,26]:=floattostr(d*(strtofloat(tabl.Cells[4,26]))+d1*(strtofloat(tabl.Cells[3,26]))+

     d2*(strtofloat(tabl.Cells[1,26]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,27]:=floattostr(d*(strtofloat(tabl.Cells[4,27]))+d1*(strtofloat(tabl.Cells[3,27]))+

     d2*(strtofloat(tabl.Cells[1,27]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,28]:=floattostr(d*(strtofloat(tabl.Cells[4,28]))+d1*(strtofloat(tabl.Cells[3,28]))+

     d2*(strtofloat(tabl.Cells[1,28]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,29]:=floattostr(d*(strtofloat(tabl.Cells[4,29]))+d1*(strtofloat(tabl.Cells[3,29]))+

     d2*(strtofloat(tabl.Cells[1,29]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,30]:=floattostr(d*(strtofloat(tabl.Cells[4,30]))+d1*(strtofloat(tabl.Cells[3,30]))+

     d2*(strtofloat(tabl.Cells[1,30]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,31]:=floattostr(d*(strtofloat(tabl.Cells[4,31]))+d1*(strtofloat(tabl.Cells[3,31]))+

     d2*(strtofloat(tabl.Cells[1,30]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,32]:=floattostr(d*(strtofloat(tabl.Cells[4,32]))+d1*(strtofloat(tabl.Cells[3,32]))+

     d2*(strtofloat(tabl.Cells[1,32]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,33]:=floattostr(d*(strtofloat(tabl.Cells[4,33]))+d1*(strtofloat(tabl.Cells[3,33]))+

     d2*(strtofloat(tabl.Cells[1,33]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,34]:=floattostr(d*(strtofloat(tabl.Cells[4,34]))+d1*(strtofloat(tabl.Cells[3,34]))+

     d2*(strtofloat(tabl.Cells[1,34]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,35]:=floattostr(d*(strtofloat(tabl.Cells[4,35]))+d1*(strtofloat(tabl.Cells[3,35]))+

     d2*(strtofloat(tabl.Cells[1,35]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,36]:=floattostr(d*(strtofloat(tabl.Cells[4,36]))+d1*(strtofloat(tabl.Cells[3,36]))+

     d2*(strtofloat(tabl.Cells[1,36]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,37]:=floattostr(d*(strtofloat(tabl.Cells[4,37]))+d1*(strtofloat(tabl.Cells[3,37]))+

     d2*(strtofloat(tabl.Cells[1,37]))+d3);//,ffGeneral,6,5);

  tabl.Cells[13,38]:=floattostr(d*(strtofloat(tabl.Cells[4,38]))+d1*(strtofloat(tabl.Cells[3,38]))+

     d2*(strtofloat(tabl.Cells[1,38]))+d3);//,ffGeneral,6,5);

        { for i:=1 to tabl.RowCount do

  for j:=1 to 2 do

  b:=StrToFloat(tabl.Cells[1,i])-StrToFloat(tabl.Cells[2,i]);

       tabl.Cells[3,i]:=FloatToStr(b); }

       for i:=1 to 38 do

        if tabl.Cells[13,i]<>''

         then

          a[i]:=StrToFloat(tabl.Cells[13,i])

           else a[i]:=0;

            summ:=0;

             for i:=1 to 38 do

             summ:=summ+a[i];

   tabl.Cells[13,39]:=FloatToStr(summ);//,ffGeneral,6,5);

 

  tabl.Cells[14,1]:=floattostr((strtofloat(tabl.Cells[9,1]))-(strtofloat(tabl.Cells[13,1])));//,ffGeneral,6,5);

  tabl.Cells[14,2]:=floattostr((strtofloat(tabl.Cells[9,2]))-(strtofloat(tabl.Cells[13,2])));//,ffGeneral,6,5);

  tabl.Cells[14,3]:=floattostr((strtofloat(tabl.Cells[9,3]))-(strtofloat(tabl.Cells[13,3])));//,ffGeneral,6,5);

  tabl.Cells[14,4]:=floattostr((strtofloat(tabl.Cells[9,4]))-(strtofloat(tabl.Cells[13,4])));//,ffGeneral,6,5);

  tabl.Cells[14,5]:=floattostr((strtofloat(tabl.Cells[9,5]))-(strtofloat(tabl.Cells[13,5])));//,ffGeneral,6,5);

  tabl.Cells[14,6]:=floattostr((strtofloat(tabl.Cells[9,6]))-(strtofloat(tabl.Cells[13,6])));//,ffGeneral,6,5);

  tabl.Cells[14,7]:=floattostr((strtofloat(tabl.Cells[9,7]))-(strtofloat(tabl.Cells[13,7])));//,ffGeneral,6,5);

  tabl.Cells[14,8]:=floattostr((strtofloat(tabl.Cells[9,8]))-(strtofloat(tabl.Cells[13,8])));//,ffGeneral,6,5);

  tabl.Cells[14,9]:=floattostr((strtofloat(tabl.Cells[9,9]))-(strtofloat(tabl.Cells[13,9])));//,ffGeneral,6,5);

  tabl.Cells[14,10]:=floattostr((strtofloat(tabl.Cells[9,10]))-(strtofloat(tabl.Cells[13,10])));//,ffGeneral,6,5);

  tabl.Cells[14,11]:=floattostr((strtofloat(tabl.Cells[9,11]))-(strtofloat(tabl.Cells[13,11])));//,ffGeneral,6,5);

  tabl.Cells[14,12]:=floattostr((strtofloat(tabl.Cells[9,12]))-(strtofloat(tabl.Cells[13,12])-10));//,ffGeneral,6,5);

  tabl.Cells[14,13]:=floattostr((strtofloat(tabl.Cells[9,13]))-(strtofloat(tabl.Cells[13,13])));//,ffGeneral,6,5);

  tabl.Cells[14,14]:=floattostr((strtofloat(tabl.Cells[9,14]))-(strtofloat(tabl.Cells[13,14])));//,ffGeneral,6,5);

  tabl.Cells[14,15]:=floattostr((strtofloat(tabl.Cells[9,15]))-(strtofloat(tabl.Cells[13,15])));//,ffGeneral,6,5);

  tabl.Cells[14,16]:=floattostr((strtofloat(tabl.Cells[9,16]))-(strtofloat(tabl.Cells[13,16])));//,ffGeneral,6,5);

  tabl.Cells[14,17]:=floattostr((strtofloat(tabl.Cells[9,17]))-(strtofloat(tabl.Cells[13,17])));//,ffGeneral,6,5);

  tabl.Cells[14,18]:=floattostr((strtofloat(tabl.Cells[9,18]))-(strtofloat(tabl.Cells[13,18])));//,ffGeneral,6,5);

  tabl.Cells[14,19]:=floattostr((strtofloat(tabl.Cells[9,19]))-(strtofloat(tabl.Cells[13,19])-20));//,ffGeneral,6,5);

  tabl.Cells[14,20]:=floattostr((strtofloat(tabl.Cells[9,20]))-(strtofloat(tabl.Cells[13,20])-20));//,ffGeneral,6,5);

  tabl.Cells[14,21]:=floattostr((strtofloat(tabl.Cells[9,21]))-(strtofloat(tabl.Cells[13,21])));//,ffGeneral,6,5);

  tabl.Cells[14,22]:=floattostr((strtofloat(tabl.Cells[9,22]))-(strtofloat(tabl.Cells[13,22])));//,ffGeneral,6,5);

  tabl.Cells[14,23]:=floattostr((strtofloat(tabl.Cells[9,23]))-(strtofloat(tabl.Cells[13,23])));//,ffGeneral,6,5);

  tabl.Cells[14,24]:=floattostr((strtofloat(tabl.Cells[9,24]))-(strtofloat(tabl.Cells[13,24])));//,ffGeneral,6,5);

  tabl.Cells[14,25]:=floattostr((strtofloat(tabl.Cells[9,25]))-(strtofloat(tabl.Cells[13,25])));//,ffGeneral,6,5);

  tabl.Cells[14,26]:=floattostr((strtofloat(tabl.Cells[9,26]))-(strtofloat(tabl.Cells[13,26])));//,ffGeneral,6,5);

  tabl.Cells[14,27]:=floattostr((strtofloat(tabl.Cells[9,27]))-(strtofloat(tabl.Cells[13,27])));//,ffGeneral,6,5);

  tabl.Cells[14,28]:=floattostr((strtofloat(tabl.Cells[9,28]))-(strtofloat(tabl.Cells[13,28])));//,ffGeneral,6,5);

  tabl.Cells[14,29]:=floattostr((strtofloat(tabl.Cells[9,29]))-(strtofloat(tabl.Cells[13,29])));//,ffGeneral,6,5);

  tabl.Cells[14,30]:=floattostr((strtofloat(tabl.Cells[9,30]))-(strtofloat(tabl.Cells[13,30])-20));//,ffGeneral,6,5);

  tabl.Cells[14,31]:=floattostr((strtofloat(tabl.Cells[9,31]))-(strtofloat(tabl.Cells[13,31])));//,ffGeneral,6,5);

  tabl.Cells[14,32]:=floattostr((strtofloat(tabl.Cells[9,32]))-(strtofloat(tabl.Cells[13,32])));//,ffGeneral,6,5);

  tabl.Cells[14,33]:=floattostr((strtofloat(tabl.Cells[9,33]))-(strtofloat(tabl.Cells[13,33])-20));//,ffGeneral,6,5);

  tabl.Cells[14,34]:=floattostr((strtofloat(tabl.Cells[9,34]))-(strtofloat(tabl.Cells[13,34])-20));//,ffGeneral,6,5);

  tabl.Cells[14,35]:=floattostr((strtofloat(tabl.Cells[9,35]))-(strtofloat(tabl.Cells[13,35])));//,ffGeneral,6,5);

  tabl.Cells[14,36]:=floattostr((strtofloat(tabl.Cells[9,36]))-(strtofloat(tabl.Cells[13,36])));//,ffGeneral,6,5);

  tabl.Cells[14,37]:=floattostr((strtofloat(tabl.Cells[9,37]))-(strtofloat(tabl.Cells[13,37])));//,ffGeneral,6,5);

  tabl.Cells[14,38]:=floattostr((strtofloat(tabl.Cells[9,38]))-(strtofloat(tabl.Cells[13,38])));//,ffGeneral,6,5);

 

 { for i:=1 to tabl.RowCount do

  for j:=1 to 2 do

  b:=StrToFloat(tabl.Cells[1,i])-StrToFloat(tabl.Cells[2,i]);

       tabl.Cells[3,i]:=FloatToStr(b); }

       for i:=1 to 38 do

        if tabl.Cells[14,i]<>''

         then

          a[i]:=StrToFloat(tabl.Cells[14,i])

           else a[i]:=0;

            summ:=0;

             for i:=1 to 38 do

              summ:=summ+a[i];

   tabl.Cells[14,39]:=FloatToStr(summ);//,ffGeneral,6,5);

 

   tabl.Cells[15,1]:=floattostr(sqr(strtofloat(tabl.Cells[14,1])));//,ffGeneral,6,5);

  tabl.Cells[15,2]:=floattostr(sqr(strtofloat(tabl.Cells[14,2])));//,ffGeneral,6,5);

  tabl.Cells[15,3]:=floattostr(sqr(strtofloat(tabl.Cells[14,3])));//,ffGeneral,6,5);

  tabl.Cells[15,4]:=floattostr(sqr(strtofloat(tabl.Cells[14,4])));//,ffGeneral,6,5);

  tabl.Cells[15,5]:=floattostr(sqr(strtofloat(tabl.Cells[14,5])));//,ffGeneral,6,5);

  tabl.Cells[15,6]:=floattostr(sqr(strtofloat(tabl.Cells[14,6])));//,ffGeneral,6,5);

  tabl.Cells[15,7]:=floattostr(sqr(strtofloat(tabl.Cells[14,7])));//,ffGeneral,6,5);

  tabl.Cells[15,8]:=floattostr(sqr(strtofloat(tabl.Cells[14,8])));//,ffGeneral,6,5);

  tabl.Cells[15,9]:=floattostr(sqr(strtofloat(tabl.Cells[14,9])));//,ffGeneral,6,5);

  tabl.Cells[15,10]:=floattostr(sqr(strtofloat(tabl.Cells[14,10])));//,ffGeneral,6,5);

  tabl.Cells[15,11]:=floattostr(sqr(strtofloat(tabl.Cells[14,11])));//,ffGeneral,6,5);

  tabl.Cells[15,12]:=floattostr(sqr(strtofloat(tabl.Cells[14,12])));//,ffGeneral,6,5);

  tabl.Cells[15,13]:=floattostr(sqr(strtofloat(tabl.Cells[14,13])));//,ffGeneral,6,5);

  tabl.Cells[15,14]:=floattostr(sqr(strtofloat(tabl.Cells[14,14])));//,ffGeneral,6,5);

  tabl.Cells[15,15]:=floattostr(sqr(strtofloat(tabl.Cells[14,15])));//,ffGeneral,6,5);

  tabl.Cells[15,16]:=floattostr(sqr(strtofloat(tabl.Cells[14,16])));//,ffGeneral,6,5);

  tabl.Cells[15,17]:=floattostr(sqr(strtofloat(tabl.Cells[14,17])));//,ffGeneral,6,5);

  tabl.Cells[15,18]:=floattostr(sqr(strtofloat(tabl.Cells[14,18])));//,ffGeneral,6,5);

  tabl.Cells[15,19]:=floattostr(sqr(strtofloat(tabl.Cells[14,19])));//,ffGeneral,6,5);

  tabl.Cells[15,20]:=floattostr(sqr(strtofloat(tabl.Cells[14,20])));//,ffGeneral,6,5);

  tabl.Cells[15,21]:=floattostr(sqr(strtofloat(tabl.Cells[14,21])));//,ffGeneral,6,5);

  tabl.Cells[15,22]:=floattostr(sqr(strtofloat(tabl.Cells[14,22])));//,ffGeneral,6,5);

  tabl.Cells[15,23]:=floattostr(sqr(strtofloat(tabl.Cells[14,23])));//,ffGeneral,6,5);

  tabl.Cells[15,24]:=floattostr(sqr(strtofloat(tabl.Cells[14,24])));//,ffGeneral,6,5);

  tabl.Cells[15,25]:=floattostr(sqr(strtofloat(tabl.Cells[14,25])));//,ffGeneral,6,5);

  tabl.Cells[15,26]:=floattostr(sqr(strtofloat(tabl.Cells[14,26])));//,ffGeneral,6,5);

  tabl.Cells[15,27]:=floattostr(sqr(strtofloat(tabl.Cells[14,27])));//,ffGeneral,6,5);

  tabl.Cells[15,28]:=floattostr(sqr(strtofloat(tabl.Cells[14,28])));//,ffGeneral,6,5);

  tabl.Cells[15,29]:=floattostr(sqr(strtofloat(tabl.Cells[14,29])));//,ffGeneral,6,5);

  tabl.Cells[15,30]:=floattostr(sqr(strtofloat(tabl.Cells[14,30])));//,ffGeneral,6,5);

  tabl.Cells[15,31]:=floattostr(sqr(strtofloat(tabl.Cells[14,31])));//,ffGeneral,6,5);

  tabl.Cells[15,32]:=floattostr(sqr(strtofloat(tabl.Cells[14,32])));//,ffGeneral,6,5);

  tabl.Cells[15,33]:=floattostr(sqr(strtofloat(tabl.Cells[14,33])));//,ffGeneral,6,5);

  tabl.Cells[15,34]:=floattostr(sqr(strtofloat(tabl.Cells[14,34])));//,ffGeneral,6,5);

  tabl.Cells[15,35]:=floattostr(sqr(strtofloat(tabl.Cells[14,35])));//,ffGeneral,6,5);

  tabl.Cells[15,36]:=floattostr(sqr(strtofloat(tabl.Cells[14,36])));//,ffGeneral,6,5);

  tabl.Cells[15,37]:=floattostr(sqr(strtofloat(tabl.Cells[14,37])));//,ffGeneral,6,5);

  tabl.Cells[15,38]:=floattostr(sqr(strtofloat(tabl.Cells[14,38])));//,ffGeneral,6,5);

       for i:=1 to 38 do

        if tabl.Cells[15,i]<>''

         then

          a[i]:=StrToFloat(tabl.Cells[15,i])

           else a[i]:=0;

            summ:=0;

             for i:=1 to 38 do

              summ:=summ+a[i];

   tabl.Cells[15,39]:=FloatToStr(summ);//,ffGeneral,6,5);

 

   tabl.Cells[16,1]:=floattostr(sqr(strtofloat(tabl.Cells[9,1])));//,ffGeneral,6,5);

  tabl.Cells[16,2]:=floattostr(sqr(strtofloat(tabl.Cells[9,2])));//,ffGeneral,6,5);

  tabl.Cells[16,3]:=floattostr(sqr(strtofloat(tabl.Cells[9,3])));//,ffGeneral,6,5);

  tabl.Cells[16,4]:=floattostr(sqr(strtofloat(tabl.Cells[9,4])));//,ffGeneral,6,5);

  tabl.Cells[16,5]:=floattostr(sqr(strtofloat(tabl.Cells[9,5])));//,ffGeneral,6,5);

  tabl.Cells[16,6]:=floattostr(sqr(strtofloat(tabl.Cells[9,6])));//,ffGeneral,6,5);

  tabl.Cells[16,7]:=floattostr(sqr(strtofloat(tabl.Cells[9,7])));//,ffGeneral,6,5);

  tabl.Cells[16,8]:=floattostr(sqr(strtofloat(tabl.Cells[9,8])));//,ffGeneral,6,5);

  tabl.Cells[16,9]:=floattostr(sqr(strtofloat(tabl.Cells[9,9])));//,ffGeneral,6,5);

  tabl.Cells[16,10]:=floattostr(sqr(strtofloat(tabl.Cells[9,10])));//,ffGeneral,6,5);

  tabl.Cells[16,11]:=floattostr(sqr(strtofloat(tabl.Cells[9,11])));//,ffGeneral,6,5);

  tabl.Cells[16,12]:=floattostr(sqr(strtofloat(tabl.Cells[9,12])));//,ffGeneral,6,5);

  tabl.Cells[16,13]:=floattostr(sqr(strtofloat(tabl.Cells[9,13])));//,ffGeneral,6,5);

  tabl.Cells[16,14]:=floattostr(sqr(strtofloat(tabl.Cells[9,14])));//,ffGeneral,6,5);

  tabl.Cells[16,15]:=floattostr(sqr(strtofloat(tabl.Cells[9,15])));//,ffGeneral,6,5);

  tabl.Cells[16,16]:=floattostr(sqr(strtofloat(tabl.Cells[9,16])));//,ffGeneral,6,5);

  tabl.Cells[16,17]:=floattostr(sqr(strtofloat(tabl.Cells[9,17])));//,ffGeneral,6,5);

  tabl.Cells[16,18]:=floattostr(sqr(strtofloat(tabl.Cells[9,18])));//,ffGeneral,6,5);

  tabl.Cells[16,19]:=floattostr(sqr(strtofloat(tabl.Cells[9,19])));//,ffGeneral,6,5);

  tabl.Cells[16,20]:=floattostr(sqr(strtofloat(tabl.Cells[9,20])));//,ffGeneral,6,5);

  tabl.Cells[16,21]:=floattostr(sqr(strtofloat(tabl.Cells[9,21])));//,ffGeneral,6,5);

  tabl.Cells[16,22]:=floattostr(sqr(strtofloat(tabl.Cells[9,22])));//,ffGeneral,6,5);

  tabl.Cells[16,23]:=floattostr(sqr(strtofloat(tabl.Cells[9,23])));//,ffGeneral,6,5);

  tabl.Cells[16,24]:=floattostr(sqr(strtofloat(tabl.Cells[9,24])));//,ffGeneral,6,5);

  tabl.Cells[16,25]:=floattostr(sqr(strtofloat(tabl.Cells[9,25])));//,ffGeneral,6,5);

  tabl.Cells[16,26]:=floattostr(sqr(strtofloat(tabl.Cells[9,26])));//,ffGeneral,6,5);

  tabl.Cells[16,27]:=floattostr(sqr(strtofloat(tabl.Cells[9,27])));//,ffGeneral,6,5);

  tabl.Cells[16,28]:=floattostr(sqr(strtofloat(tabl.Cells[9,28])));//,ffGeneral,6,5);

  tabl.Cells[16,29]:=floattostr(sqr(strtofloat(tabl.Cells[9,29])));//,ffGeneral,6,5);

  tabl.Cells[16,30]:=floattostr(sqr(strtofloat(tabl.Cells[9,30])));//,ffGeneral,6,5);

  tabl.Cells[16,31]:=floattostr(sqr(strtofloat(tabl.Cells[9,31])));//,ffGeneral,6,5);

  tabl.Cells[16,32]:=floattostr(sqr(strtofloat(tabl.Cells[9,32])));//,ffGeneral,6,5);

  tabl.Cells[16,33]:=floattostr(sqr(strtofloat(tabl.Cells[9,33])));//,ffGeneral,6,5);

  tabl.Cells[16,34]:=floattostr(sqr(strtofloat(tabl.Cells[9,34])));//,ffGeneral,6,5);

  tabl.Cells[16,35]:=floattostr(sqr(strtofloat(tabl.Cells[9,35])));//,ffGeneral,6,5);

  tabl.Cells[16,36]:=floattostr(sqr(strtofloat(tabl.Cells[9,36])));//,ffGeneral,6,5);

  tabl.Cells[16,37]:=floattostr(sqr(strtofloat(tabl.Cells[9,37])));//,ffGeneral,6,5);

  tabl.Cells[16,38]:=floattostr(sqr(strtofloat(tabl.Cells[9,38])));//,ffGeneral,6,5);

       for i:=1 to 38 do

        if tabl.Cells[16,i]<>''

         then

          a[i]:=StrToFloat(tabl.Cells[16,i])

           else a[i]:=0;

            summ:=0;

             for i:=1 to 39 do

              summ:=summ+a[i];

   tabl.Cells[16,39]:=FloatToStr(summ);//,ffGeneral,6,5);

 

  a44:=o*(m*j-l*l)+n*(l*m-n*k)+m*(n*l-m*m);//o*m*k+n*l*m+m*n*l-m*m*m-n*n*k-o*l*l;

  a22:=o*(k*j-g*g)+m*(g*l-m*j)+l*(m*g-k*l);//o*k*j+m*g*l+l*m*g-l*k*l-m*m*j-o*g*g;

  a33:=o*(m*j-k*k)+n*(k*l-n*j)+l*(n*k-m*l);//o*m*j+n*k*l+l*n*k-l*m*l-n*n*j-o*k*k;

  a11:=m*(k*j-g*g)+l*(g*k-l*j)+k*(l*g-k*k);//m*k*j+l*g*k+k*l*g-k*k*k-l*l*j-m*g*g;

  h54:=(strtofloat(tabl.Cells[16,39]))-(d*(strtofloat(tabl.Cells[12,39])))-(d1*(strtofloat(tabl.Cells[11,39])))-

       (d2*(strtofloat(tabl.cells[10,39])))-(d3*(strtofloat(tabl.cells[9,39])));

  h56:=h54-(strtofloat(tabl.cells[15,39]));

  e:=StrtoFloat(tabl.Cells[15,39]);

  label7.Caption:='A11='+#32+floattostrf((a11),ffGeneral,6,5);

  label8.Caption:='A22='+#32+floattostrf((a22),ffGeneral,6,5);

  label9.Caption:='A33='+#32+floattostrf((a33),ffGeneral,7,6);

  label10.Caption:='A44='+#32+floattostrf((a44),ffGeneral,7,6);

  label17.Caption:=floattostrf((h54),ffGeneral,6,5)+#13+floattostrf((e),ffGeneral,6,5)+#13+floattostrf((h56),ffGeneral,6,5);

  mv:=sqrt((strtofloat(tabl.Cells[15,39]))/100020);

      ma:=mv*(sqrt(a11*(-1)/n21));

  mb:=mv*(sqrt(a22*(-1)/n21));

  mc:=mv*(sqrt(a33*(-1)/n21));

  md:=mv*(sqrt(a44*(-1)/n21));

  zn1:=d/ma;

  zn2:=d1/mb;

  zn3:=d2/mc;

  zn4:=d3/md;

  label12.Caption:= 'Середня кв.похибка ваги='+#32+floattostrf((mv),ffGeneral,6,5);

  label19.Caption:=floattostrf((ma),ffGeneral,7,6);

  label20.Caption:=floattostrf((mb),ffGeneral,7,6);

  label21.Caption:=floattostrf((mc),ffGeneral,7,6);

  label22.Caption:=floattostrf((md),ffGeneral,7,6);

 

  //vagi

  s31:=StrToFloat(tabl.Cells[4,1]); s32:=StrToFloat(tabl.Cells[4,2]);

  s33:=StrToFloat(tabl.Cells[4,3]); s34:=StrToFloat(tabl.Cells[4,4]);

  s35:=StrToFloat(tabl.Cells[4,5]); s36:=StrToFloat(tabl.Cells[4,6]);

  s37:=StrToFloat(tabl.Cells[4,7]); s38:=StrToFloat(tabl.Cells[4,8]);

  s39:=StrToFloat(tabl.Cells[4,9]); s40:=StrToFloat(tabl.Cells[4,10]);

  s41:=StrToFloat(tabl.Cells[4,11]); s42:=StrToFloat(tabl.Cells[4,12]);

  s43:=StrToFloat(tabl.Cells[4,13]); s44:=StrToFloat(tabl.Cells[4,14]);

  s45:=StrToFloat(tabl.Cells[4,15]); s46:=StrToFloat(tabl.Cells[4,16]);

  s47:=StrToFloat(tabl.Cells[4,17]); s48:=StrToFloat(tabl.Cells[4,18]);

  s49:=StrToFloat(tabl.Cells[4,19]); s50:=StrToFloat(tabl.Cells[4,20]);

  s51:=StrToFloat(tabl.Cells[4,21]); s52:=StrToFloat(tabl.Cells[4,22]);

  s53:=StrToFloat(tabl.Cells[4,23]); s54:=StrToFloat(tabl.Cells[4,24]);

  s55:=StrToFloat(tabl.Cells[4,25]); s56:=StrToFloat(tabl.Cells[4,26]);

  s57:=StrToFloat(tabl.Cells[4,27]); s58:=StrToFloat(tabl.Cells[4,28]);

  s59:=StrToFloat(tabl.Cells[4,29]); s60:=StrToFloat(tabl.Cells[4,30]);

  s61:=StrToFloat(tabl.Cells[4,31]); s62:=StrToFloat(tabl.Cells[4,32]);

  s63:=StrToFloat(tabl.Cells[4,33]); s64:=StrToFloat(tabl.Cells[4,34]);

  s65:=StrToFloat(tabl.Cells[4,35]); s66:=StrToFloat(tabl.Cells[4,36]);

  s67:=StrToFloat(tabl.Cells[4,37]); s3:=StrToFloat(tabl.Cells[4,38]);

 

  s21:=StrToFloat(tabl.Cells[3,1]); s22:=StrToFloat(tabl.Cells[3,2]);

  s23:=StrToFloat(tabl.Cells[3,3]); s24:=StrToFloat(tabl.Cells[3,4]);

  s25:=StrToFloat(tabl.Cells[3,5]); s26:=StrToFloat(tabl.Cells[3,6]);

  s27:=StrToFloat(tabl.Cells[3,7]); s28:=StrToFloat(tabl.Cells[3,8]);

  s29:=StrToFloat(tabl.Cells[3,9]); s30:=StrToFloat(tabl.Cells[3,10]);

  s71:=StrToFloat(tabl.Cells[3,11]); s72:=StrToFloat(tabl.Cells[3,12]);

  s73:=StrToFloat(tabl.Cells[3,13]); s74:=StrToFloat(tabl.Cells[3,14]);

  s75:=StrToFloat(tabl.Cells[3,15]); s76:=StrToFloat(tabl.Cells[3,16]);

  s77:=StrToFloat(tabl.Cells[3,17]); s78:=StrToFloat(tabl.Cells[3,18]);

  s79:=StrToFloat(tabl.Cells[3,19]); s80:=StrToFloat(tabl.Cells[3,20]);

  s81:=StrToFloat(tabl.Cells[3,21]); s82:=StrToFloat(tabl.Cells[3,22]);

  s83:=StrToFloat(tabl.Cells[3,23]); s84:=StrToFloat(tabl.Cells[3,24]);

  s85:=StrToFloat(tabl.Cells[3,25]); s86:=StrToFloat(tabl.Cells[3,26]);

  s87:=StrToFloat(tabl.Cells[3,27]); s88:=StrToFloat(tabl.Cells[3,28]);

  s89:=StrToFloat(tabl.Cells[3,29]); s90:=StrToFloat(tabl.Cells[3,30]);

  s91:=StrToFloat(tabl.Cells[3,31]); s92:=StrToFloat(tabl.Cells[3,32]);

  s93:=StrToFloat(tabl.Cells[3,33]); s94:=StrToFloat(tabl.Cells[3,34]);

  s95:=StrToFloat(tabl.Cells[3,35]); s96:=StrToFloat(tabl.Cells[3,36]);

  s97:=StrToFloat(tabl.Cells[3,37]); s2:=StrToFloat(tabl.Cells[3,38]);

 

  ss1:=StrToFloat(tabl.Cells[1,1]); ss2:=StrToFloat(tabl.Cells[1,2]);

  ss3:=StrToFloat(tabl.Cells[1,3]); ss4:=StrToFloat(tabl.Cells[1,4]);

  ss5:=StrToFloat(tabl.Cells[1,5]); ss6:=StrToFloat(tabl.Cells[1,6]);

  ss7:=StrToFloat(tabl.Cells[1,7]); ss8:=StrToFloat(tabl.Cells[1,8]);

  ss9:=StrToFloat(tabl.Cells[1,9]); ss10:=StrToFloat(tabl.Cells[1,10]);

  ss11:=StrToFloat(tabl.Cells[1,11]); ss12:=StrToFloat(tabl.Cells[1,12]);

  ss13:=StrToFloat(tabl.Cells[1,13]); ss14:=StrToFloat(tabl.Cells[1,14]);

  ss15:=StrToFloat(tabl.Cells[1,15]); ss16:=StrToFloat(tabl.Cells[1,16]);

  ss17:=StrToFloat(tabl.Cells[1,17]); ss18:=StrToFloat(tabl.Cells[1,18]);

  ss19:=StrToFloat(tabl.Cells[1,19]); ss20:=StrToFloat(tabl.Cells[1,20]);

  ss21:=StrToFloat(tabl.Cells[1,21]); ss22:=StrToFloat(tabl.Cells[1,22]);

  ss23:=StrToFloat(tabl.Cells[1,23]); ss24:=StrToFloat(tabl.Cells[1,24]);

  ss25:=StrToFloat(tabl.Cells[1,25]); ss26:=StrToFloat(tabl.Cells[1,26]);

  ss27:=StrToFloat(tabl.Cells[1,27]); ss28:=StrToFloat(tabl.Cells[1,28]);

  ss29:=StrToFloat(tabl.Cells[1,29]); ss30:=StrToFloat(tabl.Cells[1,30]);

  ss31:=StrToFloat(tabl.Cells[1,31]); ss32:=StrToFloat(tabl.Cells[1,32]);

  ss33:=StrToFloat(tabl.Cells[1,33]); ss34:=StrToFloat(tabl.Cells[1,34]);

  ss35:=StrToFloat(tabl.Cells[1,35]); ss36:=StrToFloat(tabl.Cells[1,36]);

  ss37:=StrToFloat(tabl.Cells[1,37]); ss:=StrToFloat(tabl.Cells[1,38]);

 

   s01:=StrToFloat(tabl.Cells[2,1]); s02:=StrToFloat(tabl.Cells[2,2]);

   s03:=StrToFloat(tabl.Cells[2,3]); s04:=StrToFloat(tabl.Cells[2,4]);

   s05:=StrToFloat(tabl.Cells[2,5]); s06:=StrToFloat(tabl.Cells[2,6]);

   s07:=StrToFloat(tabl.Cells[2,7]); s08:=StrToFloat(tabl.Cells[2,8]);

   s09:=StrToFloat(tabl.Cells[2,9]); s010:=StrToFloat(tabl.Cells[2,10]);

   s011:=StrToFloat(tabl.Cells[2,11]); s012:=StrToFloat(tabl.Cells[2,12]);

   s013:=StrToFloat(tabl.Cells[2,13]); s014:=StrToFloat(tabl.Cells[2,14]);

   s015:=StrToFloat(tabl.Cells[2,15]); s016:=StrToFloat(tabl.Cells[2,16]);

   s017:=StrToFloat(tabl.Cells[2,17]); s018:=StrToFloat(tabl.Cells[2,18]);

   s019:=StrToFloat(tabl.Cells[2,19]); s020:=StrToFloat(tabl.Cells[2,20]);

   s021:=StrToFloat(tabl.Cells[2,21]); s022:=StrToFloat(tabl.Cells[2,22]);

   s023:=StrToFloat(tabl.Cells[2,23]); s024:=StrToFloat(tabl.Cells[2,24]);

   s025:=StrToFloat(tabl.Cells[2,25]); s026:=StrToFloat(tabl.Cells[2,26]);

   s027:=StrToFloat(tabl.Cells[2,27]); s028:=StrToFloat(tabl.Cells[2,28]);

   s029:=StrToFloat(tabl.Cells[2,29]); s030:=StrToFloat(tabl.Cells[2,30]);

   s031:=StrToFloat(tabl.Cells[2,31]); s032:=StrToFloat(tabl.Cells[2,32]);

   s033:=StrToFloat(tabl.Cells[2,33]); s034:=StrToFloat(tabl.Cells[2,34]);

   s035:=StrToFloat(tabl.Cells[2,35]); s036:=StrToFloat(tabl.Cells[2,36]);

   s037:=StrToFloat(tabl.Cells[2,37]); s0:=StrToFloat(tabl.Cells[2,38]);

 

   x1:=(m*k*j+l*g*k+k*l*g-k*k*k-l*l*j-m*g*g)/n21;

  x2:=(n*k*j+l*g*l+k*m*g-k*k*l-l*m*j-n*g*g)/(-1*n21);

  x3:=(n*l*j+m*g*l+k*m*k-k*l*l-m*m*j-n*g*k)/n21;

  x4:=(n*l*g+m*k*l+l*m*k-l*l*l-m*m*g-n*k*k)/(-1*n21);

  x5:=(n*k*j+m*g*k+l*l*g-l*k*k-m*l*j-n*g*g)/(-1*n21);

  x6:=(o*k*j+m*g*l+l*m*g-l*k*l-m*m*j-o*g*g)/n21;

  x7:=(o*l*j+n*g*l+l*m*k-l*l*l-n*m*j-o*g*k)/(-1*n21);

  x8:=(o*l*g+n*k*l+m*m*k-m*l*l-n*m*g-o*k*k)/n21;

  x9:=(n*l*j+m*k*k+l*m*g-l*l*k-m*m*j-n*k*g)/n21;

  x10:=(o*l*j+m*k*l+l*n*g-l*l*l-m*n*j-o*k*g)/(-1*n21);

  x11:=(o*m*j+n*k*l+l*n*k-l*m*l-n*n*j-o*k*k)/n21;

  x12:=(o*m*g+n*l*l+m*n*k-m*m*l-n*n*g-o*l*k)/(-1*n21);

  x13:=(n*l*g+m*k*l+l*m*k-l*l*l-m*m*g-n*k*k)/(-1*n21);

  x14:=(o*l*g+m*k*m+l*n*k-l*l*m-m*n*g-o*k*k)/n21;

  x15:=(o*m*g+n*k*m+l*n*l-l*m*m-n*n*g-o*k*l)/(-1*n21);

  x16:=(o*m*k+n*l*m+m*n*l-m*m*m-n*n*k-o*l*l)/n21;

 

 

 

    y1:=s31*(s31*x1+s21*x5+ss1*x9+s01*x13)+s21*(s31*x2+s21*x6+ss1*x10+s01*x14)+

       ss1*(s31*x3+s21*x7+ss1*x11+s01*x15)+s01*(s31*x4+s21*x8+ss1*x12+s01*x16);

    y2:=s32*(s32*x1+s22*x5+ss2*x9+s02*x13)+s22*(s32*x2+s22*x6+ss2*x10+s02*x14)+

       ss2*(s32*x3+s22*x7+ss2*x11+s02*x15)+s02*(s32*x4+s22*x8+ss2*x12+s02*x16);

    y3:=s33*(s33*x1+s23*x5+ss3*x9+s03*x13)+s23*(s33*x2+s23*x6+ss3*x10+s03*x14)+

       ss3*(s33*x3+s23*x7+ss3*x11+s03*x15)+s03*(s33*x4+s23*x8+ss3*x12+s03*x16);

    y4:=s34*(s34*x1+s24*x5+ss4*x9+s04*x13)+s24*(s34*x2+s24*x6+ss4*x10+s04*x14)+

       ss4*(s34*x3+s24*x7+ss4*x11+s04*x15)+s04*(s34*x4+s24*x8+ss4*x12+s04*x16);

    y5:=s35*(s35*x1+s25*x5+ss5*x9+s05*x13)+s25*(s35*x2+s25*x6+ss5*x10+s05*x14)+

       ss5*(s35*x3+s25*x7+ss5*x11+s05*x15)+s05*(s35*x4+s25*x8+ss5*x12+s05*x16);

    y6:=s36*(s36*x1+s26*x5+ss6*x9+s06*x13)+s26*(s36*x2+s26*x6+ss6*x10+s06*x14)+

       ss6*(s36*x3+s26*x7+ss6*x11+s06*x15)+s06*(s36*x4+s26*x8+ss6*x12+s06*x16);

    y7:=s37*(s37*x1+s27*x5+ss7*x9+s07*x13)+s27*(s37*x2+s27*x6+ss7*x10+s07*x14)+

       ss7*(s37*x3+s27*x7+ss7*x11+s07*x15)+s07*(s37*x4+s27*x8+ss7*x12+s07*x16);

    y8:=s38*(s38*x1+s28*x5+ss8*x9+s08*x13)+s28*(s38*x2+s28*x6+ss8*x10+s08*x14)+

       ss8*(s38*x3+s28*x7+ss8*x11+s08*x15)+s08*(s38*x4+s28*x8+ss8*x12+s08*x16);

    y9:=s39*(s39*x1+s29*x5+ss9*x9+s09*x13)+s29*(s39*x2+s29*x6+ss9*x10+s09*x14)+

       ss9*(s39*x3+s29*x7+ss9*x11+s09*x15)+s09*(s39*x4+s29*x8+ss9*x12+s09*x16);

 

    y10:=s40*(s40*x1+s30*x5+ss10*x9+s010*x13)+s30*(s40*x2+s30*x6+ss10*x10+s010*x14)+

       ss10*(s40*x3+s30*x7+ss10*x11+s010*x15)+s010*(s40*x4+s30*x8+ss10*x12+s010*x16);

    y11:=s41*(s41*x1+s71*x5+ss11*x9+s011*x13)+s71*(s41*x2+s71*x6+ss11*x10+s011*x14)+

       ss11*(s41*x3+s71*x7+ss11*x11+s011*x15)+s011*(s41*x4+s71*x8+ss11*x12+s011*x16);

    y12:=s42*(s42*x1+s72*x5+ss12*x9+s012*x13)+s72*(s42*x2+s72*x6+ss12*x10+s012*x14)+

       ss12*(s42*x3+s72*x7+ss12*x11+s012*x15)+s012*(s42*x4+s72*x8+ss12*x12+s012*x16);

    y13:=s43*(s43*x1+s73*x5+ss13*x9+s013*x13)+s73*(s43*x2+s73*x6+ss13*x10+s013*x14)+

       ss13*(s43*x3+s73*x7+ss13*x11+s013*x15)+s013*(s43*x4+s73*x8+ss13*x12+s013*x16);

    y14:=s44*(s44*x1+s74*x5+ss14*x9+s014*x13)+s74*(s44*x2+s74*x6+ss14*x10+s014*x14)+

       ss14*(s44*x3+s74*x7+ss14*x11+s014*x15)+s014*(s44*x4+s74*x8+ss14*x12+s014*x16);

    y15:=s45*(s45*x1+s75*x5+ss15*x9+s015*x13)+s75*(s44*x2+s75*x6+ss15*x10+s015*x14)+

       ss15*(s44*x3+s75*x7+ss15*x11+s015*x15)+s015*(s44*x4+s75*x8+ss15*x12+s015*x16);

    y16:=s46*(s46*x1+s76*x5+ss16*x9+s016*x13)+s76*(s46*x2+s76*x6+ss16*x10+s016*x14)+

       ss16*(s46*x3+s76*x7+ss16*x11+s016*x15)+s016*(s46*x4+s76*x8+ss16*x12+s016*x16);

    y17:=s47*(s47*x1+s77*x5+ss17*x9+s017*x13)+s77*(s47*x2+s77*x6+ss17*x10+s017*x14)+

       ss17*(s47*x3+s77*x7+ss17*x11+s017*x15)+s017*(s47*x4+s77*x8+ss17*x12+s017*x16);

    y18:=s48*(s48*x1+s78*x5+ss18*x9+s018*x13)+s78*(s48*x2+s78*x6+ss18*x10+s018*x14)+

       ss18*(s48*x3+s78*x7+ss18*x11+s018*x15)+s018*(s48*x4+s78*x8+ss18*x12+s018*x16);

    y19:=s49*(s49*x1+s79*x5+ss19*x9+s019*x13)+s79*(s49*x2+s79*x6+ss19*x10+s019*x14)+

       ss19*(s49*x3+s79*x7+ss19*x11+s019*x15)+s019*(s49*x4+s79*x8+ss19*x12+s019*x16);

    y20:=s50*(s50*x1+s80*x5+ss20*x9+s020*x13)+s80*(s50*x2+s80*x6+ss20*x10+s020*x14)+

       ss20*(s50*x3+s80*x7+ss20*x11+s020*x15)+s020*(s50*x4+s80*x8+ss20*x12+s020*x16);

    y21:=s51*(s51*x1+s81*x5+ss21*x9+s021*x13)+s81*(s51*x2+s81*x6+ss21*x10+s021*x14)+

       ss21*(s51*x3+s81*x7+ss21*x11+s021*x15)+s021*(s51*x4+s81*x8+ss21*x12+s021*x16);

    y22:=s52*(s52*x1+s82*x5+ss22*x9+s022*x13)+s82*(s52*x2+s82*x6+ss22*x10+s022*x14)+

       ss22*(s52*x3+s82*x7+ss22*x11+s022*x15)+s022*(s52*x4+s82*x8+ss22*x12+s022*x16);

    y23:=s53*(s53*x1+s83*x5+ss23*x9+s023*x13)+s83*(s53*x2+s83*x6+ss23*x10+s023*x14)+

       ss23*(s53*x3+s83*x7+ss23*x11+s023*x15)+s023*(s53*x4+s83*x8+ss23*x12+s023*x16);

    y24:=s54*(s54*x1+s84*x5+ss24*x9+s024*x13)+s84*(s54*x2+s84*x6+ss24*x10+s24*x14)*0.01+

       ss15*(s54*x3+s84*x7+ss24*x11+s024*x15)+s024*(s54*x4+s84*x8+ss24*x12+s024*x16);

    y25:=s55*(s55*x1+s85*x5+ss25*x9+s025*x13)+s85*(s55*x2+s85*x6+ss25*x10+s025*x14)+

       ss16*(s55*x3+s85*x7+ss25*x11+s025*x15)+s025*(s55*x4+s85*x8+ss25*x12+s025*x16);

    y26:=s56*(s56*x1+s86*x5+ss26*x9+s026*x13)+s86*(s56*x2+s86*x6+ss26*x10+s026*x14)+

       ss26*(s56*x3+s86*x7+ss26*x11+s026*x15)+s026*(s56*x4+s86*x8+ss26*x12+s026*x16);

    y27:=s57*(s57*x1+s87*x5+ss27*x9+s027*x13)+s87*(s57*x2+s87*x6+ss27*x10+s027*x14)+

       ss27*(s57*x3+s87*x7+ss27*x11+s027*x15)+s027*(s57*x4+s87*x8+ss27*x12+s027*x16);

    y28:=s58*(s58*x1+s88*x5+ss28*x9+s028*x13)+s88*(s58*x2+s88*x6+ss28*x10+s028*x14)+

       ss28*(s58*x3+s88*x7+ss28*x11+s028*x15)+s028*(s58*x4+s88*x8+ss28*x12+s028*x16);

    y29:=s59*(s59*x1+s89*x5+ss29*x9+s029*x13)+s89*(s59*x2+s89*x6+ss29*x10+s029*x14)+

       ss29*(s59*x3+s89*x7+ss29*x11+s029*x15)+s029*(s59*x4+s89*x8+ss29*x12+s029*x16);

    y30:=s60*(s60*x1+s90*x5+ss30*x9+s030*x13)+s90*(s60*x2+s90*x6+ss30*x10+s030*x14)+

       ss30*(s60*x3+s90*x7+ss30*x11+s030*x15)+s030*(s60*x4+s90*x8+ss30*x12+s030*x16);

    y31:=s61*(s61*x1+s91*x5+ss31*x9+s031*x13)+s91*(s61*x2+s91*x6+ss31*x10+s031*x14)+

       ss31*(s61*x3+s91*x7+ss31*x11+s031*x15)+s022*(s61*x4+s91*x8+ss31*x12+s031*x16);

    y32:=s62*(s62*x1+s92*x5+ss32*x9+s032*x13)+s92*(s62*x2+s92*x6+ss32*x10+s032*x14)+

       ss32*(s62*x3+s92*x7+ss32*x11+s032*x15)+s032*(s62*x4+s92*x8+ss32*x12+s032*x16);

    y33:=s63*(s63*x1+s93*x5+ss33*x9+s033*x13)+s93*(s63*x2+s93*x6+ss33*x10+s33*x14)*0.001+

       ss33*(s63*x3+s93*x7+ss33*x11+s033*x15)+s033*(s64*x4+s93*x8+ss33*x12+s033*x16);

    y34:=s64*(s64*x1+s94*x5+ss34*x9+s034*x13)+s94*(s64*x2+s94*x6+ss34*x10+s034*x14)+

       ss34*(s64*x3+s94*x7+ss34*x11+s034*x15)+s034*(s64*x4+s94*x8+ss34*x12+s034*x16);

    y35:=s65*(s65*x1+s95*x5+ss35*x9+s035*x13)+s95*(s65*x2+s95*x6+ss35*x10+s035*x14)+

       ss35*(s65*x3+s95*x7+ss35*x11+s035*x15)+s035*(s65*x4+s95*x8+ss35*x12+s035*x16);

    y36:=s66*(s66*x1+s96*x5+ss36*x9+s036*x13)+s96*(s66*x2+s96*x6+ss36*x10+s036*x14)+

       ss36*(s66*x3+s96*x7+ss36*x11+s036*x15)+s036*(s66*x4+s96*x8+ss36*x12+s036*x16);

    y37:=s67*(s67*x1+s97*x5+ss37*x9+s037*x13)+s97*(s67*x2+s97*x6+ss37*x10+s037*x14)+

       ss37*(s67*x3+s97*x7+ss37*x11+s037*x15)+s037*(s67*x4+s97*x8+ss37*x12+s037*x16);

 

    y38:=(-0.001)*s3*(s3*x1+s2*x5+ss*x9+s0*x13)+s2*(s3*x2+s2*x6+ss*x10+s0*x14)+

       ss*(s3*x3+s2*x7+ss*x11+s0*x15)+s0*(s3*x4+s2*x8+ss*x12+s0*x16);

   tabl.Cells[18,1]:=FloatToStr(y1);

   tabl.Cells[18,2]:=FloatToStr(y2);

   tabl.Cells[18,3]:=FloatToStr(y3);

   tabl.Cells[18,4]:=FloatToStr(y4);

   tabl.Cells[18,5]:=FloatToStr(y5);

   tabl.Cells[18,6]:=FloatToStr(y6);

   tabl.Cells[18,7]:=FloatToStr(y7);

   tabl.Cells[18,8]:=FloatToStr(y8);

   tabl.Cells[18,9]:=FloatToStr(y9);

   tabl.Cells[18,10]:=FloatToStr(y10);

   tabl.Cells[18,11]:=FloatToStr(y11);

   tabl.Cells[18,12]:=FloatToStr(y12);

   tabl.Cells[18,13]:=FloatToStr(y13);

   tabl.Cells[18,14]:=FloatToStr(y14);

   tabl.Cells[18,15]:=FloatToStr(y15);

   tabl.Cells[18,16]:=FloatToStr(y16);

   tabl.Cells[18,17]:=FloatToStr(y17);

   tabl.Cells[18,18]:=FloatToStr(y18);

   tabl.Cells[18,19]:=FloatToStr(y19);

   tabl.Cells[18,20]:=FloatToStr(y20);

   tabl.Cells[18,21]:=FloatToStr(y21);

   tabl.Cells[18,22]:=FloatToStr(y22);

   tabl.Cells[18,23]:=FloatToStr(y23);

   tabl.Cells[18,24]:=FloatToStr(y24);

   tabl.Cells[18,25]:=FloatToStr(y25);

   tabl.Cells[18,26]:=FloatToStr(y26);

   tabl.Cells[18,27]:=FloatToStr(y27);

   tabl.Cells[18,28]:=FloatToStr(y28);

   tabl.Cells[18,29]:=FloatToStr(y29);

   tabl.Cells[18,30]:=FloatToStr(y30);

   tabl.Cells[18,31]:=FloatToStr(y31);

   tabl.Cells[18,32]:=FloatToStr(y32);

   tabl.Cells[18,33]:=FloatToStr(y33);

   tabl.Cells[18,34]:=FloatToStr(y34);

   tabl.Cells[18,35]:=FloatToStr(y35);

   tabl.Cells[18,36]:=FloatToStr(y36);

   tabl.Cells[18,37]:=FloatToStr(y37);

   tabl.Cells[18,38]:=FloatToStr(y38);

 

   tabl.Cells[19,1]:=FloatToStr(sqrt(y1));

   tabl.Cells[19,2]:=FloatToStr(sqrt(y2));

   tabl.Cells[19,3]:=FloatToStr(sqrt(y3));

   tabl.Cells[19,4]:=FloatToStr(sqrt(y4));

   tabl.Cells[19,5]:=FloatToStr(sqrt(y5));

   tabl.Cells[19,6]:=FloatToStr(sqrt(y6));

   tabl.Cells[19,7]:=FloatToStr(sqrt(y7));

   tabl.Cells[19,8]:=FloatToStr(sqrt(y8));

   tabl.Cells[19,9]:=FloatToStr(sqrt(y9));

   tabl.Cells[19,10]:=FloatToStr(sqrt(y10));

   tabl.Cells[19,11]:=FloatToStr(sqrt(y11));

   tabl.Cells[19,12]:=FloatToStr(sqrt(y12));

   tabl.Cells[19,13]:=FloatToStr(sqrt(y13));

   tabl.Cells[19,14]:=FloatToStr(sqrt(y14));

   tabl.Cells[19,15]:=FloatToStr(sqrt(y15));

   tabl.Cells[19,16]:=FloatToStr(sqrt(y16));

   tabl.Cells[19,17]:=FloatToStr(sqrt(y17));

   tabl.Cells[19,18]:=FloatToStr(sqrt(y18));

   tabl.Cells[19,19]:=FloatToStr(sqrt(y19));

   tabl.Cells[19,20]:=FloatToStr(sqrt(y20));

   tabl.Cells[19,21]:=FloatToStr(sqrt(y21));

   tabl.Cells[19,22]:=FloatToStr(sqrt(y22));

   tabl.Cells[19,23]:=FloatToStr(sqrt(y23));

       tabl.Cells[19,24]:=FloatToStr(sqrt(y24));

   tabl.Cells[19,25]:=FloatToStr(sqrt(y25));

   tabl.Cells[19,26]:=FloatToStr(sqrt(y26));

   tabl.Cells[19,27]:=FloatToStr(sqrt(y27));

   tabl.Cells[19,28]:=FloatToStr(sqrt(y28));

   tabl.Cells[19,29]:=FloatToStr(sqrt(y29));

   tabl.Cells[19,30]:=FloatToStr(sqrt(y30));

   tabl.Cells[19,31]:=FloatToStr(sqrt(y31));

   tabl.Cells[19,32]:=FloatToStr(sqrt(y32));

   tabl.Cells[19,33]:=FloatToStr(sqrt(y33));

   tabl.Cells[19,34]:=FloatToStr(sqrt(y34));

   tabl.Cells[19,35]:=FloatToStr(sqrt(y35));

   tabl.Cells[19,36]:=FloatToStr(sqrt(y36));

   tabl.Cells[19,37]:=FloatToStr(sqrt(y37));

   tabl.Cells[19,38]:=FloatToStr(sqrt(y38));

 

   tabl.Cells[20,1]:=FloatToStr(mv*strtofloat(tabl.Cells[19,1]));

        tabl.Cells[20,2]:=FloatToStr(mv*strtofloat(tabl.Cells[19,2]));

        tabl.Cells[20,3]:=FloatToStr(mv*strtofloat(tabl.Cells[19,3]));

        tabl.Cells[20,4]:=FloatToStr(mv*strtofloat(tabl.Cells[19,4]));

        tabl.Cells[20,5]:=FloatToStr(mv*strtofloat(tabl.Cells[19,5]));

        tabl.Cells[20,6]:=FloatToStr(mv*strtofloat(tabl.Cells[19,6]));

        tabl.Cells[20,7]:=FloatToStr(mv*strtofloat(tabl.Cells[19,7]));

        tabl.Cells[20,8]:=FloatToStr(mv*strtofloat(tabl.Cells[19,8]));

        tabl.Cells[20,9]:=FloatToStr(mv*strtofloat(tabl.Cells[19,9]));

        tabl.Cells[20,10]:=FloatToStr(mv*strtofloat(tabl.Cells[19,10]));

        tabl.Cells[20,11]:=FloatToStr(mv*strtofloat(tabl.Cells[19,11]));

        tabl.Cells[20,12]:=FloatToStr(mv*strtofloat(tabl.Cells[19,12]));

        tabl.Cells[20,13]:=FloatToStr(mv*strtofloat(tabl.Cells[19,13]));

        tabl.Cells[20,14]:=FloatToStr(mv*strtofloat(tabl.Cells[19,14]));

        tabl.Cells[20,15]:=FloatToStr(mv*strtofloat(tabl.Cells[19,15]));

        tabl.Cells[20,16]:=FloatToStr(mv*strtofloat(tabl.Cells[19,16]));

        tabl.Cells[20,17]:=FloatToStr(mv*strtofloat(tabl.Cells[19,17]));

        tabl.Cells[20,18]:=FloatToStr(mv*strtofloat(tabl.Cells[19,18]));

        tabl.Cells[20,19]:=FloatToStr(mv*strtofloat(tabl.Cells[19,19]));

        tabl.Cells[20,20]:=FloatToStr(mv*strtofloat(tabl.Cells[19,20]));

        tabl.Cells[20,21]:=FloatToStr(mv*strtofloat(tabl.Cells[19,21]));

        tabl.Cells[20,22]:=FloatToStr(mv*strtofloat(tabl.Cells[19,22]));

        tabl.Cells[20,23]:=FloatToStr(mv*strtofloat(tabl.Cells[19,23]));

        tabl.Cells[20,24]:=FloatToStr(mv*strtofloat(tabl.Cells[19,24]));

        tabl.Cells[20,25]:=FloatToStr(mv*strtofloat(tabl.Cells[19,25]));

        tabl.Cells[20,26]:=FloatToStr(mv*strtofloat(tabl.Cells[19,26]));

        tabl.Cells[20,27]:=FloatToStr(mv*strtofloat(tabl.Cells[19,27]));

        tabl.Cells[20,28]:=FloatToStr(mv*strtofloat(tabl.Cells[19,28]));

        tabl.Cells[20,29]:=FloatToStr(mv*strtofloat(tabl.Cells[19,29]));

        tabl.Cells[20,30]:=FloatToStr(mv*strtofloat(tabl.Cells[19,30]));

        tabl.Cells[20,31]:=FloatToStr(mv*strtofloat(tabl.Cells[19,31]));

        tabl.Cells[20,32]:=FloatToStr(mv*strtofloat(tabl.Cells[19,32]));

        tabl.Cells[20,33]:=FloatToStr(mv*strtofloat(tabl.Cells[19,33]));

        tabl.Cells[20,34]:=FloatToStr(mv*strtofloat(tabl.Cells[19,34]));

        tabl.Cells[20,35]:=FloatToStr(mv*strtofloat(tabl.Cells[19,35]));

        tabl.Cells[20,36]:=FloatToStr(mv*strtofloat(tabl.Cells[19,36]));

        tabl.Cells[20,37]:=FloatToStr(mv*strtofloat(tabl.Cells[19,37]));

        tabl.Cells[20,38]:=FloatToStr(mv*strtofloat(tabl.Cells[19,38]));

 

        BitBtn1.Enabled:=True;

   end;

procedure TRozr.BitBtn1Click(Sender: TObject);

var

 j:integer;

begin

PageControl1.Visible:=true;

Chart1.Visible:=true;

series1.Clear;

  Chart1.Title.Text.Clear;

 Chart1.LeftAxis.Title.Caption:='Екзаменаційна оцінка студента, y';

Chart1.BottomAxis.Title.Caption:='Середня оцінка за предмет, x';

 Chart1.Title.Text.Add('Істинна модель’);

 for j:=1 to 38 do

 Series1.AddXY(strtofloat(tabl.Cells[8,j]),strtofloat(tabl.Cells[9,j]),'',clred);

 

 end;

procedure TRozr.BitBtn4Click(Sender: TObject);

 

begin

    TabSheet2.Show;

  Chart1.Height:=650;

 

 

  end;

 

procedure TRozr.BitBtn5Click(Sender: TObject);

var j:integer;

begin

   TabSheet3.Show;

  Chart2.Height:=650;

  Chart2.Visible:=true;

    series2.Clear;

 Chart2.Title.Text.Clear;

 Chart2.LeftAxis.Title.Caption:=' Екзаменаційна оцінка студента, y';

 Chart2.BottomAxis.Title.Caption:=' Середня оцінка за предмет, x';

 Chart2.Title.Text.Add(' Спотворена модель ');

 for j:=1 to 38 do

 Series2.AddXY(strtofloat(tabl.Cells[1,j]),strtofloat(tabl.Cells[9,j]),'',clred);

 

end;

procedure TRozr.BitBtn6Click(Sender: TObject);

 var

 i,j:integer;

begin

 

Chart3.Height:=650;

Chart3.Visible:=true;

TabSheet4.Show;

series3.Clear;

  Series4.Clear;

 Chart3.Title.Text.Clear;

 Chart3.LeftAxis.Title.Caption:= 'Значення похибок ';

 Chart3.BottomAxis.Title.Caption:= 'Номера спостережень';

 Chart3.Title.Text.Add('ІСТИННІ І АБСОЛЮТНІ ПОХИБКИ ');

 Series3.Title:='істинні похибки';

 Series4.Title:='абсолютні похибки';

 for j:=1 to 37 do

 Series3.AddXY(strtofloat(tabl.Cells[0,j]),strtofloat(tabl.Cells[17,j]),'',clred);

 for j:=1 to 37 do

 Series4.AddXY(strtofloat(tabl.Cells[0,j]),strtofloat(tabl.Cells[14,j]),'',clgreen);

end;

rocedure TRozr.BitBtn7Click(Sender: TObject);

 var j:integer;

begin

  Chart4.Height:=650;

Chart4.Visible:=true;

 TabSheet5.Show;

      Series5.Clear;

 Chart4.Title.Text.Clear;

 Chart4.LeftAxis.Title.Caption:='Значення обернених ваг';

 Chart4.BottomAxis.Title.Caption:='Номера спостережень';

 Chart4.Title.Text.Add('ОБЕРНЕНІ ВАГИ ФУНКЦІЇ');

 for j:=1 to 37 do

 Series5.AddXY(strtofloat(tabl.Cells[0,j]),strtofloat(tabl.Cells[18,j]),'',clred);

 

end;

procedure TFRozr.BitBtn8Click(Sender: TObject);

var

 j:integer;

begin

  Chart5.Height:=650;

  Chart1.Visible:=false;

  Chart2.Visible:=false;

  Chart3.Visible:=false;

  Chart4.Visible:=false;

  Chart6.Visible:=false;

  Chart7.Visible:=false;

  Chart5.Visible:=true;

  Series6.Clear;

 Chart5.Title.Text.Clear;

 Chart5.LeftAxis.Title.Caption:='Значення похибок';

 Chart5.BottomAxis.Title.Caption:='Номера спостережень';

 Chart5.Title.Text.Add('СЕРЕДНІ КВАДРАТИЧНІ ПОХИБКИ ФУНКЦІЇ');

 for j:=1 to 37 do

 Series6.AddXY(strtofloat(tabl.Cells[0,j]),strtofloat(tabl.Cells[20,j]),'',clred);

end;

 

procedure TFRozr.BitBtn9Click(Sender: TObject);

var

 j:integer;

begin

  Chart6.Height:=650;

  Chart1.Visible:=false;

  Chart2.Visible:=false;

  Chart3.Visible:=false;

  Chart4.Visible:=false;

  Chart5.Visible:=false;

  Chart7.Visible:=false;

  Chart6.Visible:=true;

  series7.Clear;

  Series8.Clear;

 Chart6.Title.Text.Clear;

 Chart6.LeftAxis.Title.Caption:='Значення похибок';

 Chart6.BottomAxis.Title.Caption:='Номера спостережень';

 Chart6.Title.Text.Add('АБСОЛЮТНІ І СЕРЕДНІ КВАДРАТИЧНІ ПОХИБКИ ФУНКЦІЙ');

 Series7.Title:='абсолютні похибки';

 Series8.Title:='середні кв.похибки';

 for j:=1 to 37 do

 Series7.AddXY(strtofloat(tabl.Cells[0,j]),strtofloat(tabl.Cells[14,j]),'',clred);

 for j:=1 to 37 do

 Series8.AddXY(strtofloat(tabl.Cells[0,j]),strtofloat(tabl.Cells[20,j]),'',clgreen);

 

end;

procedure TRozr.BitBtn11Click(Sender: TObject);

var

  f:textfile;

  i,j:integer;

 

begin

  //zapis:=tabl.Cells[j,i];

  AssignFile(f,'date\zapis.txt');

  {$i-}

  append(f);

  {$i+}

  if ioresult<>0 then Rewrite(f);

 {for j:=0 to 21 do

 for i:=0 to 12 do

 writeln(f,tabl.Cells[j,i]);  }

 for i:=0 to 12 do

 writeln(f,tabl.Cells[0,i]+#32+#32+tabl.Cells[17,i]+#32+#32+tabl.Cells[8,i]+#32+#32+tabl.Cells[9,i]+#32+#32+tabl.Cells[1,i]+#32+#32+

 tabl.Cells[13,i]+#32+#32+tabl.Cells[14,i]+#32+#32+tabl.Cells[15,i]+#32#32+tabl.Cells[16,i]+#32+#32+tabl.Cells[18,i]+#32+#32+

 tabl.Cells[19,i]+#32+#32+tabl.Cells[20,i]+#13+'гâíÿííÿ'+#13+#32+'y='+#32+label1.caption+'x^3+'+label2.caption+'x^2+'+label3.caption+

 'x+'+label4.caption);

 CloseFile(f);

   MessageDlg('Äàí³ çáåðåæåíî.',mtInformation,[mbOK],0);

  {except

  on EFCreateError do

   MessageDlg('Ïîìèëêà ïðè ñòâîðåíí³ ôàéëà!',mtError,[mbOK],0);

  on EIO: EinOutError do

   MessageDlg('Ïîìèëêà ââîäó!'+EIO.Message,mtError,[mbOK],0);

  else

   MessageDlg('Ïîìèëêà íåâ³äîìîãî òèïó!',mtError,[mbOK],0); }

 

 

end;

 

procedure TRozr.BitBtn10Click(Sender: TObject);

 

    var

 i,j:integer;

 a:array[1..4] of real;  zn1,zn2,zn3,zn4:real;

 b:array[1..4] of string;

 c:array[1..4] of real;

 

begin

   a[1]:=strtofloat(label19.Caption);

   a[2]:=strtofloat(label20.Caption);

   a[3]:=strtofloat(label21.Caption);

   a[4]:=strtofloat(label22.Caption);

 

    c[1]:=strtofloat(label29.Caption);

   c[2]:=strtofloat(label30.Caption);

   c[3]:=strtofloat(label31.Caption);

   c[4]:=strtofloat(label32.Caption);

   b[1]:='a';b[2]:='b';b[3]:='c';b[4]:='d';

  Chart7.Height:=655;

  Chart7.Visible:=true;

  TabSheet8.Show;

  series9.Clear;

  series10.Clear;

  //Series8.Clear;

 Chart7.Title.Text.Clear;

 Chart7.LeftAxis.Title.Caption:='Значення похибок';

 Chart7.BottomAxis.Title.Caption:='Назви коефіцієнтів';

 Chart7.Title.Text.Add('СЕРЕДНІ КВ. ПОХИБКИ КОЕФІЦІЄНТІВ І ЇХ ЗНАЧУЩІСТЬ');

 Series9.Title:='середні кв. пох. коеф.';

 Series10.Title:='значущість коеф.';

  for i:=1 to 4 do

 Series9.Add(a[i],b[i],clred);

 for i:=1 to 4 do

 Series10.Add(c[i],b[i],clgreen);

 

end;

 

procedure TRozr.BitBtn13Click(Sender: TObject);

begin

close;

end;

 

procedure TRozr.BitBtn12Click(Sender: TObject);

{begin

 try

  Rozr.Print;

    except

      on Exception do

      Begin

        Printer.Abort;

        Printer.EndDoc;

        Raise;

      end;end; end;  }

 Var tmpH,tmpW,tmpWMargin,tmpHMargin:Longint;

    OldOrientation:TPrinterOrientation;

begin

    Screen.Cursor := crHourGlass;

  OldOrientation:=Printer.Orientation;

  Printer.Orientation:=poLandscape;

  try

    Printer.BeginDoc;

    try

      Printer.Title:='Ãðàô³êè';

 

         Begin

             Chart1.PrintResolution:= -100;

             Chart2.PrintResolution:= -100;

             Chart3.PrintResolution:= -100;

             Chart4.PrintResolution:= -100;

             Chart5.PrintResolution:= -100;

             Chart6.PrintResolution:= -100;

             Chart7.PrintResolution:= -100;

         End;

 

      tmpW:=Printer.PageWidth;

      tmpWMargin:=Round(5.0*tmpW/100.0);

      tmpW:=tmpW-2*tmpWMargin;

      tmpW:=tmpW div 2;

      tmpH:=Printer.PageHeight;

      tmpHMargin:=Round(5.0*tmpH/100.0);

      tmpH:=tmpH-2*tmpHMargin;

      tmpH:=tmpH div 2;

 

      Chart1.PrintPartial( Rect( tmpWMargin,tmpHMargin,

                                 tmpWMargin+tmpW,tmpHMargin+tmpH ) );

      Chart3.PrintPartial( Rect( tmpWMargin+tmpW,tmpHMargin,

                                       tmpWMargin+2*tmpW,tmpHMargin+tmpH ) );

      Chart2.PrintPartial( Rect( tmpWMargin,tmpHMargin+tmpH,

                                 tmpWMargin+tmpW,tmpHMargin+2*tmpH ) );

      Chart4.PrintPartial( Rect( tmpWMargin+tmpW,tmpHMargin+tmpH,

                                 tmpWMargin+2*tmpW,tmpHMargin+2*tmpH ) );

      Chart5.PrintPartial( Rect( tmpWMargin+tmpW,tmpHMargin+tmpH,

                                 tmpWMargin+tmpW,tmpHMargin+2*tmpH ) );

      Chart6.PrintPartial( Rect( tmpWMargin+tmpW,tmpHMargin+tmpH,

                                 tmpWMargin+2*tmpW,tmpHMargin+2*tmpH ) );

      Chart7.PrintPartial( Rect( tmpWMargin+tmpW,tmpHMargin+tmpH,

                                 tmpWMargin+tmpW,tmpHMargin+2*tmpH ) );

      Printer.EndDoc;

    except

      on Exception do

      Begin

        Printer.Abort;

        Printer.EndDoc;

        Raise;

      end;

    end;

  finally

    Printer.Orientation:=OldOrientation;

    Screen.Cursor:=crDefault;

  end;

end;

end.