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

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 2 do masif1[i]:=((70/mash[2])*masif1[i]); end;

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

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

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

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

if ep21[2]>ep21[1] then u2:=0; if ep21[2]<=ep21[1] then u2:=strtofloat(Form1.Edit4.Text); if ep21[3]>ep21[1] then u3:=0; if ep21[3]<=ep21[1] then u3:=strtofloat(Form1.Edit4.Text);

for i:=1 to 3 do ep22[i]:=59+(440/ep21[1])*ep21[i];

if ep21[1]>ep21[3] then mas:=0; if (ep21[3]>=ep21[1]) and (ep21[2]<ep21[1]) then mas:=(l11*s2)/u1;

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

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;

ep23[1]:=(70/mash[3])*mas; ep23[2]:=(70/mash[3])*(((l10*s1)+(l11*s2))/u2); ep23[3]:=(70/mash[3])*((l11*s2)/u3);

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

masif2[1]:=(mas); masif2[2]:=(((l10*s1)+(l11*s2))/u2); masif2[3]:=((l11*s2)/u3);

for ii:=1 to 3 do

for i:=1 to 2 do

if ep21[i]<>0 then