תוכנית המחשבון היא אחת ממשימות התכנות האופייניות. יישום כזה יכול להיות מיושם כמעט בכל שפת תכנות. אחת משפות התכנות הפופולריות ביותר היא Delphi, בה ניתן להשתמש כדי לכתוב קוד מחשבון פשוט ויעיל.
נחוץ
סביבת תכנות של דלפי
הוראות
שלב 1
התחל את סביבת התכנות של דלפי בה אתה משתמש. תכנן את הממשק ליישום שלך. בטופס יהיו 26 כפתורים, 10 מהם אחראים למספרים והשאר הם לפונקציות. בנוסף, יהיה רכיב TPanel עליו תוצג תוצאת הפעולה.
שלב 2
הוסף 4 משתנים לקוד שיאחסן את המספרים שהזין המשתמש ויקבע את המצב. לדוגמה:
var
a, b, c: אמיתי; // מספרים שהמשתמש מזין
d: מספר שלם; // פעולת מחשבון
שלב 3
ניתן להוסיף את המשתנים שנוצרו גם מוגנים וגם פרטיים. כעת טפל באירוע OnClick עבור כל כפתור מספר. עבור כל הספרות, הקוד יהיה זהה:
הליך TForm1. Button1Click (שולח: TObject);
התחל
Panel1. Caption: = Panel1. Caption + 'מספר'
סוֹף;
החלף את "המספר" בשם הכפתור (אם הוא מספר 0, ואז לוח 1. כיתוב + '0').
שלב 4
המשתנה d הוא בפורמט שלם והוא יכיל את הערך המספרי המתאים של כל פעולה. אם הכפל יבוצע, תוכלו להגדיר את הפעולה לערך 1, אם חלוקה - ערך 2, אם תוספת - ערך 3 וכו '. עבור פעולת הכפל, הקוד ייראה כך:
הליך TForm1. ButtonMultiplyClick (שולח: TObject); // להכפיל פעולה
התחל
a: = StrToFloat (Panel1. Caption); // לאחר לחיצה על הכפתור נשמר ערך המשתנה a
d: = 1; משתנה הפעולה מוגדר לערך המקביל
לוח 1. כיתוב: = ;
סוֹף;
שלב 5
בצע פעולות דומות עבור חלוקה (ButtonDivClick), חיבור (ButtonPlusClick), חיסור (ButtonMinusClick), והרחבה (ButtonPowerClick).
שלב 6
כדי לעבד את הערך "=", עליך להתנות מצב ולשקול כל פעולה בתורן:
הליך TForm1. ButtonClick (שולח: TObject);
התחל
מקרה ד של
1: התחל // אם d = 1, כלומר לחיצת הכפל מכפילה, ואז מתרחשת הפעולה המתאימה
b: = StrToFloat (Panel1. Caption);
c: = a * b;
לוח 1. כיתוב: = FloatToStr (c);
סוֹף;
2: להתחיל
a: = StrToFloat (Panel1. Caption);
c: = a / b;
לוח 1. כיתוב: = FloatToStr (c);
שלב 7
התמודד עם חיבור, חיסור והפקה באותו אופן. המחשבון מוכן.
