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

ep73[i+1]:=per;

per:=masif7[i];

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

masif7[i+1]:=per;

per:=pos7[i];

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

pos7[i+1]:=per;

end;

masif7[1]:=masif7[1]*ep71[1]; masif7[2]:=masif7[1]+(masif7[2]*(ep71[2]-ep71[1])); masif7[3]:=masif7[2]+(masif7[3]*(ep71[3]-ep71[2])); masif7[4]:=masif7[3]+(masif7[4]*(ep71[4]-ep71[3]));

for i:=1 to 4 do chis7[i]:=masif7[i];

for i:=1 to 4 do mash[i]:=abs(masif7[i]);

for ii:=1 to 4 do

for i:=1 to 3 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 4 do masif7[i]:=((70/mash[4])*masif7[i]);

end;

procedure epi8; var mash:array[1..5] of real; mas:array[1..3] of real; per,l10,l11:real; i,ii:integer; begin

ep81[1]:=strtofloat(Form1.Edit1.Text); ep81[2]:=strtofloat(Form1.Edit1.Text)+strtofloat(Form1.Edit2.Text); ep81[3]:=strtofloat(Form1.Edit1.Text)+strtofloat(Form1.Edit2.Text)+strtofloat(Form1.Edit3.Text); ep81[4]:=strtofloat(Form1.Edit7.Text); ep81[5]:=strtofloat(Form1.Edit8.Text);

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

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