線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1158
推到 Plurk!
推到 Facebook!

除法顯示在MEMO上的問題

 
mickey10112001
一般會員


發表:29
回覆:14
積分:8
註冊:2006-08-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-02-03 23:36:39 IP:218.170.xxx.xxx 訂閱
請問一下BCB的問題!!!
10除2時,我須在MEMO上印出2個5
(如:10/2=5,則印出5和5 )
10除3,我須在MEMO上印出3個3和1個1
(如:10/3=3餘1,則印出3和3和3和1)

也就是要顯示除完後中間的值,請問我該如何寫這程式呢?!
謝謝囉.....
pcboy
版主


發表:177
回覆:1838
積分:1463
註冊:2004-01-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-02-04 00:51:36 IP:203.204.xxx.xxx 未訂閱
大概流程如下(小弟這台沒安裝 BCB, 不保證合語法)
n=3;
for (i=1; i ; i<= (10 div n) ) {
Memo1->Lines->Strings->Add(IntToStr(n));
}
Memo1->Lines->Strings->Add(IntToStr( 10 - (10 div n) * n ));

------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案!

子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問!
Stallion
版主


發表:52
回覆:1600
積分:1995
註冊:2004-09-15

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-02-04 00:51:40 IP:211.22.xxx.xxx 未訂閱
是作業的話也該自己先動動手作看看吧!這個問題不困難,你可以先試看看,遇到問題後再把程式碼貼上來,一定有人幫你解答的!加油~
系統時間:2024-11-23 12:57:41
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!