找零系統(補程式) |
答題得分者是:14155585
|
baih923923
一般會員 發表:4 回覆:3 積分:1 註冊:2010-03-13 發送簡訊給我 |
不好意思請能者幫忙解我這個問題,另外也很抱歉再次發一次問題,因為第一次用該論壇發文系統。
題目主旨: 程式中有三項物品,品名及單價分別為可樂20元、果汁25元、礦泉水10元,當輸入數量及單價後,可計算出總金額。當輸入付現金額1000元,可計算找零金額並找出最少個數。最後將購買數量加以分類。 以下是題目要求: 1.三項物品利用RadioButton物件以單選方式點選 2.單價、數量與付現金額使用InputBox函式輸入 3.計算總金額&找零金額 4.找出最少個數,零錢分別為100、50、10、5四種 5.數量若超過100為大量、21-99為中量、小於20為小量 void __fastcall TForm1::RadioButton1Click(TObject *Sender) { if(RadioButton1->Checked==true) Edit1->Text=20; Edit2->Text=IntToStr(StrToInt(Edit2->Text)); Edit13->Text=IntToStr(StrToInt(Edit1->Text)*StrToInt(Edit2->Text)); if(RadioButton2->Checked==true) Edit3->Text=25; Edit4->Text=IntToStr(StrToInt(Edit4->Text)); Edit14->Text=IntToStr(StrToInt(Edit3->Text)*StrToInt(Edit4->Text)); if(RadioButton3->Checked==true) Edit5->Text=20; Edit6->Text=IntToStr(StrToInt(Edit6->Text)); Edit15->Text=IntToStr(StrToInt(Edit5->Text)*StrToInt(Edit6->Text)); Edit7->Text=1000; Edit8->Text=IntToStr(StrToInt(Edit7->Text)-(StrToInt(Edit13->Text) StrToInt(Edit14->Text) StrToInt(Edit15->Text))); int i,j,k,l; if(i==IntToStr(StrToInt(Edit8->Text)0)==0 ) if(i==IntToStr(StrToInt(Edit8->Text)0)==true)return; Edit9->Text=IntToStr(StrToInt(Edit8->Text)/100); i==IntToStr(StrToInt(Edit8->Text)0); if(j==IntToStr(iP)==0) if(j==IntToStr(iP)==true)return; Edit10->Text=IntToStr(i/50); j==IntToStr(iP); if(k==IntToStr(j)==0) if(k==IntToStr(j)==true)return; Edit11->Text=IntToStr(j/10); k==IntToStr(j); if(l==IntToStr(k%5)==true) Edit12->Text=IntToStr(k/5); l==IntToStr(k%5); } 編輯記錄
baih923923 重新編輯於 2010-04-16 12:26:05, 註解 無‧
|
wimi
一般會員 發表:8 回覆:13 積分:9 註冊:2009-12-07 發送簡訊給我 |
|
14155585
一般會員 發表:2 回覆:3 積分:11 註冊:2010-03-19 發送簡訊給我 |
H檔
class TForm1 : public TForm { __published: TLabeledEdit *item2; TLabel *Label1; TEdit *Edit2; TRadioButton *radio1; TEdit *edit_pay; TButton *btn_buy; TLabel *Label2; TLabeledEdit *item1; // User declarations public: __fastcall TForm1(TComponent* Owner); };
cpp檔 TForm1 *Form1; int gold = 0; int num = 0; int pay = 0; int cash = 0; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) pay = StrToInt(edit_pay->Text); } //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- void __fastcall TForm1::btn_buyClick(TObject *Sender) { { num = StrToInt(Edit1->Text); edit_cash->Text = IntToStr(cash); if(radio2->Checked == true) gold = StrToInt(item2->Text); cash = pay - gold * num; } { num = StrToInt(Edit3->Text); edit_cash->Text = IntToStr(cash); } } 只是大致上寫一下主要功能 其他功能就你自己在寫進去了 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |