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

排序要怎麼排才對

尚未結案
josh
一般會員


發表:1
回覆:0
積分:0
註冊:2003-04-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-04-04 23:56:11 IP:211.76.xxx.xxx 未訂閱
請問個位大大~~~這是我寫的一個讀黨存檔合排序ㄉ程式 可以幫我看一下哪裡出錯嗎 位神ㄇ排序總是怪怪ㄉ 謝謝    void __fastcall TForm1::Button1Click(TObject *Sender) { char k[10]; String a=0; String q=","; int y[10]; int d,x=0; FILE *fp; fp=fopen("kkk.txt","r"); while (!feof(fp))   {     fscanf(fp, "%s", k );     a=k;     y[x]=StrToInt(a);     x=x+1;            } fclose(fp); for (int b=0;by[c]) { d=y[b]; y[b]=y[c]; y[c]=d; } } } //k[10]=IntToStr(y[10]); fp=fopen("kk.txt","w t"); for (int j=0;j
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-04-05 00:35:26 IP:61.221.xxx.xxx 未訂閱
引言: 請問個位大大~~~這是我寫的一個讀黨存檔合排序ㄉ程式 可以幫我看一下哪裡出錯嗎 位神ㄇ排序總是怪怪ㄉ 謝謝 void __fastcall TForm1::Button1Click(TObject *Sender) { char k[10]; String a=0; String q=","; int y[10]; int d,x=0; FILE *fp; fp=fopen("kkk.txt","r"); while (!feof(fp)) { fscanf(fp, "%s", k ); a=k; y[x]=StrToInt(a); x=x 1; } fclose(fp); for (int b=0;by[c]) { d=y[b]; y[b]=y[c]; y[c]=d; } } } //k[10]=IntToStr(y[10]); fp=fopen("kk.txt","w t"); for (int j=0;j
josh 你好:
(1)請問~~你要讀取的檔案的格式為何呢?? 沒有說明喔
( ><>
>>>>>>>>>>>    -- 
        
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
clarkkent
初階會員


發表:29
回覆:83
積分:32
註冊:2003-01-23

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-04-06 08:14:46 IP:61.59.xxx.xxx 未訂閱
引言:
josh 你好:
(1)請問~~你要讀取的檔案的格式為何呢?? 沒有說明喔
( >
   >>>>    -- >< face="Verdana, Arial, Helvetica">    前文恕刪
兩位大大不好意思插花一下
請問如果我的資料是
0 2 34 1 56
存在txt中是以空白鍵做為分隔的
那有沒有像上述這麼精簡的方法呢?
另外,如果要由大排到小呢?
謝謝您    新手上路,請多指教    如果此文章違反版規
還請版主告知並刪除
Just do it    發表人 - clarkkent 於 2003/04/06  10:27:45    發表人 - clarkkent 於 2003/04/06  22:05:45
        
------
JUST DO IT
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-04-07 00:11:11 IP:61.221.xxx.xxx 未訂閱
引言: 兩位大大不好意思插花一下 請問如果我的資料是 0 2 34 1 56 存在txt中是以空白鍵做為分隔的 那有沒有像上述這麼精簡的方法呢? 另外,如果要由大排到小呢? 謝謝您 新手上路,請多指教 如果此文章違反版規 還請版主告知並刪除 Just do it
clarkkent 你好: 我上一次在以下這個連結中,不是有寫一段範例程式碼嗎?? 其實只要改兩行,就可以達到你的需求了(請參考紅色的部分) class="code"> TStringList *sl1=new TStringList; TStringList *sl3=new TStringList; sl1->LoadFromFile("1.txt"); for(int i=0; iCount; i ) { TStringList *sl2=new TStringList; AnsiString sz=sl1->Strings[i]; sz=StringReplace(sz, " ", ",", TReplaceFlags()<CommaText=sz; for(int j=0; jCount; j ) { sl3->Add(sl2->Strings[j]); } delete sl2; } MyBubbleSort(sl3); // 在上面紅色的程式碼 // 此段程式碼用來做驗證 Memo1->Clear(); // for(int k=0; kCount; k ) for(int k=sl3->Count-1; k>=0; k--) { Memo1->Lines->Add(sl3->Strings[k]); } delete sl3; delete sl1; -- Enjoy Researching & Developing --
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
clarkkent
初階會員


發表:29
回覆:83
積分:32
註冊:2003-01-23

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-04-07 08:37:33 IP:61.59.xxx.xxx 未訂閱
感謝RaynorPao大大的協助 想請教您 之前您寫出的 TStringList *sl=new TStringList; sl->LoadFromFile("1.txt"); sl->Sort(); sl->SaveToFile("2.txt"); delete sl; 它用的就是氣泡排序法嗎? 小弟要處理的資料大概是小於1000筆,最多要做10000次,這樣適用嗎? 再次感謝您 新手上路,請多指教 如果此文章違反版規 還請版主告知並刪除 Just do it
------
JUST DO IT
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-04-07 08:47:06 IP:203.73.xxx.xxx 未訂閱
引言: 感謝RaynorPao大大的協助 想請教您 之前您寫出的 TStringList *sl=new TStringList; sl->LoadFromFile("1.txt"); //sl->Sort(); MyBubbleSort(sl); sl->SaveToFile("2.txt"); delete sl; 它用的就是氣泡排序法嗎? 小弟要處理的資料大概是小於1000筆,最多要做10000次,這樣適用嗎? 再次感謝您 新手上路,請多指教 如果此文章違反版規 還請版主告知並刪除 Just do it
clarkkent 你好:
(1)我並不清楚 TStringList 使用的 Sort 為何種演算法??
(>    -- 
        
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
brook
資深會員


發表:57
回覆:323
積分:371
註冊:2002-07-12

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-04-07 17:51:33 IP:218.160.xxx.xxx 未訂閱
排序而己,何不用qsort,現成的東東,速度快,而且適合各種size,bcb就有現成 的example.
China Join
中階會員


發表:81
回覆:242
積分:89
註冊:2003-03-12

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-04-09 00:38:17 IP:61.216.xxx.xxx 未訂閱
不好意思插個花 請問 BCB 的 qsort 範例在那邊ㄋ
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-04-09 01:41:51 IP:61.231.xxx.xxx 未訂閱
China Join您好:    
引言: 請問 BCB 的 qsort 範例在那邊ㄋ
在BCB中的Help中鍵入qsort就可以看到使用方式和範例了 順心
China Join
中階會員


發表:81
回覆:242
積分:89
註冊:2003-03-12

發送簡訊給我
#10 引用回覆 回覆 發表時間:2003-04-09 09:15:59 IP:61.216.xxx.xxx 未訂閱
小弟試過了,可以接受各種型態的輸入,排序速度又比自己用迴圈來做快,不錯用,taishyang 大大謝謝囉!
系統時間:2024-04-29 20:30:03
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!