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

mas[i+1]:=per;

end; i1:=29+d22; i2:=mas[3]; i3:=mas[2]; i4:=mas[1];

end; end;

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

for ii:=1 to 4 do

for i:=1 to 3 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[4]; i3:=mas[3]; i4:=mas[2]; i5:=mas[1]; end; end;

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

for ii:=1 to 3 do

for i:=1 to 2 do

if mas[ii]<>0 then

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

begin

per:=mas[i];

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

mas[i+1]:=per;

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

end; end;

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

for ii:=1 to 4 do

for i:=1 to 3 do

if mas[i]<>0 then

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