一些關於"="的問題 |
尚未結案
|
Ece.Winson
一般會員 發表:13 回覆:19 積分:6 註冊:2003-05-27 發送簡訊給我 |
各位大大:
下面是我在嘗試加法程式時的一些問題
小弟試了很久都未能解決懇請各位能提
供意見,謝謝 (1).在程式執行完第一次加法後,只要再
按一次"="號程式便將第一次的輸入值纍
加上去.
(2).如果想將加減乘除都寫在"="號的程
式中,該怎麼撰寫才行呢.
希望各位能夠幫忙,解答我的疑惑謝謝 (百思不解的) Ece.Winson上
//---------------------------------------------------------------------------
#include
|
turboted
版主 發表:95 回覆:754 積分:452 註冊:2002-07-23 發送簡訊給我 |
|
Ece.Winson
一般會員 發表:13 回覆:19 積分:6 註冊:2003-05-27 發送簡訊給我 |
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
Ece.Winson您好:
我寫了一個還是很遜的範例您參考看看,還有要注意其他細節
ex.要注意除數不能為0.
int compute; //暫存用 int op; //判斷+-/*用 //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- //+號 void __fastcall TForm1::Button1Click(TObject *Sender) { int temp=StrToInt(Edit1->Text); compute=compute+temp; Edit2->Text=compute; Edit1->Text=""; op=1; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button5Click(TObject *Sender) { switch (op) { case 1: Edit2->Text=StrToInt(Edit2->Text)+StrToInt(Edit1->Text); break; case 2: Edit2->Text=StrToInt(Edit2->Text)-StrToInt(Edit1->Text); break; case 3: Edit2->Text=StrToInt(Edit2->Text)*StrToInt(Edit1->Text); break; case 4: Edit2->Text=StrToInt(Edit2->Text)/StrToInt(Edit1->Text); break; } } //--------------------------------------------------------------------------- //c清除 void __fastcall TForm1::Button6Click(TObject *Sender) { Edit1->Text=""; Edit2->Text=""; compute=0; op=0; } //--------------------------------------------------------------------------- //-號 void __fastcall TForm1::Button2Click(TObject *Sender) { int temp=StrToInt(Edit1->Text); if (op==0) { compute=StrToInt(Edit1->Text); } else compute=compute-temp; Edit1->Text=""; Edit2->Text=compute; op=2; } //--------------------------------------------------------------------------- //*號 void __fastcall TForm1::Button4Click(TObject *Sender) { int temp=StrToInt(Edit1->Text); if (op==0) { compute=StrToInt(Edit1->Text); } else compute=compute*temp; Edit1->Text=""; Edit2->Text=compute; op=3; } //--------------------------------------------------------------------------- ///號 void __fastcall TForm1::Button3Click(TObject *Sender) { int temp=StrToInt(Edit1->Text); if (op==0) { compute=StrToInt(Edit1->Text); } else compute=compute/temp; Edit1->Text=""; Edit2->Text=compute; op=4; } //---------------------------------------------------------------------------順心 <>~我也是在學習的階段,所以請您多多見諒與指教~> 發表人 - |
turboted
版主 發表:95 回覆:754 積分:452 註冊:2002-07-23 發送簡訊給我 |
|
Ece.Winson
一般會員 發表:13 回覆:19 積分:6 註冊:2003-05-27 發送簡訊給我 |
|
Ece.Winson
一般會員 發表:13 回覆:19 積分:6 註冊:2003-05-27 發送簡訊給我 |
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
|
Ece.Winson
一般會員 發表:13 回覆:19 積分:6 註冊:2003-05-27 發送簡訊給我 |
|
brant
一般會員 發表:1 回覆:64 積分:23 註冊:2003-04-07 發送簡訊給我 |
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
Ece.Winson您好:
我來補充四捨五入的方式
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29978
順心 <>~我也是在學習的階段,所以請您多多見諒與指教~>
|
Ece.Winson
一般會員 發表:13 回覆:19 積分:6 註冊:2003-05-27 發送簡訊給我 |
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
|
brant
一般會員 發表:1 回覆:64 積分:23 註冊:2003-04-07 發送簡訊給我 |
|
Ece.Winson
一般會員 發表:13 回覆:19 積分:6 註冊:2003-05-27 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |