unit TeoriyaVer; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtnrs, StdCtrls; type TForm4 = class(TForm) OleContainer1: TOleContainer; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure Edit2KeyPress(Sender: TObject; var Key: Char); private { Private declarations } public { Public declarations } end; var Form4: TForm4; implementation {$R *.dfm} procedure TForm4.Button1Click(Sender: TObject); var m,n: integer; v: extended; begin if (edit1.Text='') and (edit2.text='') then begin MessageBeep(MB_ICONHAND); ShowMessage('Не заданы значения!'); end else begin m:=StrToInt(edit1.Text); n:=StrToInt(edit2.Text); Edit3.Text:=''; if n=0 then begin MessageBeep(MB_ICONHAND); ShowMessage('На ноль делить нельзя!'); end else begin v:=m/n; edit3.Text:=FloatToStrF(v,ffGeneral,10,6); end; end; end; procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9','+','-']) then key:=#0; end; procedure TForm4.Edit2KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9','+','-']) then key:=#0; end; end.