Програмата на калкулатора е една от типичните задачи за програмиране. Такова приложение може да бъде приложено на почти всеки език за програмиране. Един от най-популярните езици за програмиране е Delphi, който може да се използва за писане на прост и ефективен код на калкулатора.
Необходимо
среда за програмиране на Delphi
Инструкции
Етап 1
Стартирайте средата за програмиране Delphi, която използвате. Планирайте интерфейса за вашето приложение. Във формуляра ще има 26 бутона, 10 от които отговарят за числата, а останалите са за функции. Освен това ще има компонент TPanel, върху който ще се покаже резултатът от действието.
Стъпка 2
Добавете 4 променливи към кода, които ще съхраняват въведените от потребителя числа и ще определят режима. Например:
вар
a, b, c: реално; // числа, които потребителят въвежда
d: цяло число; // действие на калкулатора
Стъпка 3
Създадените променливи могат да се добавят както към защитени, така и към частни. Сега обработете събитието OnClick за всеки цифров бутон. За всички цифри кодът ще бъде идентичен:
процедура TForm1. Button1Click (Изпращач: TObject);
започнете
Panel1. Caption: = Panel1. Caption + 'номер'
край;
Заменете „номер“с името на бутона (ако е номер 0, тогава Panel1. Caption + '0').
Стъпка 4
Променливата d е в целочислен формат и ще съдържа съответната числова стойност на всяко действие. Ако ще се извърши умножение, можете да зададете действието на стойност 1, ако деление - стойност 2, ако добавяне - стойност 3 и т.н. За действието на умножение кодът ще изглежда така:
процедура TForm1. ButtonMultiplyClick (Изпращач: TObject); // умножаване на действие
започнете
a: = StrToFloat (Panel1. Caption); // след натискане на бутона стойността на променливата a се запазва
d: = 1; // променливата за действие е зададена на съответната стойност
Panel1. Caption: = ;
край;
Стъпка 5
Направете подобни операции за разделяне (ButtonDivClick), добавяне (ButtonPlusClick), изваждане (ButtonMinusClick) и степенуване (ButtonPowerClick).
Стъпка 6
За да обработите стойността "=", трябва да направите условие за случай и да разгледате всяко действие на свой ред:
процедура TForm1. ButtonClick (Изпращач: TObject);
започнете
дело г от
1: начало // ако d = 1, т.е. бутонът за умножение е натиснат, тогава се появява съответното действие
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
край;
2: започнете
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
Стъпка 7
Обработвайте добавянето, изваждането и степенуването по същия начин. Калкулаторът е готов.
