Реферат: Расчёт статически определяемых стержневых систем неравного сечения на растяжение-сжатие

if ComboBox6.Text='мм' then begin Form1.Label7.Caption:='миллиметрах'; Form1.Label16.Left:=704; end;

end;

procedure ed1; var l,gor:real; begin l:=strtoint(form1.Edit1.Text); gor:=(440/l); d12:=(gor*l); end;

procedure ed2; var d1,d2,gor,l,l1,l2,l4,l5:real; begin l1:=strtoint(form1.Edit1.Text); l2:=strtoint(form1.Edit2.Text); l4:=strtoint(form1.Edit4.Text); l5:=strtoint(form1.Edit5.Text); if l4>l5 then begin

d1:=50;

d2:=(50/l4)*l5;

end; if l4<l5 then begin

d1:=(50/l5)*l4;

d2:=50;

end; l:=l1+l2; gor:=(440/l); d12:=(gor*l1); d22:=(gor*l); r11:=(55-d1/2); r12:=(55+d1/2); r21:=(55-d2/2); r22:=(55+d2/2)

end;

procedure ed3; var d1,d2,d3,l,l1,l2,l3,l4,l5,l6,gor:real; begin l1:=strtoint(form1.Edit1.Text); l2:=strtoint(form1.Edit2.Text); l3:=strtoint(form1.Edit3.Text); l4:=strtoint(form1.Edit4.Text); l5:=strtoint(form1.Edit5.Text); l6:=strtoint(form1.Edit6.Text); if (l4>l5) and (l4>l6) then begin

d1:=50;

d2:=((50/l4)*l5);

d3:=((50/l4)*l6);

end; if (l4<l5) and (l5>l6) then begin

d1:=((50/l5)*l4);

d2:=50;

d3:=((50/l5)*l6);

end; if (l4<l6) and (l5<l6) then begin

d1:=((50/l6)*l4);

d2:=((50/l6)*l5);

d3:=50;

end; l:=l1+l2+l3; gor:=(440/l); d12:=(gor*l1); d22:=(gor*l2)+d12; d32:=(gor*l); r11:=(55-d1/2); r12:=(55+d1/2); r21:=(55-d2/2); r22:=(55+d2/2); r31:=(55-d3/2); r32:=(55+d3/2);

end;

procedure si1; var l,l1,l2,l3,l7:real; begin l1:=(strtofloat(Form1.Edit1.Text)); l7:=(strtofloat(Form1.Edit7.Text)); if a=1 then l:=l1; if a=2 then begin

l2:=(strtofloat(Form1.Edit2.Text));

l:=l1+l2;

end; if a=3 then begin