Програма-калькулятор є одним із типових завдань з програмування. Такий додаток можна реалізувати практично будь-якою мовою програмування. Одним з найбільш популярних ЯП є Delphi, на якому можна написати простий і ефективний код калькулятора.
Вам знадобиться
- - середовище програмування Delphi
Інструкція
1. Запустіть середовище програмування Delphi. Розплануйте інтерфейс програми. На формі буде 26 кнопок, 10 з яких відповідають за цифри, а решта - за функції. Додатково буде присутній компонент TPanel, на якому буде виводитися результат дії.
2. Додайте 4 змінні, які будуть зберігати числа, введені користувачем і визначати режим. Наприклад:vara, b, c: real ;//числа, які вводить користувач: 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. Таким чином опрацюйте дії додавання, віднімання та зведення у ступінь. Калькулятор готовий.