კალკულატორის პროგრამა ერთ – ერთი ტიპიური დაპროგრამების ამოცანაა. ასეთი აპლიკაციის განხორციელება შესაძლებელია პროგრამირების თითქმის ნებისმიერ ენაზე. პროგრამირების ერთ-ერთი ყველაზე პოპულარული ენაა Delphi, რომლის საშუალებითაც შესაძლებელია მარტივი და ეფექტური კალკულატორის კოდის დაწერა.
აუცილებელია
დელფის პროგრამირების გარემო
ინსტრუქციები
Ნაბიჯი 1
დაიწყეთ Delphi პროგრამირების გარემო, რომელსაც იყენებთ. დაგეგმეთ თქვენი აპლიკაციის ინტერფეისი. ფორმაზე იქნება 26 ღილაკი, რომელთაგან 10 პასუხისმგებელია ციფრებზე, დანარჩენი კი ფუნქციებზე. გარდა ამისა, იქნება TPanel კომპონენტი, რომელზეც გამოჩნდება მოქმედების შედეგი.
ნაბიჯი 2
კოდს დაამატეთ 4 ცვლადი, რომელიც ინახავს მომხმარებლის მიერ შეყვანილ რიცხვებს და განსაზღვრავს რეჟიმს. Მაგალითად:
ვარი
a, b, c: რეალური; // ნომრები, რომლებშიც შემოდის მომხმარებელი
დ: მთელი რიცხვი; // კალკულატორის მოქმედება
ნაბიჯი 3
შექმნილი ცვლადები შეიძლება დაემატოს როგორც დაცულ, ასევე კერძო. ახლა გაუმკლავდით OnClick ღონისძიებას თითოეული ნომრის ღილაკისთვის. ყველა ციფრისთვის კოდი იდენტური იქნება:
პროცედურა TForm1. Button1Click (გამგზავნი: TObject);
დაიწყოს
პანელი 1. წარწერა: = პანელი 1. წარწერა + 'ნომერი'
დასასრული;
შეცვალეთ "ნომერი" ღილაკის სახელით (თუ ეს არის ნომერი 0, მაშინ Panel1. Caption + '0').
ნაბიჯი 4
ცვლადი d არის მთელი ფორმატის ფორმა და შეიცავს ნებისმიერი მოქმედების შესაბამის რიცხობრივ მნიშვნელობას. თუ გამრავლება განხორციელდება, მაშინ მოქმედების დაყენება შეგიძლიათ 1 მნიშვნელობად, თუ გაყოფა - მნიშვნელობა 2, თუ დამატება - მნიშვნელობა 3 და ა.შ. გამრავლების მოქმედებისათვის კოდი ასე გამოიყურება:
პროცედურა TForm1. ButtonMultiplyClick (გამგზავნი: TObject); // მოქმედების გამრავლება
დაიწყოს
a: = StrToFloat (პანელი 1. წარწერა); // ღილაკის დაჭერის შემდეგ, a ცვლადის მნიშვნელობა ინახება
დ: = 1; // მოქმედების ცვლადი დაყენებულია შესაბამის მნიშვნელობად
პანელი 1. წარწერა: = ;
დასასრული;
ნაბიჯი 5
გააკეთეთ მსგავსი ოპერაციები დაყოფისთვის (ButtonDivClick), შეკრებისთვის (ButtonPlusClick), გამოკლებისთვის (ButtonMinusClick) და გამოხატვისთვის (ButtonPowerClick).
ნაბიჯი 6
"=" მნიშვნელობის დამუშავებისათვის საჭიროა შეადგინოთ საქმის პირობა და თითოეული მოქმედება თავის მხრივ გაითვალისწინოთ:
პროცედურა TForm1. ButtonClick (გამგზავნი: TObject);
დაიწყოს
d შემთხვევა
1: დაწყება // თუ d = 1, ანუ დაჭერილია გამრავლების ღილაკი, მაშინ ხდება შესაბამისი მოქმედება
ბ: = StrToFloat (პანელი 1. წარწერა);
c: = a * b;
პანელი 1. წარწერა: = FloatToStr (გ);
დასასრული;
2: დაიწყოს
a: = StrToFloat (პანელი 1. წარწერა);
c: = a / b;
პანელი 1. წარწერა: = FloatToStr (გ);
ნაბიჯი 7
ერთნაირად გაუმკლავდით შეკრებას, გამოკლებას და გამოხატვას. კალკულატორი მზად არის.
