A számológép-program az egyik tipikus programozási feladat. Egy ilyen alkalmazás szinte bármilyen programozási nyelven megvalósítható. Az egyik legnépszerűbb programozási nyelv a Delphi, amellyel egyszerű és hatékony számológép kódot lehet írni.
Szükséges
Delphi programozási környezet
Utasítás
1. lépés
Indítsa el a használt Delphi programozási környezetet. Tervezze meg az alkalmazás felületét. Az űrlapon 26 gomb lesz, amelyek közül 10 a számokért felel, a többi pedig a funkciókért. Ezenkívül lesz egy TPanel komponens, amelyen a művelet eredménye megjelenik.
2. lépés
Adjon hozzá 4 változót a kódhoz, amely tárolja a felhasználó által beírt számokat és meghatározza az üzemmódot. Például:
var
a, b, c: valós; // a felhasználó által beírt számok
d: egész szám; // számológép művelet
3. lépés
A létrehozott változók hozzáadhatók mind védett, mind privát változathoz. Most kezelje az egyes számgombok OnClick eseményét. Minden számjegy esetében a kód megegyezik:
eljárás TForm1. Button1Click (Feladó: TObject);
kezdődik
Panel1. Caption: = Panel1. Caption + 'szám'
vége;
Cserélje ki a „szám” pontot a gomb nevére (ha az 0, akkor a Panel1. Caption + '0').
4. lépés
A d változó egész formátumú, és minden művelet megfelelő számértékét tartalmazza. Ha szorzást hajtanak végre, akkor beállíthatja a műveletet 1 értékre, ha osztás - 2, ha összeadás - 3, stb. A szorzási művelethez a kód a következőképpen fog kinézni:
TForm1. ButtonMultiplyClick (Sender: TObject) eljárás; // multiplice action
kezdődik
a: = StrToFloat (Panel1. Caption); // a gomb megnyomása után az a változó értéke elmentésre kerül
d: = 1; // a cselekvési változó a megfelelő értékre van állítva
Panel1. Caption: = ;
vége;
5. lépés
Hajtson végre hasonló műveleteket az osztáshoz (ButtonDivClick), az összeadáshoz (ButtonPlusClick), a kivonáshoz (ButtonMinusClick) és az exponáláshoz (ButtonPowerClick).
6. lépés
A "=" érték feldolgozásához meg kell adnia egy esetfeltételt, és sorra kell vizsgálnia az egyes műveleteket:
TForm1. ButtonClick (Sender: TObject) eljárás;
kezdődik
d esete
1: kezdődik // ha d = 1, azaz a szorzó gombot megnyomják, akkor a megfelelő művelet megtörténik
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
vége;
2: kezdődik
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
7. lépés
Az összeadást, kivonást és hatványozást ugyanúgy kezelje. A számológép készen áll.
