МАРК РЕГНЕРУС ДОСЛІДЖЕННЯ: Наскільки відрізняються діти, які виросли в одностатевих союзах
РЕЗОЛЮЦІЯ: Громадського обговорення навчальної програми статевого виховання ЧОМУ ФОНД ОЛЕНИ ПІНЧУК І МОЗ УКРАЇНИ ПРОПАГУЮТЬ "СЕКСУАЛЬНІ УРОКИ" ЕКЗИСТЕНЦІЙНО-ПСИХОЛОГІЧНІ ОСНОВИ ПОРУШЕННЯ СТАТЕВОЇ ІДЕНТИЧНОСТІ ПІДЛІТКІВ Батьківський, громадянський рух в Україні закликає МОН зупинити тотальну сексуалізацію дітей і підлітків Відкрите звернення Міністру освіти й науки України - Гриневич Лілії Михайлівні Представництво українського жіноцтва в ООН: низький рівень культури спілкування в соціальних мережах Гендерна антидискримінаційна експертиза може зробити нас моральними рабами ЛІВИЙ МАРКСИЗМ У НОВИХ ПІДРУЧНИКАХ ДЛЯ ШКОЛЯРІВ ВІДКРИТА ЗАЯВА на підтримку позиції Ганни Турчинової та права кожної людини на свободу думки, світогляду та вираження поглядів Контакти
Тлумачний словник |
|
|||||||
interfaceUses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; Type TForm1 = class(TForm) EditOperand1: TEdit; EditOperand2: TEdit; EditResult: TEdit; OperatorLabel: TLabel; ResultLabel: TLabel; BtnAdd: TButton; Panel1: TPanel; BtnMinus: TButton; Button4: TButton; Button5: TButton; BtnClose: TButton; Button1: TButton; procedure BtnAddClick(Sender: TObject); procedure BtnMinusClickk(Sender: TObject); procedure BtnDivedeClick(Sender: TObject); procedure BtnClearClick(Sender: TObject); procedure BtnCloseClick(Sender: TObject); procedure BtnMultClick(Sender: TObject); procedure Operand1keyPress(Sender: TObject; var Key: Char); Private { Private declarations } Public { Public declarations } end; Var Form1: TForm1; Implementation {$R *.DFM} procedure TForm1.BtnAddClick(Sender: TObject); Begin EditResult.Text:= IntToStr(StrToInt(EditOperand1.Text)+ StrToInt(EditOperand2.Text)); OperatorLabel.Caption:='+'; ResultLabel.Caption :='='; EditOperand1.SetFocus; end; procedure TForm1.BtnMinusClickk(Sender: TObject); Begin EditResult.Text:= IntToStr(StrToInt(EditOperand1.Text)- StrToInt(EditOperand2.Text)); OperatorLabel.Caption:='-'; ResultLabel.Caption :='='; EditOperand1.SetFocus; end; procedure TForm1.BtnDivedeClick(Sender: TObject); Begin EditResult.Text:= FloatToStr(StrToFloat(EditOperand1.Text)/ StrToFloat(EditOperand2.Text)); OperatorLabel.Caption:='/'; ResultLabel.Caption :='='; EditOperand1.SetFocus; end; procedure TForm1.BtnClearClick(Sender: TObject); Begin EditOperand1.Text :='' ; EditOperand2.Text :='' ; EditResult.Text :='' ; OperatorLabel.Caption:='?'; ResultLabel.Caption :='?'; EditOperand1.SetFocus; end; procedure TForm1.BtnCloseClick(Sender: TObject); Begin Close; end; procedure TForm1.BtnMultClick(Sender: TObject); Begin EditResult.Text:= IntToStr(StrToInt(EditOperand1.Text)* StrToInt(EditOperand2.Text)); OperatorLabel.Caption:='*'; ResultLabel.Caption :='='; EditOperand1.SetFocus; end; procedure TForm1.Operand1keyPress(Sender: TObject; var Key: Char); Begin Case Key of '0'..'9', '-', chr(8): ; chr(13) : EditOperand2.SetFocus; Else key:=chr(0); end; end; End.
|
||||||||
|