Kalkulyator dasturi odatdagi dasturlash vazifalaridan biridir. Bunday dastur deyarli har qanday dasturlash tilida amalga oshirilishi mumkin. Dasturlashning eng mashhur tillaridan biri Delphi bo'lib, u oddiy va samarali kalkulyator kodlarini yozish uchun ishlatilishi mumkin.
Kerakli
Delphi dasturlash muhiti
Ko'rsatmalar
1-qadam
Siz foydalanayotgan Delphi dasturlash muhitini ishga tushiring. Ilovangiz uchun interfeysni rejalashtiring. Shaklda 26 tugma bo'ladi, ularning 10 tasi raqamlar uchun, qolganlari funktsiyalar uchun javobgardir. Bundan tashqari, TPanel komponentasi bo'ladi, unda harakat natijasi ko'rsatiladi.
2-qadam
Foydalanuvchiga kiritilgan raqamlarni saqlaydigan va rejimni aniqlaydigan kodga 4 o'zgaruvchini qo'shing. Misol uchun:
var
a, b, c: haqiqiy; // foydalanuvchi kiritadigan raqamlar
d: tamsayı; // kalkulyator harakati
3-qadam
Yaratilgan o'zgaruvchilar himoyalangan va shaxsiy narsalarga qo'shilishi mumkin. Endi har bir raqam tugmasi uchun OnClick hodisasini boshqaring. Barcha raqamlar uchun kod bir xil bo'ladi:
TForm1. Button1Click protsedurasi (Sender: TObject);
boshlash
Panel1. Caption: = Panel1. Caption + 'raqam'
oxiri;
"Raqamni" tugma nomi bilan almashtiring (agar u 0 raqami bo'lsa, u holda Panel1. Caption + '0').
4-qadam
D o'zgaruvchisi butun sonli formatda va har qanday harakatning tegishli raqamli qiymatini o'z ichiga oladi. Agar ko'paytma amalga oshirilsa, siz amalni 1 qiymatiga o'rnatishingiz mumkin, agar bo'linish - 2 qiymat, qo'shish bo'lsa - 3 qiymat va hk. Ko'paytirish harakati uchun kod quyidagicha ko'rinadi:
TForm1. ButtonMultiplyClick protsedurasi (Sender: TObject); // harakatni ko'paytirish
boshlash
a: = StrToFloat (Panel1. Caption); // tugmachani bosgandan so'ng, a o'zgaruvchisi qiymati saqlanadi
d: = 1; // harakat o'zgaruvchisi mos keladigan qiymatga o'rnatiladi
Panel1. Caption: = ';
oxiri;
5-qadam
Bo'linish (ButtonDivClick), qo'shish (ButtonPlusClick), ayirma (ButtonMinusClick) va darajani (ButtonPowerClick) o'xshash operatsiyalarni bajaring.
6-qadam
"=" Qiymatini qayta ishlash uchun siz shartli shart qo'yishingiz va har bir amalni o'z navbatida ko'rib chiqishingiz kerak:
TForm1. ButtonClick protsedurasi (Sender: TObject);
boshlash
holat d
1: begin // agar d = 1 bo'lsa, ya'ni ko'paytish tugmasi bosilsa, u holda tegishli amal paydo bo'ladi
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
oxiri;
2: boshlang
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
7-qadam
Xuddi shu tarzda qo'shish, ayirish va eksponitsiyalashni boshqaring. Kalkulyator tayyor.
