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

var Form1: TForm1;

masif9:array[1..6] of real; masi9:array[1..6] of real; ep91:array[1..6] of real; ep92:array[1..6] of real; ep93:array[1..6] of real; pos9:array[1..6] of real; sil9:array[1..3] of real; chis9:array[1..6] of real;

masif8:array[1..5] of real; masi8:array[1..5] of real; ep81:array[1..5] of real; ep82:array[1..5] of real; ep83:array[1..5] of real; pos8:array[1..5] of real; sil8:array[1..3] of real; chis8:array[1..5] of real;

masif7:array[1..4] of real; masi7:array[1..4] of real; ep71:array[1..4] of real; ep72:array[1..4] of real; ep73:array[1..4] of real; pos7:array[1..4] of real; chis7:array[1..4] of real;

masif6:array[1..5] of real; masi6:array[1..5] of real; ep61:array[1..5] of real; ep62:array[1..5] of real; ep63:array[1..5] of real; pos6:array[1..5] of real; chis6:array[1..5] of real;

masif5:array[1..4] of real; masi5:array[1..4] of real; ep51:array[1..4] of real; ep52:array[1..4] of real; ep53:array[1..4] of real; pos5:array[1..4] of real; chis5:array[1..4] of real;

masif4:array[1..3] of real; masi4:array[1..3] of real; ep41:array[1..3] of real; ep42:array[1..3] of real; ep43:array[1..3] of real; pos4:array[1..3] of real; chis4:array[1..3] of real;

masif3:array[1..4] of real; masi3:array[1..4] of real; ep31:array[1..4] of real; ep32:array[1..4] of real; ep33:array[1..4] of real; pos3:array[1..4] of real; chis3:array[1..4] of real;

masif2:array[1..3] of real; masi2:array[1..3] of real; ep21:array[1..3] of real; ep22:array[1..3] of real; ep23:array[1..3] of real; pos2:array[1..3] of real; chis2:array[1..3] of real;

masif1:array[1..2] of real; masi1:array[1..2] of real; ep11:array[1..2] of real; ep12:array[1..2] of real; ep13:array[1..2] of real; pos1:array[1..2] of real; chis1:array[1..2] of real;

okr:integer; i1,i2,i3,i4,i5,i6,z1,z2,z3,p1,p2,p3,r11,r21,r31,r12,r22,r32,d12,d22,d32,a,b,s1,s2,s3,u1,u2,u3,u4,u5,u6,f1,f2,f3,m,sil7:real;

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject); begin image2.Canvas.Brush.Color:=clWhite; image2.Canvas.Brush.Style:=bsSolid; image2.Canvas.Rectangle(0,0,600,667); Form1.Memo1.Clear; image1.Canvas.Brush.Color:=clWhite; image1.Canvas.Brush.Style:=bsSolid; image1.Canvas.Rectangle(0,0,600,667); a:=1; b:=1; Form2.Canvas.MoveTo(0,0); Form2.Canvas.LineTo(260,0); if ComboBox3.Text='Влево' then s1:=-1

else s1:=1; if ComboBox4.Text='Влево' then s2:=-1

else s2:=1; if ComboBox5.Text='Влево' then s3:=-1

else s3:=1; m:=0.001; if ComboBox6.Text='м' then m:=0.001; if ComboBox6.Text='см' then m:=0.0000001; if ComboBox6.Text='мм' then m:=0.000000001;

if ComboBox6.Text='м' then begin Form1.Label7.Caption:='метрах'; Form1.Label16.Left:=672; end;

if ComboBox6.Text='см' then begin Form1.Label7.Caption:='сантиметрах'; Form1.Label16.Left:=704; end;

if ComboBox6.Text='мм' then begin Form1.Label7.Caption:='миллиметрах'; Form1.Label16.Left:=704; end;

end;

procedure TForm1.ComboBox1Change(Sender: TObject); begin if combobox1.Text='1' then begin

a:=1;

Edit2.Visible:=false;

Edit3.Visible:=false;

Edit5.Visible:=false;

Edit6.Visible:=false;

Form1.Label9.Visible:=false;