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

ПРИЛОЖЕНИЕ А

ИСХОДНЫЙ  ТЕКСТ ПРОГРАМНОГО  ПРОДУКТА 

unit Unit1; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls, Menus; 

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Image1: TImage;

    Button1: TButton;

    Label2: TLabel;

    Label3: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    Label11: TLabel;

    Edit7: TEdit;

    Edit8: TEdit;

    Edit9: TEdit;

    ComboBox3: TComboBox;

    ComboBox4: TComboBox;

    ComboBox5: TComboBox;

    Label12: TLabel;

    Label13: TLabel;

    Label14: TLabel;

    Label15: TLabel;

    Label18: TLabel;

    ComboBox6: TComboBox;

    Label19: TLabel;

    Label4: TLabel;

    Edit10: TEdit;

    Edit11: TEdit;

    Edit12: TEdit;

    Label5: TLabel;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    OpenDialog1: TOpenDialog;

    SaveDialog1: TSaveDialog;

    N8: TMenuItem;

    N9: TMenuItem;

    Label6: TLabel;

    Label7: TLabel;

    Label16: TLabel;

    Memo1: TMemo;

    Image2: TImage;

    N10: TMenuItem; 

    procedure FormActivate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure ComboBox2Change(Sender: TObject);

    procedure ComboBox3Change(Sender: TObject);

    procedure ComboBox4Change(Sender: TObject);

    procedure ComboBox5Change(Sender: TObject);

    procedure ComboBox6Change(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

    procedure Edit10KeyPress(Sender: TObject; var Key: Char);

    procedure Edit11KeyPress(Sender: TObject; var Key: Char);

    procedure Edit12KeyPress(Sender: TObject; var Key: Char);

    procedure Edit2KeyPress(Sender: TObject; var Key: Char);

    procedure Edit3KeyPress(Sender: TObject; var Key: Char);

    procedure Edit4KeyPress(Sender: TObject; var Key: Char);

    procedure Edit5KeyPress(Sender: TObject; var Key: Char);

    procedure Edit6KeyPress(Sender: TObject; var Key: Char);

    procedure Edit7KeyPress(Sender: TObject; var Key: Char);

    procedure Edit8KeyPress(Sender: TObject; var Key: Char);

    procedure Edit9KeyPress(Sender: TObject; var Key: Char);

    procedure N9Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);

    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);

    procedure ComboBox3KeyPress(Sender: TObject; var Key: Char);

    procedure ComboBox4KeyPress(Sender: TObject; var Key: Char);

    procedure ComboBox5KeyPress(Sender: TObject; var Key: Char);

    procedure ComboBox6KeyPress(Sender: TObject; var Key: Char);

   procedure N10Click(Sender: TObject); 

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

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;

                         Form1.Label10.Visible:=false;

                         Edit1.Text:='';

                         Edit2.Text:='1';

                         Edit3.Text:='1';

                         Edit4.Text:='';

                         Edit5.Text:='0';

                         Edit6.Text:='1';

                         end;

if combobox1.Text='2' then begin

                         a:=2;

                         Edit2.Visible:=true;

                         Edit3.Visible:=false;

                         Edit5.Visible:=true;

                         Edit6.Visible:=false;

                         Form1.Label9.Visible:=true;

                         Form1.Label10.Visible:=false;

                         Edit1.Text:='';

                         Edit2.Text:='';

                         Edit3.Text:='1';

                         Edit4.Text:='';

                         Edit5.Text:='';

                         Edit6.Text:='0';

                         end;

if combobox1.Text='3' then begin

                         a:=3;

                         Edit2.Visible:=true;

                         Edit3.Visible:=true;

                         Edit5.Visible:=true;

                         Edit6.Visible:=true;

                         Form1.Label9.Visible:=true;

                         Form1.Label10.Visible:=true;

                         Edit1.Text:='';

                         Edit2.Text:='';

                         Edit3.Text:='';

                         Edit4.Text:='';

                         Edit5.Text:='';

                         Edit6.Text:='';

                         end;

end; 

procedure TForm1.ComboBox2Change(Sender: TObject);

begin

if combobox2.Text='1' then begin

                         b:=1;