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

mash[i+1]:=per; end;

ep13[1]:=(70/mash[2])*mas; ep13[2]:=(70/mash[2])*((l10*s1)/u2);

pos1[1]:=abs(mas); pos1[2]:=abs((l10*s1)/u2);

masif1[1]:=(mas); masif1[2]:=((l10*s1)/u2);

for ii:=1 to 2 do

for i:=1 to 1 do

if ep11[i]<>0 then

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

begin

per:=ep11[i];

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

ep11[i+1]:=per;

per:=ep12[i];

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

ep12[i+1]:=per;

per:=ep13[i];

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

ep13[i+1]:=per;

per:=masif1[i];

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

masif1[i+1]:=per;

per:=pos1[i];

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

pos1[i+1]:=per;

end;

masif1[1]:=masif1[1]*ep11[1]; masif1[2]:=masif1[1]+(masif1[2]*(ep11[2]-ep11[1]));

for i:=1 to 2 do chis1[i]:=masif1[i];

for i:=1 to 2 do mash[i]:=abs(masif1[i]);

for ii:=1 to 2 do