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

end;

masif4[1]:=masif4[1]*ep41[1]; masif4[2]:=masif4[1]+(masif4[2]*(ep41[2]-ep41[1])); masif4[3]:=masif4[2]+(masif4[3]*(ep41[3]-ep41[2]));

for i:=1 to 3 do chis4[i]:=masif4[i];

for i:=1 to 3 do mash[i]:=abs(masif4[i]);

for ii:=1 to 3 do

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

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

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

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

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

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

for i:=1 to 4 do ep52[i]:=59+(440/ep51[2])*ep51[i];

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

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

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;