использует FormsABC;

var first, second, result: RealField;

addButton, subtractButton, multButton, divisionButton: Button; ExitButton: Button;

процедура addNumbers(); // процедура сложения чисел начало

result.Value := first.Value + second.Value; конец;

процедура subtrNumbers(); // процедура вычитания чисел начало

result.Value := first.Value - second.Value; конец;

процедура multNumbers(); // процедура умножения чисел начало

result.Value := first.Value * second.Value; конец;

процедура divNumbers(); // процедура деления чисел начало

result.Value := first.Value / second.Value; конец;

процедура ToExit(); // процедура закрытия окна начало

MainForm.Close(); конец;

MainForm.Title := 'Калькулятор'; MainForm.SetSize(240,260); MainForm.IsFixedSize := true;

first := new RealField('Первое число:', 100); second := new RealField('Второе число:', 100); LineBreak();

начало

// создание кнопок для выполнения арифметических действий:

addButton := new Button('Сложить'); addButton.width := 100;

addButton.Click += addNumbers; subtractButton := new Button('Вычесть'); subtractButton.width := 100; subtractButton.Click += subtrNumbers; LineBreak();

multButton := new Button('Умножить'); multButton.width := 100; multButton.Click += multNumbers;

divisionButton := new Button('Разделить'); divisionButton.width := 100; divisionButton.Click += divNumbers; LineBreak();

result := new RealField('Результат:', 100); EmptyLine(3);

EmptySpace(100);

// создание кнопки 'Выход':

ExitButton := new Button('Выход'); ExitButton.width := 100; ExitButton.Click += ToExit;

Другие предметы Колледж Программирование калькулятор Арифметические операции сложение вычитание умножение деление программирование FormsABC кнопки процедура результат интерфейс Новый