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

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

u2:=strtofloat(Form1.Edit5.Text);

u3:=strtofloat(Form1.Edit6.Text); 

if ep81[4]>ep81[2] then u4:=strtofloat(Form1.Edit6.Text);

if (ep81[4]>ep81[1]) and (ep81[4]<=ep81[2]) then  u4:=strtofloat(Form1.Edit5.Text);

if ep81[4]<=ep81[1] then  u4:=strtofloat(Form1.Edit4.Text);

if ep81[5]>ep81[2] then u5:=strtofloat(Form1.Edit6.Text);

if (ep81[5]>ep81[1]) and (ep81[5]<=ep81[2]) then  u5:=strtofloat(Form1.Edit5.Text);

if ep81[5]<=ep81[1] then  u5:=strtofloat(Form1.Edit4.Text); 

for i:=1 to 5 do

ep82[i]:=59+(440/ep81[3])*ep81[i]; 

if ep81[1]>ep81[5] then mas[1]:=0;

if (ep81[5]>=ep81[1]) and (ep81[1]>ep81[4]) then mas[1]:=(l11*s2)/u1;

if ep81[1]<=ep81[4] then mas[1]:=((l10*s1)+(l11*s2))/u1;

if ep81[2]>ep81[5] then mas[2]:=0;

if (ep81[5]>=ep81[2]) and (ep81[2]>ep81[4]) then mas[2]:=(l11*s2)/u2;

if ep81[2]<=ep81[4] then mas[2]:=((l10*s1)+(l11*s2))/u2;

if ep81[3]=ep81[5] then mas[3]:=(l11*s2)/u3; 

mash[1]:=abs(((l10*s1)+(l11*s2))/u4);

mash[2]:=abs((l11*s2)/u5);

mash[4]:=abs(mas[1]);

mash[4]:=abs(mas[2]);

mash[5]:=abs(mas[3]); 

   for ii:=1 to 5 do

    for i:=1 to 4 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; 

ep83[1]:=(70/mash[5])*mas[1];

ep83[2]:=(70/mash[5])*mas[2];

ep83[3]:=(70/mash[5])*mas[3];

ep83[4]:=(70/mash[5])*(((l10*s1)+(l11*s2))/u4);

ep83[5]:=(70/mash[5])*((l11*s2)/u5); 

pos8[1]:=abs(mas[1]);

pos8[2]:=abs(mas[2]);

pos8[3]:=abs(mas[3]);

pos8[4]:=abs(((l10*s1)+(l11*s2))/u4);

pos8[5]:=abs((l11*s2)/u5); 

masif8[1]:=(mas[1]);

masif8[2]:=(mas[2]);

masif8[3]:=(mas[3]);

masif8[4]:=(((l10*s1)+(l11*s2))/u4);

masif8[5]:=((l11*s2)/u5); 

   for ii:=1 to 5 do

    for i:=1 to 4 do

    if ep81[i]<>0 then

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

        begin

        per:=ep81[i];

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

        ep81[i+1]:=per;

        per:=ep82[i];

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

        ep82[i+1]:=per;

        per:=ep83[i];

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

        ep83[i+1]:=per;

        per:=masif8[i];

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

        masif8[i+1]:=per;

        per:=pos8[i];

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

        pos8[i+1]:=per;

        end; 

masif8[1]:=masif8[1]*ep81[1];

masif8[2]:=masif8[1]+(masif8[2]*(ep81[2]-ep81[1]));

masif8[3]:=masif8[2]+(masif8[3]*(ep81[3]-ep81[2]));

masif8[4]:=masif8[3]+(masif8[4]*(ep81[4]-ep81[3]));

masif8[5]:=masif8[4]+(masif8[5]*(ep81[5]-ep81[4])); 

for i:=1 to 5 do

chis8[i]:=masif8[i]; 

for i:=1 to 5 do

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

   for ii:=1 to 5 do

    for i:=1 to 4 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 5 do

masif8[i]:=((70/mash[5])*masif8[i]); 

end; 

procedure epi9;

var

mash:array[1..6] of real;

mas:array[1..3] of real;

per,l10,l11,l12:real;

i,ii:integer;

begin 

ep91[1]:=strtofloat(Form1.Edit1.Text);

ep91[2]:=strtofloat(Form1.Edit1.Text)+strtofloat(Form1.Edit2.Text);

ep91[3]:=strtofloat(Form1.Edit1.Text)+strtofloat(Form1.Edit2.Text)+strtofloat(Form1.Edit3.Text);

ep91[4]:=strtofloat(Form1.Edit7.Text);

ep91[5]:=strtofloat(Form1.Edit8.Text);

ep91[6]:=strtofloat(Form1.Edit9.Text); 

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

l11:=strtofloat(Form1.Edit11.Text);

l12:=strtofloat(Form1.Edit12.Text); 

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

u2:=strtofloat(Form1.Edit5.Text);

u3:=strtofloat(Form1.Edit6.Text); 

if ep91[4]>ep91[2] then u4:=strtofloat(Form1.Edit6.Text);

if (ep91[4]>ep91[1]) and (ep91[4]<=ep91[2]) then  u4:=strtofloat(Form1.Edit5.Text);

if ep91[4]<=ep91[1] then  u4:=strtofloat(Form1.Edit4.Text);

if ep91[5]>ep91[2] then u5:=strtofloat(Form1.Edit6.Text);

if (ep91[5]>ep91[1]) and (ep91[5]<=ep91[2]) then  u5:=strtofloat(Form1.Edit5.Text);

if ep91[5]<=ep91[1] then  u5:=strtofloat(Form1.Edit4.Text);

if ep91[6]>ep91[2] then u6:=strtofloat(Form1.Edit6.Text);

if (ep91[6]>ep91[1]) and (ep91[6]<=ep91[2]) then  u6:=strtofloat(Form1.Edit5.Text);

if ep91[6]<=ep91[1] then  u6:=strtofloat(Form1.Edit4.Text); 

for i:=1 to 6 do

ep92[i]:=59+(440/ep91[3])*ep91[i]; 

if ep91[1]>ep91[6] then mas[1]:=0;

if (ep91[6]>=ep91[1]) and (ep91[1]>ep91[5]) then mas[1]:=(l12*s3)/u1;

if (ep91[5]>=ep91[1]) and (ep91[1]>ep91[4]) then mas[1]:=((l11*s2)+(l12*s3))/u1;

if ep91[1]<=ep91[4] then mas[1]:=((l10*s1)+(l11*s2)+(l12*s3))/u1;

if ep91[2]>ep91[6] then mas[2]:=0;

if (ep91[6]>=ep91[2]) and (ep91[2]>ep91[5]) then mas[2]:=(l12*s3)/u2;

if (ep91[5]>=ep91[2]) and (ep91[2]>ep91[4]) then mas[2]:=((l11*s2)+(l12*s3))/u2;

if ep91[2]<=ep91[4] then mas[2]:=((l10*s1)+(l11*s2)+(l12*s3))/u2;

if ep91[3]<ep91[6] then mas[3]:=(l12*s3)/u3;;

if ep91[3]>=ep91[6] then mas[3]:=(l12*s3)/u3; 

mash[1]:=abs(((l10*s1)+(l11*s2)+(l12*s3))/u4);

mash[2]:=abs(((l11*s2)+(l12*s3))/u5);

mash[3]:=abs((l12*s3)/u6);

mash[4]:=abs(mas[1]);

mash[5]:=abs(mas[2]);

mash[6]:=abs(mas[3]); 

   for ii:=1 to 6 do

    for i:=1 to 5 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; 

ep93[1]:=(70/mash[6])*mas[1];

ep93[2]:=(70/mash[6])*mas[2];

ep93[3]:=(70/mash[6])*mas[3];

ep93[4]:=(70/mash[6])*(((l10*s1)+(l11*s2)+(l12*s3))/u4);

ep93[5]:=(70/mash[6])*(((l11*s2)+(l12*s3))/u5);

ep93[6]:=(70/mash[6])*((l12*s3)/u6); 

pos9[1]:=abs(mas[1]);

pos9[2]:=abs(mas[2]);

pos9[3]:=abs(mas[3]);

pos9[4]:=abs(((l10*s1)+(l11*s2)+(l12*s3))/u4);

pos9[5]:=abs(((l11*s2)+(l12*s3))/u5);

pos9[6]:=abs((l12*s3)/u6); 

masif9[1]:=(mas[1]);

masif9[2]:=(mas[2]);

masif9[3]:=(mas[3]);

masif9[4]:=(((l10*s1)+(l11*s2)+(l12*s3))/u4);

masif9[5]:=(((l11*s2)+(l12*s3))/u5);

masif9[6]:=((l12*s3)/u6); 

   for ii:=1 to 6 do

    for i:=1 to 5 do

    if ep91[i]<>0 then

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

        begin

        per:=ep91[i];

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

        ep91[i+1]:=per;

        per:=ep92[i];

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

        ep92[i+1]:=per;

        per:=ep93[i];

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

        ep93[i+1]:=per;

        per:=masif9[i];

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

        masif9[i+1]:=per;

        per:=pos9[i];

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

        pos9[i+1]:=per;

        end; 

masif9[1]:=masif9[1]*ep91[1];

masif9[2]:=masif9[1]+(masif9[2]*(ep91[2]-ep91[1]));

masif9[3]:=masif9[2]+(masif9[3]*(ep91[3]-ep91[2]));

masif9[4]:=masif9[3]+(masif9[4]*(ep91[4]-ep91[3]));

masif9[5]:=masif9[4]+(masif9[5]*(ep91[5]-ep91[4]));

masif9[6]:=masif9[5]+(masif9[6]*(ep91[6]-ep91[5])); 

for i:=1 to 6 do

chis9[i]:=masif9[i]; 

for i:=1 to 6 do

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

   for ii:=1 to 6 do

    for i:=1 to 5 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 6 do

masif9[i]:=((70/mash[6])*masif9[i]); 

end; 

procedure TForm1.Button1Click(Sender: TObject);

var

  Pic: TBitmap;

  i,prover:integer;

  dlin,kol:real;

begin 

if Form1.Edit1.Text<>'' then begin

if Form1.Edit4.Text<>'' then begin

if Form1.Edit2.Text<>'' then begin

if Form1.Edit5.Text<>'' then begin

if Form1.Edit3.Text<>'' then begin

if Form1.Edit6.Text<>'' then begin

if Form1.Edit7.Text<>'' then begin

if Form1.Edit10.Text<>'' then begin

if Form1.Edit8.Text<>'' then begin

if Form1.Edit11.Text<>'' then begin

if Form1.Edit9.Text<>'' then begin

if Form1.Edit12.Text<>'' then begin 

if (strtofloat(Form1.Edit4.Text)<>strtofloat(Form1.Edit5.Text)) and (strtofloat(Form1.Edit5.Text)<>strtofloat(Form1.Edit6.Text)) then begin

if (Form1.Edit1.Text<>'0') and (Form1.Edit2.Text<>'0') and (Form1.Edit3.Text<>'0') then begin

if (Form1.Edit7.Text<>'0') and (Form1.Edit8.Text<>'0') and (Form1.Edit9.Text<>'0') then begin

if (Form1.Edit10.Text<>'0') and (Form1.Edit11.Text<>'0') and (Form1.Edit12.Text<>'0') then begin

if Form1.Edit10.Text<>'0' then begin 

if a=1 then dlin:=strtofloat(Form1.Edit1.Text);

if a=2 then dlin:=strtofloat(Form1.Edit1.Text)+strtofloat(Form1.Edit2.Text);

if a=3 then dlin:=strtofloat(Form1.Edit1.Text)+strtofloat(Form1.Edit2.Text)+strtofloat(Form1.Edit3.Text); 

if b=1 then kol:=strtofloat(Form1.Edit7.Text);

if b=2 then kol:=strtofloat(Form1.Edit8.Text);

if b=3 then kol:=strtofloat(Form1.Edit9.Text); 

prover:=0;

if b=1 then prover:=1;

if b=2 then begin

            if strtofloat(Form1.Edit7.Text)<=strtofloat(Form1.Edit8.Text) then prover:=1;

            end;

if b=3 then begin

            if (strtofloat(Form1.Edit7.Text)<=strtofloat(Form1.Edit8.Text)) and (strtofloat(Form1.Edit8.Text)<=strtofloat(Form1.Edit9.Text)) then prover:=1;

            end; 

if prover=1 then begin

if dlin>=kol then begin 

if Form4.ComboBox1.Text='Íåîãðàíè÷åííî' then

else

okr:=strtoint(Form4.ComboBox1.Text); 

if a=1 then begin

            ed1;

            image2.Canvas.Brush.Color:=clWhite;

            image2.Canvas.Brush.Style:=bsSolid;

            image2.Canvas.Rectangle(0,0,600,667);