Object); FormCreate (Sender: TObject); FormShow (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction);
{Private declarations}
{Public declarations} ;: TForm3; _dp, RH, y0, h, F, NH0, y_cp, hf ,, ZH_l1, ZH_l2, m, I, G, L_rus, Fh, F_rus, ch ,, D, pH, S, H_e, a0, p_d, omega, torrent, _y, K_p, ZH, TT, H_p, omega_p, P, k, _p_pg, n, F_p, n_c, N_p_0, Pp, Fp: Extended; Main;
{$ R * .dfm} TForm3.sButton1Click (Sender: TObject) ;. Visible:=false; .Visible:=True; .Checked:=True;_rus:=StrToFloat(sEdit10.Text);:=StrToFloat(sEdit11.Text);_rus:=StrToFloat(sEdit12.Text);:=StrToFloat(sEdit13.Text);:=StrToFloat(sEdit14.Text);:=StrToFloat(sEdit15.Text);_cp:=StrToFloat(sEdit16.Text);:=StrToFloat(sEdit17.Text);:=StrToFloat(sEdit18.Text);:=StrToFloat(sEdit10.Text);_l1 :=1/2 * (F_rus*h+L_rus*(ch/y0)-G*(y_cp*hf/m*y0));.text:=floattostr(ZH_l1);.text:=floattostr(ZH_l1);.text:=floattostr(ZH_l1);;TForm3.sButton2Click(Sender: TObject);_l1:=StrToFloat(sEdit1.Text);_l2:=StrToFloat(sEdit2.Text);:=StrToFloat(sEdit3.Text);:=StrToFloat(sEdit4.Text);:=StrToFloat(sEdit5.Text);:=StrToFloat(sEdit6.Text);:=StrToFloat(sEdit7.Text);:=-ZH_l1 + Sqrt (sqr (ZH_l2) + (NH0 * G)/(m * I * y0)) ;. text:=floattostr (b) ;; TForm3.sRadioButton2Click (Sender: TObject) ;. Visible:=false;.Visible:=True ;; TForm3.sRadioButton1Click (Sender: TObject) ;. Visible:=false; .Visible:=True ;; TForm3.FormCreate (Sender: TObject);.Cols[0].LoadFromFile(laquo;TablesTable1_1.txtraquo;);.Cols[2].LoadFromFile(laquo;TablesTable2_2.txtraquo;);.Cols[4].LoadFromFile(laquo;TablesTable3_3.txtraquo;);.Cols[6].LoadFromFile(laquo;TablesTable4_4.txtraquo;);;TForm3.FormShow(Sender: TObject);.Navigate(ExtractFilePath(Application.ExeName)+laquo;Primeri2.mhtraquo;);;TForm3.FormClose(Sender: TObject; var Action: TCloseAction) ;. Show ;;. Calculation3 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ComCtrls, sPageControl, StdCtrls, sButton, sEdit, sLabel, jpeg ,, acImage, OleCtrls, SHDocVw, Grids;=class (TForm): TsPageControl ;: TsTabSheet ;: TsTabSheet ;: TsTabSheet ;: TImage ;: TsImage ;: TLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsButton ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsTabSheet ;: TWebBrowser ;: TsTabSheet ;: TStringGrid ;: TsImage ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel;:TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsButton ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsButton ;: TsButton ;: TsEdit ;: TsEdit ;: TsEdit ;: TsButton ;: TsEdit ;: TsEdit ;: TsEdit ;: TsButton ;: TsEdit ;: TsEdit ;: TsEdit ;: TsButton ;: TsEdit ;: TsEdit ;: TsEdit ;: TsButton ;: TsEdit ;: TsEdit ;: TsEdit ;: TsImage ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel;:TsLabel ;: TsLabel ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsButton; sButton1Click (Sender: TObject); sButton2Click (Sender: TObject); sButton3Click (Sender: TObject); sButton4Click ( Sender: TObject); sButton5Click (Sender: TObject); sButton6Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); sButton7Click (Sender: TObject); sButton8Click (Sender: TObject); sButton9Click (Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm4 ;, ZH, q, P_ru, Qb, alpha, bet, x, b, p_1, q_1, q_2, Qb_1: Extended; Main;
{$ R * .dfm} TForm4.sButton1Click (Sender: TObject); p, ZH, q, P_ru, Qb, alpha, bet, b: Extended;:=StrToFloat (sedit1.text) ;:=(ZH * ZH) /3;.text:=floattostr (p);
{:=Exp (2/3 * (-q/2 + sqrt (Qb));:=Exp (2/3 * (-q/2-sqrt (Qb)) ;: =alpha + bet;:=x - ZH/3;}; TForm4.sButton2Click (Sender: TObject);:=StrToFloat (sedit3.text); _ ru:=StrToFloat (sedit4.text);:=- (ZH * ZH * ZH) /27-P_ru;.text:=floattostr (q) ;; TForm4.sButton3Click (Sender: TObject); _ 1:=strtofloat (sedit6.text); _ 1:=strtofloat (sedit7.text);:=( p_1/3) * (p_1/3) * (p_1/3) + sqr ((q_1/2)) ;. text:=floattostr (Qb) ;; TForm4.sButton4Click (Sender: TObject); _ 2:=StrToFloat ( sedit9.text); _ 1:=StrToFloat (sedit10.text);
//alpha:=Exp (2/3 * (-q/2 + sqrt (Qb)) ;. text:=floattostr (alpha) ;; TForm4.sButton5Click (Sender: TObject);TT,NH,G,m,K_p,y:Extended;:=StrToFloat(sEdit12.Text);:=StrToFloat(sEdit13.Text);:=StrToFloat(sEdit14.Text);_p:=StrToFloat(sEdit15.Text);:=StrToFloat(sEdit16.Text);:= (NH * G)/(m * K_p * y );.Text:=FloatToStr(TT);.Text:=FloatToStr(TT);.Navigate(ExtractFilePath(Application.ExeName)+laquo;Teoria25.mhtr...
