Kalkulaatoriprogramm on üks tüüpilisi programmeerimisülesandeid. Sellist rakendust saab rakendada peaaegu igas programmeerimiskeeles. Üks populaarsemaid programmeerimiskeeli on Delphi, mille abil saab kirjutada lihtsat ja tõhusat kalkulaatori koodi.
Vajalik
Delphi programmeerimiskeskkond
Juhised
Samm 1
Käivitage kasutatav Delphi programmeerimiskeskkond. Planeerige oma rakenduse liides. Vormil on 26 nuppu, millest 10 vastutavad numbrite ja ülejäänud funktsioonide eest. Lisaks on TPaneli komponent, millel kuvatakse toimingu tulemus.
2. samm
Lisage koodile 4 muutujat, mis salvestavad kasutaja sisestatud numbrid ja määrab režiimi. Näiteks:
var
a, b, c: tegelik; // numbrid, mille kasutaja sisestab
d: täisarv; // kalkulaatori toiming
3. samm
Loodud muutujaid saab lisada nii kaitstud kui ka privaatsetesse. Nüüd käsitsege OnClicki sündmust iga numbrinupu jaoks. Kõigi numbrite puhul on kood identne:
protseduur TForm1. Button1Click (saatja: TObject);
algama
Panel1. Caption: = Panel1. Caption + 'number'
lõpp;
Asendage "number" nupu nimega (kui see on number 0, siis paneel1. Caption + '0').
4. samm
Muutuja d on täisarvuvormingus ja sisaldab mis tahes toimingu vastavat arvväärtust. Kui korrutamine viiakse läbi, saate tegevuse määrata väärtuseks 1, kui jagamine - väärtus 2, kui liitmine - väärtus 3 jne. Korrutamistoimingu jaoks näeb kood välja:
protseduur TForm1. ButtonMultiplyClick (saatja: TObject); // korruta tegevus
algama
a: = StrToFloat (paneeli 1. pealkiri); // pärast nupu vajutamist salvestatakse muutuja a väärtus
d: = 1; // tegevusmuutujale määratakse vastav väärtus
Paneel1. Pealkiri: = ;
lõpp;
5. samm
Tehke sarnased toimingud jagamiseks (ButtonDivClick), liitmiseks (ButtonPlusClick), lahutamiseks (ButtonMinusClick) ja eksponentsiks (ButtonPowerClick).
6. samm
Väärtuse "=" töötlemiseks peate määrama juhtumi tingimuse ja kaaluma iga toimingut omakorda:
protseduur TForm1. ButtonClick (saatja: TObject);
algama
juhtum d
1: algab // kui d = 1, st vajutatakse korrutamisnuppu, toimub vastav toiming
b: = StrToFloat (paneel1. Pealkiri);
c: = a * b;
Paneel1. Pealkiri: = FloatToStr (c);
lõpp;
2: alusta
a: = StrToFloat (paneeli 1. pealkiri);
c: = a / b;
Paneel1. Pealkiri: = FloatToStr (c);
7. samm
Samamoodi käsitsege liitmist, lahutamist ja eksponentimist. Kalkulaator on valmis.
