Programul calculatorului este una dintre sarcinile tipice de programare. O astfel de aplicație poate fi implementată în aproape orice limbaj de programare. Unul dintre cele mai populare limbaje de programare este Delphi, care poate fi folosit pentru a scrie cod de calculator simplu și eficient.
Necesar
Mediul de programare Delphi
Instrucțiuni
Pasul 1
Porniți mediul de programare Delphi pe care îl utilizați. Planificați interfața pentru aplicația dvs. Vor fi 26 de butoane pe formular, dintre care 10 sunt responsabile pentru numere, iar restul sunt pentru funcții. În plus, va exista o componentă TPanel pe care va fi afișat rezultatul acțiunii.
Pasul 2
Adăugați 4 variabile la cod care vor stoca numerele introduse de utilizator și determinați modul. De exemplu:
var
a, b, c: real; // numerele pe care le introduce utilizatorul
d: întreg; // acțiunea calculatorului
Pasul 3
Variabilele create pot fi adăugate atât la cele protejate, cât și la cele private. Acum gestionați evenimentul OnClick pentru fiecare buton numeric. Pentru toate cifrele, codul va fi identic:
procedura TForm1. Button1Click (Expeditor: TObject);
începe
Panel1. Caption: = Panel1. Caption + „număr”
Sfârșit;
Înlocuiți „numărul” cu numele butonului (dacă este numărul 0, apoi Panel1. Caption + '0').
Pasul 4
Variabila d este în format întreg și va conține valoarea numerică corespunzătoare a oricărei acțiuni. Dacă se va efectua multiplicarea, atunci puteți seta acțiunea la valoarea 1, dacă diviziunea - valoarea 2, dacă adunarea - valoarea 3 etc. Pentru acțiunea de multiplicare, codul va arăta astfel:
procedura TForm1. ButtonMultiplyClick (Expeditor: TObject); // multiplicați acțiunea
începe
a: = StrToFloat (Panel1. Caption); // după apăsarea butonului, se salvează valoarea variabilei a
d: = 1; // variabila de acțiune este setată la valoarea corespunzătoare
Panel 1. Caption: = ;
Sfârșit;
Pasul 5
Efectuați operațiuni similare pentru divizare (ButtonDivClick), adunare (ButtonPlusClick), scădere (ButtonMinusClick) și exponențiere (ButtonPowerClick).
Pasul 6
Pentru a procesa valoarea „=”, trebuie să creați o condiție de caz și să luați în considerare fiecare acțiune la rândul său:
procedura TForm1. ButtonClick (Expeditor: TObject);
începe
caz d de
1: începe // dacă d = 1, adică butonul de multiplicare este apăsat, atunci are loc acțiunea corespunzătoare
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
Sfârșit;
2: începe
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
Pasul 7
Manevrați adunarea, scăderea și exponențierea în același mod. Calculatorul este gata.
