Реферат Розрахунок напруг труб

ПРОГРАМИ

Додаток A

Розрахунок максимального прогину

unit Unit1;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls;

= class (TForm): TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TBevel;: TButton; Button1Click (Sender: TObject);

{Private declarations}

{Public declarations};

: TForm1;

{$ R *. dfm}

TForm1.Button1Click (Sender:

end.

Додаток B

Розрахунок напруги композитного і ізотропного матеріалів

unit Unit1;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, StdCtrls, math;

= class (TForm): TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TRadioButton;: TRadioButton;: TButton;: TEdit;: TLabel;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TBevel; Button1Click (Sender: TObject); compozit: real; izotrop: real; koord;

{Private declarations}

{Public declarations};

: TForm1;

p, dl, Db, a, s1, s2, s3, S: real;, sty: integer;

{$ R *. dfm} TForm1.izotrop: real;

// для ізотропних матеріалів: = sqrt (1/2 * (sqr (s1-s2) + sqr (s2-s3) + sqr (s3-s1)));;

TForm1.compozit: real; x, y, z, q, s01, s02, s03, bet, lam1: real;

TForm1.Button1Click (Sender: dop <= smk/sqrt (3) do: = p * (1 + a * a)/(1-a * a);: = p * a * a/(1-a * a);: =-p ;

// рахуємо до p <= smk/sqrt (3) RB1.Checked then S: = izotrops: = compozit;. Text: = floattostr (s); fr then (405 + round (s * stx), 190-round (p * sty));: = false; (405 + round (s * stx), 190-round (p * sty));: = p +0.0001;

// sleep (1);;;

p <= smk/sqrt (3) do: = p * (1 + a * a)/(1-a * a);: = p * a * a/(1-a * a);: =-p;

// рахуємо до p <= smk/sqrt (3) RB1.Checked then S: = izotrops: = compozit; s> max then: = s; s

. Canvas.FillRect (Rect (330, 0, ClientWidth, ClientHeight)); form1.Canvas do (410, 200); LineTo (410, 20);// вісь y (400, 190 ); LineTo (610, 190);// вісь х: = 30; (380, i-30, 'p');: = smk/sqrt (3);: = round (40/((smk/sqrt ( 3))/4)); i <= 190 do// ділення по у (380, i-16, FloatToStrF (j, ffNumber, 3,2));

MoveTo (405, i); LineTo (415, i);: = j-(smk/sqrt (3))/4;: = i +40;

end;: = 410;: = 0...