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

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

ep61[i+1]:=per;

per:=ep62[i];

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

ep62[i+1]:=per;

per:=ep63[i];

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

ep63[i+1]:=per;

per:=masif6[i];

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

masif6[i+1]:=per;

per:=pos6[i];

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

pos6[i+1]:=per;

end;

masif6[1]:=masif6[1]*ep61[1]; masif6[2]:=masif6[1]+(masif6[2]*(ep61[2]-ep61[1])); masif6[3]:=masif6[2]+(masif6[3]*(ep61[3]-ep61[2])); masif6[4]:=masif6[3]+(masif6[4]*(ep61[4]-ep61[3])); masif6[5]:=masif6[4]+(masif6[5]*(ep61[5]-ep61[4]));

for i:=1 to 5 do chis6[i]:=masif6[i];

for i:=1 to 5 do mash[i]:=abs(masif6[i]);

for ii:=1 to 5 do

for i:=1 to 4 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 5 do masif6[i]:=((70/mash[5])*masif6[i]);

end;

procedure epi7; var mash:array[1..4] of real; mas:array[1..3] of real; per,l10,l11:real; i,ii:integer; begin