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

ep31[1]:=strtofloat(Form1.Edit1.Text); ep31[2]:=strtofloat(Form1.Edit7.Text); ep31[3]:=strtofloat(Form1.Edit8.Text); ep31[4]:=strtofloat(Form1.Edit9.Text);

l10:=strtofloat(Form1.Edit10.Text); l11:=strtofloat(Form1.Edit11.Text); l12:=strtofloat(Form1.Edit12.Text);

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

if ep31[2]<=ep31[1] then u2:=strtofloat(Form1.Edit4.Text); if ep31[3]<=ep31[1] then u3:=strtofloat(Form1.Edit4.Text); if ep31[4]<=ep31[1] then u4:=strtofloat(Form1.Edit4.Text);

for i:=1 to 4 do ep32[i]:=59+(440/ep31[1])*ep31[i];

if ep31[1]<ep31[4] then mas:=0 else mas:=(l12*s3)/u1;

mash[1]:=abs((l11*s2)+(l12*s3))/u3; mash[2]:=abs((l12*s3)/u4); mash[3]:=abs(mas); mash[4]:=abs(((l10*s1)+(l11*s2)+(l12*s3))/u2);

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;

ep33[1]:=(70/mash[4])*mas; ep33[2]:=(70/mash[4])*(((l10*s1)+(l11*s2)+(l12*s3))/u2); ep33[3]:=(70/mash[4])*(((l11*s2)+(l12*s3))/u3); ep33[4]:=(70/mash[4])*((l12*s3)/u4);

pos3[1]:=abs(mas); pos3[2]:=abs(((l10*s1)+(l11*s2)+(l12*s3))/u2); pos3[3]:=abs(((l11*s2)+(l12*s3))/u3); pos3[4]:=abs((l12*s3)/u4);

masif3[1]:=(mas); masif3[2]:=(((l10*s1)+(l11*s2)+(l12*s3))/u2); masif3[3]:=(((l11*s2)+(l12*s3))/u3); masif3[4]:=((l12*s3)/u4);

for ii:=1 to 4 do

for i:=1 to 3 do

if ep31[i]<>0 then

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

begin

per:=ep31[i];

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

ep31[i+1]:=per;

per:=ep32[i];

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

ep32[i+1]:=per;