;:=L/SummM;:=roundto(m1*(1+Teta)*sumn,- 1);:=roundto (m2 * (1 + Teta) * sumn, - 1);:=roundto (m3 * (1 + Teta) * sumn, - 1);.caption:=floattostr(pr1);.caption:=floattostr(pr2);.caption:=floattostr(pr3);;:=strtofloat(edit10.text);:=strtofloat(edit11.text);:=strtofloat(edit12.text);:=strtofloat(edit13.text);s:=strtofloat(edit14.text);s:=strtofloat(edit15.text);s:=strtofloat(edit16.text);s:=strtofloat(edit17.text);:=strtofloat(edit20.text);s:=in1/(in1+0.139);s:=in2/(in2+0.139);s:=in3/(in3+0.139);s:=in4/(in4+0.139);s2:=in1/(in1+2*0.139);s2:=in2/(in2+2*0.139);s2:=in3/(in3+2*0.139);s2:=in4/(in4+2*0.139);s:=m1s2-m1s*m1s;s:=m2s2-m2s*m2s;s:=m3s2-m2s*m2s;s:=m4s2-m2s*m2s;:=m1s*kol1s+m2s*kol2s+m3s*kol3s+m4s*kol4s;:=var1s*kol1s+var2s*kol2s+var3s*kol3s+var4s*kol4s;:= SummM + Mz;:=SummVar + Dz;:=1.645 * sqrt (SummDz);:=Ls / SummMz;:=Ls / SummDz;:=k * var1;:=k * var2;:=k * var3;: =k * var1s;:=k * var2s;:=k * var3s;:=k * var4s; ss:=sumn * (m1 + l11); ss:=sumn * (m2 + l12); ss:=sumn * (m3 + l13); ss:=roundto (DolSt * (l21 + var1s), - 1); ss:=roundto (DolSt * (l22 + var1s), - 1); ss:=roundto (DolSt * (l23 + var1s), - 1); ss:=roundto (DolSt * (l24 + var1s), - 1);.caption:=floattostr(p21ss);.caption:=floattostr(p22ss);.caption:=floattostr(p23ss);.caption:=floattostr(p24ss);;
}; TForm1.ComboBox1Change (Sender: TObject); ComboBox1.Text=«Короткострокове» then.Visible:=True;. Visible:=False;; ComboBox1.Text=«Довгострокове» then.Visible:=False;. Visible:=True;; ComboBox1.Text=«Змішане» then.Visible:=True;. Visible:=True;;; TForm1.Button2Click (Sender: TObject);.Text:=«0»;.Text:=«0»;.Text:=«0»;.Text:=«0»;.Text:=«0»;.Text:=«0»;.Text:=«0»;.Text:=«0»;.Text:=«0»;.Text:=«0»;.Text:=«0»;.Text:=«0»;.Text:=«0»;.Text:=«0»;.Text:=«0»;.Text:=«0»;.Text:=«0»;.Text:=«0»;.Text:=«0»;.Text:=«0»;.Text:=«0»;;.
