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

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

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

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

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

Інструкція

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

    var

    a, b, c: real; / / числа, які вводить користувач

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

    procedure TForm1.Button1Click (Sender: TObject);

    begin

    Panel1.Caption: = Panel1.Caption + ‘число’

    end;

    Замініть «число» на назву кнопки (якщо це цифра 0, то Panel1.Caption + 0 «).
  4. Мінлива d має формат integer і міститиме відповідне числове значення якого-небудь дії. Якщо буде здійснюватися множення, то можна задати дії значення 1, якщо розподіл — значення 2, якщо додавання — значення 3, і т. д. Для дії множення код матиме вигляд:

    procedure TForm1.ButtonMultiplyClick (Sender: TObject); / / дію множення

    begin

    a: = StrToFloat (Panel1.Caption); / / після натискання кнопки зберігається значення змінної a

    d: = 1; / / змінної дії задається відповідне значення

    Panel1.Caption :=»;

    end;
  5. Зробіть аналогічні операції для поділу (ButtonDivClick), складання (ButtonPlusClick), віднімання (ButtonMinusClick) і зведення в ступені (ButtonPowerClick).
  6. Для обробки значення»=» необхідно зробити умова 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);

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