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

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

sil[i+1]:=per;

end;

sil9[1]:=(70/sil[3])*f1; sil9[2]:=(70/sil[3])*f2; sil9[3]:=(70/sil[3])*f3;

end; end;

procedure obr4; begin if (a=2) and (b=1) then begin

ed2;

si1;

i1:=29+d22;

if p1>d12 then begin

i2:=29+p1;

i3:=29+d12;

end;

if p1<d12 then begin

i2:=29+d12;

i3:=29+p1;

end;

if p1=d12 then begin

i2:=29+p1;

i3:=29+d12;

end;

end; end;

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

for ii:=1 to 3 do

for i:=1 to 2 do

if mas[i]<>0 then

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

begin

per:=mas[i];