Ðàçðàáîòàòü ïðîãðàììó äëÿ âû÷èñëåíèÿ àðèôìåòè÷åñêîãî âûðàæåíèÿ è âûâîäà ïîëó÷åííîãî ðåçóëüòàòà.
Ïîðÿäîê âûïîëíåíèÿ çàäàíèÿ:
1. Çàïóñòèòü Delphi (Ïóñê – Âñå ïðîãðàììû – Borland Delphi 7 – Delphi 7).
2. Óêàçàòü çàãîëîâîê ôîðìû (ñâîéñòâó Caption óñòàíîâèòü çíà÷åíèå «Âû÷èñëåíèå çíà÷åíèÿ âûðàæåíèÿ») è ðàçìåñòèòü íà íåé êîìïîíåíòû äëÿ ââîäà èñõîäíûõ äàííûõ (êîìïîíåíò Edit1 è Edit2) è âûâîäà ðåçóëüòàòà (êîìïîíåíò Edit3). Ñâîéñòâî Text êîìïîíåíòîâ Edit1, Edit2 è Edit3 îñòàâèòü ïóñòûì. Äëÿ êàæäîãî êîìïîíåíòà óêàçàòü êîììåíòàðèé â âèäå ìåòêè (Label1 (Caption=«X=»), Label2 (Caption=«Y=») è Label3(Caption=«Ðåçóëüòàò»)). Èçìåíèòü ñâîéñòâî Position ôîðìû Form1, òàê, ÷òîáû ïðè çàïóñêå ïðîãðàììû ôîðìà îòêðûâàëàñü â öåíòðàëüíîé ÷àñòè ýêðàíà. Èçìåíèòü ðàçìåðû ôîðìû.
3. Íà ôîðìå ðàñïîëîæèòü êíîïêó Button1. Ñâîéñòâó Caption êíîïêè óñòàíîâèòü çíà÷åíèå «Âû÷èñëèòü». Äëÿ ýòîãî êîìïîíåíòà ñîçäàòü ñîáûòèå äëÿ ðàñ÷åòà çíà÷åíèÿ èñõîäíîãî âûðàæåíèÿ. Äëÿ ýòîãî íåîáõîäèìî äâàæäû ùåëêíóòü ëåâîé êëàâèøè ìûøè.  ðåçóëüòàòå îòêðîåòñÿ ìîäóëü ôîðìû Unit1, ãäå óæå áóäåò ïðîïèñàíà ïðîöåäóðà äëÿ îáðàáîòêè ñîáûòèÿ íàæàòèÿ íà êíîïêó – procedure TForm1.Button1Click(Sender: TObject).  ýòîé ïðîöåäóðå â ðàçäåëå îïèñàíèÿ ïåðåìåííûõ ïåðå÷èñëèòü èñïîëüçóåìûå ïåðåìåííûå è óêàçàòü èõ òèï (ïåðåìåííûå X è Y – öåëûå, à ïåðåìåííàÿ Z – ðåçóëüòàò âû÷èñëåíèé).  òåëå ïðîöåäóðû (ìåæäó îïåðàòîðàìè Begin è End) íàïèñàòü òåëî ïðîãðàììû:
– ïåðåìåííûì X è Y ïðèñâîèòü çíà÷åíèÿ, êîòîðûå ââîäÿòñÿ â êîìïîíåíòû Edit1 è Edit2 (ñâîéñòâî Text), ñîîòâåòñòâåííî, ñäåëàâ ïåðåâîä èç ñòðîêîâîãî òèïà äàííûõ â ÷èñëîâîé, ïîñêîëüêó êîìïîíåíò Edit âîçâðàùàåò ñòðîêîâûé òèï äàííûõ (äëÿ ïåðåâîäà ìîæíî èñïîëüçîâàòü ôóíêöèþ StrToInt);
– âû÷èñëèòü çíà÷åíèå âûðàæåíèÿ è ðåçóëüòàò çàïèñàòü â ïåðåìåííóþ Z (ïðè âû÷èñëåíèè íåîáõîäèìî èñïîëüçîâàòü îïåðàòîð óñëîâèè If);
– âûâåñòè çíà÷åíèå ïåðåìåííûé Z â êîìïîíåíò Edit3, ïðè ýòîì íåîáõîäèìî ïðåîáðàçîâàòü âåùåñòâåííûé òèï äàííûõ â ñòðîêîâûé (èñïîëüçóåòñÿ ôóíêöèÿ FloatToStr).
4. Ïðîâåðèòü ïðîãðàììó íà íàëè÷èå îøèáîê è â ñëó÷àå èõ îáíàðóæåíèÿ óñòðàíèòü.
5. Çàïóñòèòü ïðîãðàììó íà âûïîëíåíèå (âûïîëíèòü êîìàíäó Run – Run èëè íàæàòü êëàâèøó F9 èëè íà ïàíåëè èíñòðóìåíòîâ íàæàòü íà êíîïêó «Çåëåíûé òðåóãîëüíèê»).
6. Ñîõðàíèòü ïðîãðàììó â îòäåëüíîé ïàïêå. Äëÿ ýòîãî íåîáõîäèìî ñîõðàíèòü âåñü ïðîåêò ñ ïîìîùüþ êîìàíäû File – Save All.
|