Label ;: TsLabel ;: TsLabel ;: TStringGrid ;: TWebBrowser; sButton1Click (Sender: TObject); sRadioButton1Click (Sender: TObject); sRadioButton2Click (Sender: TObject); sButton2Click (Sender: TObject); sButton3Click (Sender: TObject); sButton4Click (Sender: TObject); sRadioButton5Click (Sender: TObject); sRadioButton3Click (Sender: TObject); sButton5Click (Sender: TObject); sRadioButton6Click (Sender: TObject); sButton6Click (Sender: TObject); sRadioButton4Click (Sender: TObject); FormClose ( Sender: TObject; var Action: TCloseAction);
{Private declarations}
{Public declarations} ;: TForm5; p_dp, RH, y, h, y0, y0h, h1, F, NH0, y_cp, hf ,, ZH_l, m, I, G, L_rus, Fh , F_rus, ch ,, D, pH, S, H_e, a0, p_d, omega, torrent, torrent1, _y, K_p, ZH, TT, H_p, omega_p, P, k, _p_pg, n, F_p, n_c, N_p_0, aa, Pp, Fp, Rpd, df, He, ao, pd, N_n, l, R_n, h_f, by, N_n_o, N_n1: Extended; Main;
{$ R * .dfm} TForm5.sButton1Click (Sender: TObject); p_dp, RH, y, h, y0, y0h, h1, F, NH0, y_cp, hf ,, ZH_l, m , I, G, L_rus, Fh, F_rus, ch ,, D, pH, S, H_e, a0, p_d, omega, torrent, torrent1, _y, K_p, ZH, TT, H_p, omega_p, P, k, _p_pg, n, F_p, n_c, N_p_0, Pp, Fp,Rpd,df,He,ao,pd:Extended;.Visible:=False;.Visible:=True;.Checked:=True;:=StrToFloat(sEdit1.Text);:=StrToFloat(sEdit2.Text);:= StrToFloat(sEdit3.Text);:=(RH-y)*h;.text:=floattostr(Rpd);.text:=FloatToStr(Rpd);.Navigate(ExtractFilePath(Application.ExeName)+laquo;Teoria37.mhtraquo;);;TForm5.sRadioButton1Click(Sender: TObject);.Visible:=true;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;;TForm5.sRadioButton2Click(Sender: TObject);.Visible:=False;.Visible:=true;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;;TForm5.sButton2Click(Sender: TObject);.Visible:=false;.Visible:=True;.Checked:=True;_e:=StrToFloat(sEdit5.text);:=StrToFloat(sEdit6.text);_d:=StrToFloat(sEdit7.text);:= H_e * (aa * p_d) ;. Text:=FloatToStr (S) ;; TForm5.sButton3Click (Sender: TObject);.Visible:=false;.Checked:=True;:=StrToFloat(sEdit9.text);_p:=StrToFloat(sEdit10.text);_y:=StrToFloat(sEdit7.text);_p :=2 * A * omega_p * b_y; .Text:=FloatToStr (H_p) ;; TForm5.sButton4Click (Sender: TObject) ;. Visible:=false; .Checked:=True;:=StrToFloat (sEdit13.text); :=StrToFloat (sEdit14.text);:=sqr (1 - torrent)/(1 - 2 * torrent1) ;. Text:=FloatToStr (A) ;; TForm5.sRadioButton5Click (Sender: TObject);.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=true;.Visible:=False;;TForm5.sRadioButton3Click(Sender: TObject);.Visible:=False;.Visible:=False;.Visible:=true;.Visible:=False;.Visible:=False;.Visible:=False;;TForm5.sButton5Click(Sender: TObject);.Visible:=false;.Checked:=True;_n:=StrToFloat(sEdit16.text);:=StrToFloat(sEdit17.text);_n:=StrToFloat(sEdit18.text);_cp:=StrToFloat(sEdit19.text);_f:=StrToFloat(sEdit20.text);:= N_n/(l * (R_n - Y_cp) * h_f) ;. Text:=FloatToStr (by) ;; TForm5.sRadioButton6Click (Sender: TObject);.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=true;;TForm5.sButton6Click(Sender: TObject);.Visible:=false;.Checked:=True;_n1:=StrToFloat(sEdit22.text);_p:=StrToFloat(sEdit23.text);_n:=StrToFloat(sEdit24.text);_cp:=StrToFloat(sEdit25.text);_f:=StrToFloat(sEdit26.text);:=Sqrt(N_n1)/(K_p*(R_n- Y_cp * h_f)) ;. Text:=FloatToStr (by) ;; TForm5.sRadioButton4Click (Sender: TObject) ;. Visible:=False;.Visible:=False;.Visible:=False;.Visible:=true;.Visible:=False;.Visible:=False;;TForm5.FormClose(Sender: TObject; var Action: TCloseAction) ;. show ;;.
unit Unit6 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, sLabel, sEdit, sButton, ComCtrls, sPageControl, jpeg,;=class (TForm): TsPageControl;:TsTabSheet ;: TsButton ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsTabSheet ;: TsButton ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsTabSheet ;: TsButton ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TImage ;: TsEdit ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel; sButton1Click (Sender: TObject); sButton2Click (Sender: TObject); sButton3Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction);
{Private declarations}
{Public declarations} ;: TForm6; P, qqq, P2, mb, Rpr, F, Rac, Fa, r, m, Rn, RH, F_1, P_1, k, k_1, m_1, R_n, F_2, u, ji, fhi, P1: Extended; Main;
{$ R * .dfm} TForm6.sButton1Click (Sender: TObject);:=strtofloat(sEdit1.text);:=StrToFloat(sEdit20.Text);:=strtofloat(sEdit2.text);:=strtofloat(sEdit3.text);:=strtofloat(sEdit4.text);:=strtofloat(sEdit5.text);:= mb * qqq * Rpr * F + Rac * Fa; .text:=fl...
