? ЯК написати програму-калькулятор :: ПЗ

Програма-калькулятор є одним з типових завдань з програмування. Таке додаток можна реалізувати практично на будь-якій мові програмування. Одним з найбільш популярних ЯП є Delphi, на якому можна написати простий і ефективний код калькулятора.

Вам знадобиться

- середовище програмування Delphi

Інструкція

Запустіть використовувану вами середовище програмування 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) -
...

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