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

begin

per:=mash[i];

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

mash[i+1]:=per; end;

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

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

ep61[1]:=strtofloat(Form1.Edit1.Text); ep61[2]:=strtofloat(Form1.Edit1.Text)+strtofloat(Form1.Edit2.Text); ep61[3]:=strtofloat(Form1.Edit7.Text); ep61[4]:=strtofloat(Form1.Edit8.Text); ep61[5]:=strtofloat(Form1.Edit9.Text);

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

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

if (ep61[3]>ep61[1]) and (ep61[3]<=ep61[2]) then u3:=strtofloat(Form1.Edit5.Text); if ep61[3]<=ep61[1] then u3:=strtofloat(Form1.Edit4.Text); if (ep61[4]>ep61[1]) and (ep61[4]<=ep61[2]) then u4:=strtofloat(Form1.Edit5.Text); if ep61[4]<=ep61[1] then u4:=strtofloat(Form1.Edit4.Text); if (ep61[5]>ep61[1]) and (ep61[5]<=ep61[2]) then u5:=strtofloat(Form1.Edit5.Text); if ep61[5]<=ep61[1] then u5:=strtofloat(Form1.Edit4.Text);

for i:=1 to 5 do ep62[i]:=59+(440/ep61[2])*ep61[i];

if ep61[1]>ep61[5] then mas[1]:=0; if (ep61[5]>=ep61[1]) and (ep61[1]>ep61[4]) then mas[1]:=(l12*s3)/u1; if (ep61[4]>=ep61[1]) and (ep61[1]>ep61[3]) then mas[1]:=((l11*s2)+(l12*s3))/u1; if ep61[1]<=ep61[3] then mas[1]:=((l10*s1)+(l11*s2)+(l12*s3))/u1; if ep61[2]>ep61[5] then mas[2]:=0; if (ep61[5]>=ep61[2]) and (ep61[2]>ep61[4]) then mas[2]:=(l12*s3)/u2; if (ep61[4]>=ep61[2]) and (ep61[2]>ep61[3]) then mas[2]:=((l11*s2)+(l12*s3))/u2; if ep61[2]<=ep61[3] then mas[2]:=((l10*s1)+(l11*s2)+(l12*s3))/u2;

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

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;

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

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

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

for ii:=1 to 5 do

for i:=1 to 4 do

if ep61[i]<>0 then

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

begin