Калькулятор программасы программалоонун кадимки тапшырмаларынын бири. Мындай тиркеме дээрлик бардык программалоо тилдеринде ишке ашырылышы мүмкүн. Эң популярдуу программалоо тилдеринин бири - Delphi, анын жардамы менен жөнөкөй жана натыйжалуу калькулятор кодун жазууга болот.
Зарыл
Delphi программалоо чөйрөсү
Нускамалар
1 кадам
Сиз колдонуп жаткан Delphi программалоо чөйрөсүн баштаңыз. Колдонмоңуздун интерфейсин пландаштырыңыз. Формада 26 баскыч болот, алардын 10у сандарга, калгандары функцияларга жооп берет. Андан тышкары, TPanel компоненти болот, анда иш-аракеттердин натыйжасы көрсөтүлөт.
2-кадам
Колдонуучу киргизген сандарды сактай турган жана режимин аныктаган кодго 4 өзгөрмө кошуңуз. Мисалы:
var
a, b, c: real; // колдонуучу киргизген сандар
d: бүтүн сан; // калькулятор аракети
3-кадам
Түзүлгөн өзгөрмөлөр корголуучу жана купуяга кошулушу мүмкүн. Эми ар бир сан баскычы үчүн OnClick окуясын башкарыңыз. Бардык сандар үчүн код бирдей болот:
TForm1. Button1Click процедурасы (Жөнөтүүчү: 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; // иш-аракет өзгөрмөсү тиешелүү мааниге коюлган
Panel1. Caption: = '';
аягы;
5-кадам
Бөлүштүрүү (ButtonDivClick), кошуу (ButtonPlusClick), азайтуу (ButtonMinusClick) жана көрсөткүчтү жогорулатуу (ButtonPowerClick) боюнча ушул сыяктуу операцияларды жасаңыз.
6-кадам
"=" Маанисин иштеп чыгуу үчүн, кейс шарт түзүп, ар бир аракетти кезеги менен карап чыгыңыз:
TForm1. ButtonClick процедурасы (Жөнөтүүчү: TObject);
баштоо
иш d
1: begin // эгер 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-кадам
Ушундай эле жол менен кошуу, кемитүү жана көрсөткүчтү башкаруу. Калькулятор даяр.
