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

for i:=1 to 2 do

if mash[i]<>0 then

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

begin

per:=mash[i];

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

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

ep43[1]:=(70/mash[3])*mas[1]; ep43[2]:=(70/mash[3])*mas[2]; ep43[3]:=(70/mash[3])*((l10*s1)/u3);

pos4[1]:=abs(mas[1]); pos4[2]:=abs(mas[2]); pos4[3]:=abs((l10*s1)/u3);

masif4[1]:=(mas[1]); masif4[2]:=(mas[2]); masif4[3]:=((l10*s1)/u3);

for ii:=1 to 3 do

for i:=1 to 2 do

if ep41[i]<>0 then

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

begin

per:=ep41[i];

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

ep41[i+1]:=per;

per:=ep42[i];

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

ep42[i+1]:=per;

per:=ep43[i];

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

ep43[i+1]:=per;

per:=masif4[i];

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

masif4[i+1]:=per;

per:=pos4[i];

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