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

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

ep33[i+1]:=per;

per:=masif3[i];

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

masif3[i+1]:=per;

per:=pos3[i];

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

pos3[i+1]:=per;

end;

masif3[1]:=masif3[1]*ep31[1]; masif3[2]:=masif3[1]+(masif3[2]*(ep31[2]-ep31[1])); masif3[3]:=masif3[2]+(masif3[3]*(ep31[3]-ep31[2])); masif3[4]:=masif3[3]+(masif3[4]*(ep31[4]-ep31[3]));

for i:=1 to 4 do chis3[i]:=masif3[i];

for i:=1 to 4 do mash[i]:=abs(masif3[i]);

for ii:=1 to 4 do

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

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

ep41[1]:=strtofloat(Form1.Edit1.Text); ep41[2]:=strtofloat(Form1.Edit1.Text)+strtofloat(Form1.Edit2.Text); ep41[3]:=strtofloat(Form1.Edit7.Text);

l10:=strtofloat(Form1.Edit10.Text);

u1:=strtofloat(Form1.Edit4.Text); u2:=strtofloat(Form1.Edit5.Text);

if (ep41[3]>ep41[1]) and (ep41[3]<=ep41[2]) then u3:=strtofloat(Form1.Edit5.Text); if ep41[3]<=ep41[1] then u3:=strtofloat(Form1.Edit4.Text);

for i:=1 to 3 do ep42[i]:=59+(440/ep41[2])*ep41[i];

if ep41[1]>ep41[3] then mas[1]:=0; if ep41[1]<=ep41[3] then mas[1]:=(l10*s1)/u1; if ep41[2]>ep41[3] then mas[2]:=0; if ep41[2]<=ep41[3] then mas[2]:=(l10*s1)/u2;

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