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

if mas[i]<>0 then

if mas[i]>mas[i+1] then

begin

per:=mas[i];

mas[i]:=mas[i+1];

mas[i+1]:=per;

end; z1:=((70/mas[3])*l10); z2:=((70/mas[3])*l11); z3:=((70/mas[3])*l12);

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

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

l3:=(strtofloat(Form1.Edit3.Text));

l:=l1+l2+l3;

end;

gor:=(440/l); p1:=(gor*l7); p2:=(gor*l8); p3:=(gor*l9); end;

procedure obr2; var sil:array[1..2] of real; i,ii:integer; per:real; begin if b=2 then begin

si2;

i1:=469;

if p1>p2 then begin

i2:=29+p1;

i3:=29+p2;

end;

if p1<p2 then begin

i2:=29+p2;

i3:=29+p1;

end;

if p1=p2 then begin

i2:=29+p1;