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

end;

end;

f1:=(strtofloat(Form1.Edit11.Text)*s2+strtofloat(Form1.Edit10.Text)*s1); f2:=strtofloat(Form1.Edit11.Text)*s2;

sil[1]:=abs(f1); sil[2]:=abs(f2);

for ii:=1 to 2 do

for i:=1 to 1 do

if sil[i]<>0 then

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

begin

per:=sil[i];

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

sil[i+1]:=per;

end;

sil8[1]:=(70/sil[2])*f1; sil8[2]:=(70/sil[2])*f2; end;

procedure obr3; var mas:array[1..3] of real; sil:array[1..3] of real; per:real; i,ii:integer; begin if b=3 then begin si3; mas[1]:=29+p1; mas[2]:=29+p2; mas[3]:=29+p3;

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];

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

mas[i+1]:=per;

end; i1:=469; i2:=(mas[3]); i3:=(mas[2]); i4:=(mas[1]); f1:=(strtofloat(Form1.Edit12.Text)*s3+strtofloat(Form1.Edit11.Text)*s2+strtofloat(Form1.Edit10.Text)*s1); f2:=(strtofloat(Form1.Edit12.Text)*s3+strtofloat(Form1.Edit11.Text)*s2); f3:=(strtofloat(Form1.Edit12.Text)*s3); sil[1]:=abs(f1); sil[2]:=abs(f2); sil[3]:=abs(f3);

for ii:=1 to 3 do

for i:=1 to 2 do

if sil[i]<>0 then

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

begin