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

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

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

if ep71[4]>ep71[2] then u4:=strtofloat(Form1.Edit6.Text); if (ep71[4]>ep71[1]) and (ep71[4]<=ep71[2]) then u4:=strtofloat(Form1.Edit5.Text); if ep71[4]<=ep71[1] then u4:=strtofloat(Form1.Edit4.Text);

for i:=1 to 4 do ep72[i]:=59+(440/ep71[3])*ep71[i];

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

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

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;

ep73[1]:=(70/mash[4])*mas[1]; ep73[2]:=(70/mash[4])*mas[2]; ep73[3]:=(70/mash[4])*mas[3]; ep73[4]:=(70/mash[4])*((l10*s1)/u4);

pos7[1]:=abs(mas[1]); pos7[2]:=abs(mas[2]); pos7[3]:=abs(mas[3]); pos7[4]:=abs((l10*s1)/u4);

masif7[1]:=(mas[1]); masif7[2]:=(mas[2]); masif7[3]:=(mas[3]); masif7[4]:=((l10*s1)/u4);

for ii:=1 to 4 do

for i:=1 to 3 do

if ep71[i]<>0 then

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

begin

per:=ep71[i];

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

ep71[i+1]:=per;

per:=ep72[i];

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

ep72[i+1]:=per;

per:=ep73[i];