Laskinohjelma on yksi tyypillisistä ohjelmointitehtävistä. Tällainen sovellus voidaan toteuttaa melkein millä tahansa ohjelmointikielellä. Yksi suosituimmista ohjelmointikielistä on Delphi, jolla voidaan kirjoittaa yksinkertainen ja tehokas laskinkoodi.
Tarpeellinen
Delphi-ohjelmointiympäristö
Ohjeet
Vaihe 1
Käynnistä käyttämäsi Delphi-ohjelmointiympäristö. Suunnittele käyttöliittymä sovelluksellesi. Lomakkeessa on 26 painiketta, joista 10 vastaa numeroista ja loput toiminnoista. Lisäksi tulee olemaan TPanel-komponentti, jolla toiminnan tulos näytetään.
Vaihe 2
Lisää 4 muuttujaa koodiin, joka tallentaa käyttäjän kirjoittamat numerot ja määrittää tilan. Esimerkiksi:
var
a, b, c: todellinen; // käyttäjän syöttämät numerot
d: kokonaisluku; // laskimen toiminto
Vaihe 3
Luotut muuttujat voidaan lisätä sekä suojattuihin että yksityisiin. Käsittele nyt jokaisen numeropainikkeen OnClick-tapahtuma. Kaikkien numeroiden koodi on sama:
menettely TForm1. Button1Click (Lähettäjä: TObject);
alkaa
Panel1. Caption: = Panel1. Caption + 'numero'
loppu;
Korvaa "numero" painikkeen nimellä (jos se on numero 0, sitten Panel1. Caption + '0').
Vaihe 4
Muuttuja d on kokonaislukumuodossa ja sisältää minkä tahansa toiminnon vastaavan numeerisen arvon. Jos suoritetaan kertolasku, voit asettaa toiminnon arvoksi 1, jos jako - arvo 2, jos lisäys - arvo 3 jne. Kertotoiminnolle koodi näyttää:
menettely TForm1. ButtonMultiplyClick (Lähettäjä: TObject); // moninkertaistaa toiminta
alkaa
a: = StrToFloat (Panel1. Caption); // painikkeen painamisen jälkeen muuttujan a arvo tallennetaan
d: = 1; // toimintamuuttuja asetetaan vastaavaan arvoon
Panel1. Caption: = '';
loppu;
Vaihe 5
Tee samanlaisia toimintoja jakoon (ButtonDivClick), lisäykseen (ButtonPlusClick), vähennykseen (ButtonMinusClick) ja eksponentointiin (ButtonPowerClick).
Vaihe 6
Arvon `` = '' käsittelemiseksi sinun on tehtävä tapausehto ja tarkasteltava kutakin toimintoa vuorotellen:
menettely TForm1. ButtonClick (Lähettäjä: TObject);
alkaa
tapaus d
1: alkaa // jos d = 1, ts. Painetaan kertoimispainiketta, vastaava toiminto tapahtuu
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
loppu;
2: Aloita
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
Vaihe 7
Käsittele yhteenlasku, vähennyslasku ja eksponentti samalla tavalla. Laskin on valmis.
