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

                          i2:=29+p1;

                          i3:=29+p2;

                          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

        per:=sil[i];

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

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

        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

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

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

        mash[i+1]:=per;

end; 

ep13[1]:=(70/mash[2])*mas;

ep13[2]:=(70/mash[2])*((l10*s1)/u2); 

pos1[1]:=abs(mas);

pos1[2]:=abs((l10*s1)/u2); 

masif1[1]:=(mas);

masif1[2]:=((l10*s1)/u2); 

   for ii:=1 to 2 do

    for i:=1 to 1 do

    if ep11[i]<>0 then

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

        begin

        per:=ep11[i];

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

        ep11[i+1]:=per;

        per:=ep12[i];

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

        ep12[i+1]:=per;

        per:=ep13[i];

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

        ep13[i+1]:=per;

        per:=masif1[i];

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

        masif1[i+1]:=per;

        per:=pos1[i];

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

        pos1[i+1]:=per;

        end; 

masif1[1]:=masif1[1]*ep11[1];

masif1[2]:=masif1[1]+(masif1[2]*(ep11[2]-ep11[1])); 

for i:=1 to 2 do

chis1[i]:=masif1[i]; 

for i:=1 to 2 do

mash[i]:=abs(masif1[i]); 

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

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