Расчет опорных элементов. Расчет модульной вставки. Расчеты на прочность штанг, страница 2

    Bevel1: TBevel;

    Bevel2: TBevel;

    SB1: TSpeedButton;

    Bevel3: TBevel;

    SB2: TSpeedButton;

    VLE1: TValueListEditor;

    Label1: TLabel;

    Bevel4: TBevel;

    VLE2: TValueListEditor;

    Label2: TLabel;

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure SB1Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure SB2Click(Sender: TObject);

    procedure N1Click(Sender: TObject);

    procedure FormPaint(Sender: TObject);

    procedure FormShow(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

peregr,peregr1:real;

i_2:integer;

i_1:real;

s_1:string[2];

koef,x,y,x1,x3,x4,x5,x6,x7,x8,x9,x10,

y1,y2,y3,y7,y9:real;

l_fas:real;

f,f1:textfile;

s,s1:string;

cod:integer;

cod1:real;

n_vr,h1,n_dv,nn_dv,i12,h2,n_vh,n1,n2,n_vih,w1,w2,t1,t2:real;

h_hb,n_h_limb12,n_he_1,n_he_2,q_1,q_2,z_n1,z_n2,

sigma_h1,sigma_h2,sigma_hr,k_h_betta,k_a,w_sht_ba,a_w,w_sht_bd,b_w,

m:real;

betta,cos_betta,z_sum,z_1,z_2,a_w_tochn:real;

alfa_tw,alfa_t,x_1,x_2,d_1,d_2,d_w1,d_w2,d_f1,d_f2,d_a1,d_a2,d_b1,d_b2,alfa_ta1,

alfa_ta2,E_alfa:real;

z_r,y_E,k_falfa,z_E,P_x,E_betta,betta_b,v,z_h,delta_h,g_0,w_hv,w_fv,w_bd,

k_hbetta, k_fbetta,f_t,k_hv,k_halfa,k_h,step_toch1,z_x,sigma_h,sigma_hr_ut,

 z_v,b_2,b_1,z_nu1,z_nu2,y_f,y_betta,delta_f,k_fv,k_f,sigma_f1,

 sigma_f2,y_r,y_x1,y_x2,y_a,y_z,y_g,y_d,s_f,sigma_f_limb1,sigma_f_limb2,

 n_f_limb,n_fe_1,n_fe_2,y_n1,y_n2,sigma_f_pred1,sigma_f_pred2:real;

 implementation

 uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure chertesh;

type

s_koord=string[6];

var

bol: boolean;

procedure podg_fila;

  var i:integer;

      s:string;

  begin

  if form1.openDialog1.Execute then

    begin

    if form1.openDialog1.filename='C:\Мои документы\chert_nach.dxf' then

    begin

    form4.st1.caption:='Файл шаблона! Выберете другой файл.';

    form4.ShowModal;

    bol:=false;

    end;

    if bol then

    begin

    assignfile(f,form1.openDialog1.filename);

    assignfile(f1,'c:\Мои документы\chert_nach.dxf');

    Rewrite(F);

    reset(f1);

       while not Eof(F1) do

       begin

        Readln(F1, s);

        Writeln(F,s);

       end;

    closefile(f1);

    end;

    end

    else

    bol:=false;

  end;

  procedure kones_fila;

  var i:integer;

  begin

writeln(f,'ENDSEC');

writeln(f,'  0');

write(f,'EOF');

closefile(f);

  end;

  procedure osn_linia(xx,yy,xx1,yy1:real);

   begin

writeln(f,'LINE');

writeln(f,'  8');

writeln(f,'LAYER0VIEW0');

writeln(f,'  6');

writeln(f,'K5LT_BASIC');

writeln(f,'  62');

writeln(f,'     5');

writeln(f,'  10');

writeln(f,xx:3:4);

writeln(f,'  20');

writeln(f,yy:3:4);

writeln(f,'  30');

writeln(f,'0.0000');

writeln(f,'  11');

writeln(f,xx1:3:4);

writeln(f,'  21');

writeln(f,yy1:3:4);

writeln(f,'  31');

writeln(f,'0.0000');

writeln(f,'  0');

   end;

  procedure tonkaya_linia(xx,yy,xx1,yy1:real);

   begin

   form1.Canvas.moveto(round(xx),round(yy));

   form1.Canvas.lineto(round(xx1),round(yy1));

   end;

  procedure osevaya_linia(xx,yy,xx1,yy1:real);

   begin

writeln(f,'LINE');

writeln(f,'  8');

writeln(f,'LAYER0VIEW0');

writeln(f,'  6');

writeln(f,'K5LT_AXLED');

writeln(f,'  62');

writeln(f,'     7');

writeln(f,'  10');

writeln(f,xx:3:4);

writeln(f,'  20');

writeln(f,yy:3:4);

writeln(f,'  30');

writeln(f,'0.0000');

writeln(f,'  11');

writeln(f,xx1:3:4);

writeln(f,'  21');

writeln(f,yy1:3:4);

writeln(f,'  31');

writeln(f,'0.0000');

writeln(f,'  0');

end;

begin

bol:=false;

podg_fila;

if bol then

begin

osn_linia(x+x1,y+y1,x+x1,y+y2);

osn_linia(x+x1,y+y2,x+x3,y+y3);

osn_linia(x+x3,y+y3,x+x4,y+y3);

osn_linia(x+x4,y+y3,x+x6,y+y2);

osn_linia(x+x6,y+y2,x+x6,y+y1);

osn_linia(x+x1,y+y9,x+x6,y+y9);

osevaya_linia(x+x1-5,y+y1,x+x1+1000*b_1+5,y+y1);

osevaya_linia(x+x1-5,y+y7,x+x1+1000*b_1+5,Y+y7);

kones_fila;

end;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form3.show ;

form1.Hide;

end;

procedure ris;

label l1,l2;