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

Програма-калькулятор є одним з типових завдань з програмування. Такий додаток можна реалізувати практично будь-якою мовою програмування. Одним з найбільш популярних ЯП є Delphi, на якому можна написати простий і ефективний код калькулятора.
Вам знадобиться
  • - середа програмування Delphi
Інструкція
1
Запустіть використовувану вами середу програмування Delphi. Розплануйте інтерфейс вашої програми. На формі буде 26 кнопок, 10 з яких відповідають за цифри, а решта - за функції. Додатково буде присутній компонент TPanel, на якому буде виводитися результат дії.
2
Додайте в код 4 змінних, які будуть зберігати числа, введені користувачем і визначати режим. Наприклад: vara, b, c: real;//Числа, які вводить пользовательd: integer;//Дія калькулятора
3
Створені змінні можете внести як і в protected, так і в private. Тепер до кожної цифрової кнопці обробіть подія OnClick. Для всіх цифр код буде ідентичний: procedure TForm1.Button1Click (Sender: TObject); beginPanel1.Caption: = Panel1.Caption + 'чісло'end; Замініть «число» на назву кнопки (якщо це цифра 0, то Panel1.Caption +' 0 ' ).
4
Змінна d має формат integer і міститиме відповідне числове значення якого-небудь дії. Якщо буде здійснюватися множення, то можна задати дії значення 1, якщо розподіл - значення 2, якщо додавання - значення 3, і т. Д. Для дії множення код буде мати вигляд: procedure TForm1.ButtonMultiplyClick (Sender: TObject);//Дія умноженіяbegina: = StrToFloat (Panel1.Caption);//Після натискання кнопки зберігається значення змінної ad: = 1;//Змінної дії задається відповідне значеніеPanel1.Caption: = ''; end;
5
Зробіть аналогічні операції для ділення (ButtonDivClick), додавання (ButtonPlusClick), віднімання (ButtonMinusClick) і зведення в ступені (ButtonPowerClick).
6
Для обробки значення '' = '' необхідно зробити умова case і по черзі розглядати кожну дію: procedure TForm1.ButtonClick (Sender: TObject); begincase d of1: begin//якщо d = 1, т. Е. Натискається кнопка множення, то відбувається відповідне действіеb: = StrToFloat (Panel1.Caption); c: = a * b; Panel1.Caption: = FloatToStr (c); end; 2: begina: = StrToFloat (Panel1.Caption); c: = a/b; Panel1.Caption: = FloatToStr (c); ...
7
Аналогічним чином обробіть дії додавання, віднімання та зведення в ступінь. Калькулятор готовий.