oattostr (P2) ;; TForm6.sButton2Click (Sender: TObject);:=strtofloat(sEdit7.text);:=strtofloat(sEdit8.text);:=strtofloat(sEdit9.text);_1:=strtofloat(sEdit10.text);_1 :=K * m * Rn * F_1; .Text:=FloatToStr (P_1) ;; TForm6.sButton3Click (Sender: TObject);_1:=strtofloat(sEdit12.text);_1:=strtofloat(sEdit13.text);_n:=strtofloat(sEdit14.text);_2:=strtofloat(sEdit15.text);:=strtofloat(sEdit16.text);:=strtofloat(sEdit17.text);:=strtofloat(sEdit18.text);:= k_1 * m_1 * (R_n * F_2 + u * fhi * ji); .text:=floattostr (P1) ;; TForm6.FormClose (Sender: TObject; var Action: TCloseAction) ;. Show ;;. Unit7 ;, Messages, SysUtils , Variants, Classes, Graphics, Controls, Forms ,, XPMan, Menus, StdCtrls, ExtCtrls, Buttons, jpeg;=class (TForm): TImage ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton;:TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton ;: TSpeedButton;:TSpeedButton ;: TSpeedButton ;: TPanel ;: TRadioButton ;: TRadioButton ;: TRadioButton ;: TRadioButton ;: TPanel ;: TRadioButton ;: TRadioButton ;: TRadioButton ;: TRadioButton ;: TRadioButton ;: TRadioButton ;: TRadioButton ;: TMemo ;: TPanel ;: TPanel ;: TPanel ;: TCheckBox ;: TCheckBox ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TXPManifest; SpeedButton23Click (Sender: TObject); SpeedButton13Click (Sender: TObject); SpeedButton14Click (Sender: TObject); SpeedButton15Click (Sender: TObject); SpeedButton11Click (Sender: TObject); SpeedButton12Click (Sender: TObject); SpeedButton5Click (Sender: TObject); SpeedButton1Click (Sender: TObject ); SpeedButton2Click (Sender: TObject); SpeedButton3Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm11;
{$ R * .dfm} TForm11.SpeedButton23Click (Sender: TObject); (glob_check=true) then memo1.Text:= raquo ;;. Text:=memo1.Text + 0 raquo ;; _ check:=false; meraisch=10 then (strtofloat (memo1.Text)=0) then.Text:= 0 raquo ;; _ check:=true ;;;; TForm11.SpeedButton13Click (Sender: TObject); ( glob_check=true) then memo1.Text:=laquo;raquo;;.Text:=memo1.Text+laquo;1raquo;;_check:=false;;TForm11.SpeedButton14Click(Sender: TObject); (glob_check=true) then memo1.Text:=laquo;raquo;;.Text:=memo1.Text+laquo;2raquo;;_check:=false;;TForm11.SpeedButton15Click(Sender: TObject); (glob_check=true) then memo1.Text:=laquo;raquo;;.Text:=memo1.Text+laquo;3raquo;;_check:=false;;TForm11.SpeedButton11Click(Sender: TObject); (glob_check=true) then memo1.Text:=laquo;raquo;;.Text:=memo1.Text+laquo;4raquo;;_check:=false;;TForm11.SpeedButton12Click(Sender: TObject); (glob_check=true) then memo1.Text:=laquo;raquo;;.Text:=memo1.Text+laquo;5raquo;;_check:=false;;TForm11.SpeedButton5Click(Sender: TObject); (glob_check=true) then memo1.Text:=laquo;raquo;;.Text:=memo1.Text+laquo;6raquo;;_check:=false;;TForm11.SpeedButton1Click(Sender: TObject); (glob_check=true) then memo1.Text:=laquo;raquo;;.Text:=memo1.Text+laquo;7raquo;;_check:=false;;TForm11.SpeedButton2Click(Sender: TObject); (glob_check=true) then memo1.Text:=laquo;raquo;;.Text:=memo1.Text+laquo;8raquo;;_check:=false;;TForm11.SpeedButton3Click(Sender: TObject); (glob_check=true) then memo1.Text:= raquo ;;. Text:=memo1.Text + 9 raquo ;; _ check:=false ;;. Unit8 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ComCtrls, sPageControl, StdCtrls, sButton, sEdit, sLabel,;=class (TForm): TsPageControl ;: TsTabSheet ;: TsTabSheet ;: TsTabSheet ;: TsButton ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsButton ;: TsEdit ;: TsLabel ;: TsRadioButton;:TsRadioButton ;: TsRadioButton ;: TsButton ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel ;: TsButton ;: TsEdit ;: TsEdit ;: TsEdit ;: TsEdit ;: TsLabel ;: TsLabel ;: TsLabel ;: TsLabel; sButton1Click (Sender: TObject); sButton2Click (Sender: TObject); sRadioButton1Click (Sender: TObject); sRadioButton2Click (Sender: TObject); sButton3Click (Sender: TObject) ; sButton4Click (Sender: TObject); ...
