aquo;);;TForm4.sButton6Click(Sender: TObject);ZH,F_rus,L_rus,ch,he,yq,Gq,y_cp,hf,mq,yqq:extended;_rus:=StrToFloat(sEdit18.Text);:=StrToFloat(sEdit19.Text);_rus:=StrToFloat(sEdit20.Text);:=StrToFloat(sEdit21.Text);:=StrToFloat(sEdit22.Text);:=StrToFloat(sEdit23.Text);_cp:=StrToFloat(sEdit24.Text);:=StrToFloat(sEdit25.Text);:=StrToFloat(sEdit26.Text);:=StrToFloat(sEdit27.Text);:= (F_rus * he) + L_rus*(ch/yq)-Gq*(y_cp*hf/mq*yqq);.Text:=FloatToStr(ZH);.Text:=FloatToStr(ZH);;TForm4.FormClose(Sender: TObject; var Action: TCloseAction) ;. Show ;; TForm4.sButton7Click (Sender: TObject); bet, qw, QQ: Extended;:=StrToFloat (sEdit29.Text);:=StrToFloat (sEdit30.Text);:=Exp (2/3 * (-qw/2-sqrt (QQ))) ;. Text:=FloatToStr (bet) ;; TForm4.sButton8Click (Sender: TObject); xq, alphabet, betta: Extended;:=StrToFloat (sEdit32.Text);:=StrToFloat (sEdit33.Text);:=alphabet + betta; .Text:=FloatToStr (xq) ;; TForm4.sButton9Click (Sender: TObject); bz, xz, ZHz: Extended;:=StrToFloat ( sEdit35.Text);:=StrToFloat (sEdit36.Text);:=xz - ZHz/3; .Text:=FloatToStr (xz) ;; TForm4.FormCreate (Sender: TObject);.Navigate(ExtractFilePath(Application.ExeName)+laquo;Teoria25.mhtraquo;);.Cols[0].LoadFromFile(laquo;TablesTable1.txtraquo;);.Cols[2].LoadFromFile(laquo;TablesTable2.txtraquo;);.Cols[4].LoadFromFile(laquo;TablesTable3.txtraquo;);.Cols[6].LoadFromFile(laquo;TablesTable4.txtraquo;);;.Main;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, sSkinManager, acPNG, ExtCtrls, StdCtrls, sLabel, jpeg, sMemo ,, sBitBtn;=class (TForm): TsSkinManager ;: TImage ;: TImage ;: TImage ;: TImage ;: TImage ;: TsLabel ;: TsLabel ;: TsLabel; _b: TImage; _b: TImage; _b: TImage ;: TImage ;: TButton ;: TsBitBtn ;: TImage ;: TImage ;: TImage ;: TImage ;: TImage;:TImage ;: TImage ;: TImage ;: TImage; TeoriaMouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); CalculationMouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); SettingMouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); AboutMouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); FormMouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); CalculationClick (Sender: TObject); TeoriaClick (Sender: TObject); Button1Click (Sender: TObject); sBitBtn1Click (Sender: TObject); CalculatMouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); Image7MouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer ); CalculatClick (Sender: TObject); Image7Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); SettingClick (Sender: TObject); AboutClick (Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1; Calculation, Teoria, Unit11, note, zastavka, setting, about;
{$ R * .dfm} TForm1.TeoriaMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer);.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;;TForm1.CalculationMouseMove(Sender: TObject; Shift: TShiftState ;, Y: Integer);.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;;TForm1.SettingMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);.Visible:=False;.Visible:=True;.Visible:=False;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=False;.Visible:=False;;TForm1.AboutMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;;TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;;TForm1.CalculationClick(Sender: TObject) ;. show; .Hide ;; TForm1.TeoriaClick (Sender: TObject) ;;. Show ;; TForm1.Button1Click (Sender: TObject) ;. show ;; TForm1.sBitBtn1Click (Sender: TObject);.smemo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+laquo;Teorianote.txtraquo;);.showmodal;;TForm1.CalculatMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;;TForm1.Image7MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;;TForm1.CalculatClick(Sender: TObject) ;. show ;; TForm1.Image7Click (Sender: TObject);....
