Kalkulatorprogrammet er en av de typiske programmeringsoppgavene. En slik applikasjon kan implementeres på nesten alle programmeringsspråk. Et av de mest populære programmeringsspråkene er Delphi, som kan brukes til å skrive enkel og effektiv kalkulatorkode.
Nødvendig
Delphi programmeringsmiljø
Bruksanvisning
Trinn 1
Start Delphi-programmeringsmiljøet du bruker. Planlegg grensesnittet for applikasjonen din. Det vil være 26 knapper på skjemaet, hvorav 10 er ansvarlige for tall, og resten er for funksjoner. I tillegg vil det være en TPanel-komponent som resultatet av handlingen vises på.
Steg 2
Legg til 4 variabler i koden som vil lagre tallene som er angitt av brukeren og bestemme modusen. For eksempel:
var
a, b, c: ekte; // tall som brukeren skriver inn
d: heltall; // kalkulatorhandling
Trinn 3
De opprettede variablene kan legges til både beskyttede og private. Nå håndter OnClick-hendelsen for hver tallknapp. For alle sifre vil koden være identisk:
prosedyre TForm1. Button1Klikk (Avsender: TObject);
begynne
Panel1. Caption: = Panel1. Caption + 'nummer'
slutt;
Bytt ut "nummer" med knappens navn (hvis det er nummer 0, så Panel1. Caption + '0').
Trinn 4
Variabelen d er i heltallformat og inneholder den tilsvarende numeriske verdien for enhver handling. Hvis multiplikasjon vil bli utført, kan du sette handlingen til verdi 1, hvis divisjon - verdi 2, hvis tillegg - verdi 3 osv. For multiplikasjonshandlingen vil koden se ut som:
prosedyre TForm1. ButtonMultiplyClick (Sender: TObject); // multipliser handling
begynne
a: = StrToFloat (Panel1. Caption); // etter å ha trykket på knappen lagres verdien til variabelen a
d: = 1; // handlingsvariabelen er satt til den tilsvarende verdien
Panel1. Caption: = '';
slutt;
Trinn 5
Gjør lignende operasjoner for divisjon (ButtonDivClick), tillegg (ButtonPlusClick), subtraksjon (ButtonMinusClick) og eksponentiering (ButtonPowerClick).
Trinn 6
For å behandle verdien `` = '', må du gjøre en saksforhold og vurdere hver handling etter tur:
prosedyre TForm1. ButtonClick (Avsender: TObject);
begynne
sak d av
1: begynn // hvis d = 1, dvs. multiplikasjonsknappen trykkes, oppstår tilsvarende handling
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
slutt;
2: begynn
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
Trinn 7
Håndter addisjon, subtraksjon og eksponentiering på samme måte. Kalkulatoren er klar.
