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

per:=mas[i];

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

mas[i+1]:=per;

end; i2:=mas[4]; i3:=mas[3]; i4:=mas[2]; i5:=mas[1]; end; end;

procedure obr9; var mas:array[1..5] of real; per:real; i,ii:integer; begin if (a=3) and (b=3) then begin ed3; si3; i1:=d32+29; mas[1]:=29+p1; mas[2]:=29+p2; mas[3]:=29+p3; mas[4]:=29+d12; mas[5]:=29+d22;

for ii:=1 to 5 do

for i:=1 to 4 do

if mas[i]<>0 then

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

begin

per:=mas[i];

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

mas[i+1]:=per;

end; i2:=mas[5]; i3:=mas[4]; i4:=mas[3]; i5:=mas[2]; i6:=mas[1];

end; end;

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

ep11[1]:=strtofloat(Form1.Edit1.Text); ep11[2]:=strtofloat(Form1.Edit7.Text);

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

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

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

for i:=1 to 2 do ep12[i]:=59+(440/ep11[1])*ep11[i];

if ep11[1]>ep11[2] then mas:=0; if ep11[2]>=ep11[1] then mas:=(l10*s1)/u2;

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

for ii:=1 to 2 do

for i:=1 to 1 do

if mash[i]<>0 then

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

begin

per:=mash[i];