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

begin

per:=ep21[i];

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

ep21[i+1]:=per;

per:=ep22[i];

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

ep22[i+1]:=per;

per:=ep23[i];

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

ep23[i+1]:=per;

per:=masif2[i];

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

masif2[i+1]:=per;

per:=pos2[i];

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

pos2[i+1]:=per;

end;

masif2[1]:=masif2[1]*ep21[1]; masif2[2]:=masif2[1]+(masif2[2]*(ep21[2]-ep21[1])); masif2[3]:=masif2[2]+(masif2[3]*(ep21[3]-ep21[2]));

for i:=1 to 3 do chis2[i]:=masif2[i];

for i:=1 to 3 do mash[i]:=abs(masif2[i]);

for ii:=1 to 3 do

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;

for i:=1 to 3 do masif2[i]:=((70/mash[3])*masif2[i]); end;