Проектирование калькулятора в среде Delphi. Семенов Н.М. - 10 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

10
11 - я строка преобразует полученные в 10 - й строке результат сложения
обратно в строковое представление, присваивая его переменной ResultStr.
Наконец, 12-я строка заставляет окно редактирования Result отображать
строковое представление суммы двух операндов, присваивая значение ResultStr
свойству Text компонента EditResult.
1.2.2 Поддержка вычитания и умножения
Обработчик события - нажатия кнопки минуса - очень похож на тот, что Вы
разработали для кнопки плюса. Единственное отличие - арифметическая операция:
вместо операции сложения используется операция вычитания.
Дважды нажмите на BtnSubtract в окне дизайнера формы.
Delphi снова создаст заданный по умолчанию обработчик события для этой
кнопки. Сгенерированный блок программы выглядит следующим образом:
procedure TForm1.BtnSubtractClick(Sender: TObject);
begin
end;
Как и прежде, введите текст подпрограммы BtnSubtractClick следующим
образом (но без промежуточных переменных):
procedure TForm1.BtnSubtractClick(Sender: TObject);
begin
EditResult.Text:=
IntToStr(StrToInt(EditOperand1.Text)-
StrToInt(EditOperand2.Text));
end;
Аналогично введите текст для обработчика события BtnMultiplyClick.
1.2.3 Поддержка деления
Предполагается, что Ваш калькулятор поддерживает два вида деления:
целочисленное деление, оперирующее только с целыми числами, и деление с
вещественным результатом.
Программа для целочисленного деления повторяет шаги, которые Вы делали
при поддержке сложения, вычитания и умножения. Только здесь используется
операция целочисленного деления div.
Заодно попробуйте создать программы поддержки деления по модулю (mod),
т.е. получения остатка от деления первого операнда на второй:
procedure TForm1.BtnModClick(Sender: TObject);
begin
EditResult.Text:=
IntToStr(StrToInt(EditOperand1.Text) mod

Страницы