Як написати програму-калькулятор

Запустіть використовувану вами середу програмування Delphi. Розплануйте інтерфейс вашої програми. На формі буде 26 кнопок, 10 з яких відповідають за цифри, а решта - за функції. Додатково буде присутній компонент TPanel, на якому буде виводитися результат дії.

Додайте в код 4 змінних, які будуть зберігати числа, введені користувачем і визначати режим. наприклад:

var
a, b, c: real- // числа, які вводить користувач
d: integer- // дію калькулятора

Створені змінні можете внести як і в protected, так і в private. Тепер до кожної цифрової кнопці обробіть подія onclick. Для всіх цифр код буде ідентичний:

procedure TForm1.Button1Click (Sender: TObject);
begin
Panel1.Caption: = Panel1.Caption + `число`
end;

Замініть «число» на назву кнопки (якщо це цифра 0, то Panel1.Caption + `0`).

Мінлива d має формат integer і буде містити відповідне числове значення якої-небудь дії. Якщо буде здійснюватися множення, то можна задати дії значення 1, якщо розподіл - значення 2, якщо додавання - значення 3, і т. Д. Для дії множення код буде мати вигляд:

procedure TForm1.ButtonMultiplyClick (Sender: TObject) - // дію множення
begin
a: = StrToFloat (Panel1.Caption) - // після натискання кнопки зберігається значення змінної a
d: = 1 // змінної дії задається відповідне значення
Panel1.Caption: = ``;
end-

Зробіть аналогічні операції для поділу (ButtonDivClick), додавання (ButtonPlusClick), віднімання (ButtonMinusClick) і зведення в ступені (ButtonPowerClick).

Для обробки значення `` = `` необхідно зробити умова case і по черзі розглядати кожну дію:

procedure TForm1.Buttonclick (Sender: TObject);
begin
case d of
1: begin // якщо d = 1, т. Е. Натискається кнопка множення, то відбувається відповідна дія
b: = StrToFloat (Panel1.Caption);
c: = a * b;
Panel1.Caption: = FloatToStr (c);
end;
2: begin
a: = StrToFloat (Panel1.Caption);
c: = a / b;
Panel1.Caption: = FloatToStr (c);
...

Аналогічним чином обробіть дії додавання, віднімання і зведення в ступінь. Калькулятор готовий.