Тооцоологч програм нь ердийн програмчлалын даалгаврын нэг юм. Ийм програмыг бараг бүх програмчлалын хэл дээр хэрэгжүүлж болно. Програмчлалын хамгийн түгээмэл хэлний нэг бол Delphi бөгөөд энгийн бөгөөд үр дүнтэй тооны машины кодыг бичихэд ашиглаж болно.
Шаардлагатай
Delphi програмчлалын орчин
Зааварчилгаа
1-р алхам
Өөрийн ашиглаж буй Delphi програмчлалын орчныг эхлүүлээрэй. Өөрийн програмын интерфейсийг төлөвлөх. Маягт дээр 26 товчлуур байх бөгөөд тэдгээрийн 10 нь тоог, үлдсэн хэсэг нь функцийг хариуцдаг. Нэмж дурдахад үйлдлийн үр дүнг харуулах TPanel бүрэлдэхүүн хэсэг байх болно.
Алхам 2
Хэрэглэгчийн оруулсан тоонуудыг хадгалах кодыг 4 хувьсагч нэмж, горимыг тодорхойлно. Жишээлбэл:
var
a, b, c: бодит; // хэрэглэгчийн оруулсан тоо
d: бүхэл тоо; // тооцоолуурын үйлдэл
Алхам 3
Үүсгэсэн хувьсагчуудыг хамгаалагдсан болон хувийн аль алинд нэмж оруулах боломжтой. Одоо товчлуур бүрийн хувьд OnClick үйл явдлыг зохицуулна уу. Бүх цифрүүдийн хувьд код ижил байна:
TForm1. Button1Click процедур (Sender: TObject);
Эхлэх
Panel1. Caption: = Panel1. Caption + 'тоо'
Төгсгөл;
"Дугаар" -ыг товчлуурын нэрээр солино уу (хэрэв энэ нь 0 бол, дараа нь Panel1. Caption + '0').
Алхам 4
D хувьсагч нь бүхэл тоон форматтай байх ба аливаа үйлдлийн харгалзах тоон утгыг агуулна. Хэрэв үржүүлэлт хийгдэх юм бол үйлдлийг 1-р утгаар тохируулж болно, хэрэв хуваах бол 2-р утга, хэрэв нэмэх бол 3-р утга гэх мэт. Үржүүлэх үйлдлийн хувьд код нь дараах байдалтай байна.
TForm1. ButtonMultiplyClick процедур (Sender: TObject); // үйлдлийг үржүүлэх
Эхлэх
a: = StrToFloat (Panel1. Caption); // товчлуурыг дарсны дараа a хувьсагчийн утга хадгалагдана
d: = 1; // үйлдлийн хувьсагчийг харгалзах утгад тохируулна
Зураг 1. Зураг: = ;
Төгсгөл;
Алхам 5
Хуваалт (ButtonDivClick), нэмэх (ButtonPlusClick), хасах (ButtonMinusClick), болон экспонентацийн (ButtonPowerClick) ижил төстэй үйлдлүүдийг хий.
Алхам 6
"=" Утгыг боловсруулахын тулд та тохиолдлын нөхцөл тавьж, үйлдэл бүрийг ээлжлэн авч үзэх хэрэгтэй.
TForm1. ButtonClick процедур (Sender: TObject);
Эхлэх
хэрэг d
1: эхлэх // хэрэв d = 1, өөрөөр хэлбэл үржүүлэх товчлуур дарагдсан байвал харгалзах үйлдэл гарна
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
Төгсгөл;
2: эхлэх
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
Алхам 7
Нэмэх, хасах, ялгах үйлдлийг мөн адил зохицуул. Тооцоологч бэлэн боллоо.
