想請教關於騎士問題?謝謝 - Delphi K.Top 討論區

發文回覆瀏覽次數：826

推到 Plurk!

推到 Facebook!

想請教關於騎士問題?謝謝

答題得分者是：RaynorPao

kagaya 中階會員發表：74 回覆：175 積分：59 註冊：2002-12-28 發送簡訊給我	#1 引用回覆回覆發表時間：2003-03-03 11:26:23 IP:210.85.xxx.xxx 未訂閱為何要跑一個多小時才有結果?這是正常況狀嗎? 下面是我的原始碼.謝謝 //--------------------------------------------------------------------------- #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource ".dfm" TForm1 Form1; TPanel box1[10][10]; int bomb[10][10]; //記錄是否走過 int xx=0,yy=0; //目前位置 int tt=1; //第幾步 int dire=1; int pop[300][3]; //記錄走過的路 int movx[9]={2,1,-1,-2, 1, 2,-1,-2}; //8個方向 int movy[9]={1,2,-2,-1,-2,-1, 2, 1}; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void walk(int x,int y){ //走下一步 box1[x][y]->Caption=IntToStr(tt); bomb[x][y]=1; xx=x;yy=y; dire=1; } void kgoback(){ //退回一步 box1[xx][yy]->Caption=""; bomb[xx][yy]=0; tt--; xx=pop[tt][1]; yy=pop[tt][2]; dire=pop[tt][0] 1; if(dire>8)dire=1; } void __fastcall TForm1::FormCreate(TObject Sender) { for(int i=0;i<5;i ){ for(int j=0;j<5;j ){ box1[i][j]=new TPanel(this); box1[i][j]->Parent=Form1; box1[i][j]->Width=20; box1[i][j]->Height=20; box1[i][j]->Left=box1[i][j]->Widthj; box1[i][j]->Top=box1[i][j]->Heighti; box1[i][j]->Show(); } } Form1->Width=box1[0][0]->Width5 2; Form1->Height=box1[0][0]->Height6 2; box1[xx][yy]->Caption=IntToStr(tt); bomb[xx][yy]=tt; } //--------------------------------------------------------------------------- void __fastcall TForm1::tt1Timer(TObject Sender) { if(tt>=25){tt1->Enabled=false;return;} for(int i=dire;i<=8;i ){ if((xx movx[i])>4)continue; if((xx movx[i])<0)continue; if((yy movy[i])>4)continue; if((yy movy[i])<0)continue; if(bomb[xx movx[i]][yy movy[i]]==1)continue; pop[tt][0]=i; pop[tt][1]=xx; pop[tt][2]=yy; tt ; walk(xx movx[i],yy movy[i]); return; } kgoback(); } //--------------------------------------------------------------------------- ------ KUSO 無處不在
RaynorPao 版主發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我	#2 引用回覆回覆發表時間：2003-03-03 12:13:21 IP:203.73.xxx.xxx 未訂閱引言: 為何要跑一個多小時才有結果?這是正常況狀嗎? 下面是我的原始碼.謝謝 kagaya 你好: 先參考一下別人是怎麼寫的吧 ------ -- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --
kagaya 中階會員發表：74 回覆：175 積分：59 註冊：2002-12-28 發送簡訊給我	#3 引用回覆回覆發表時間：2003-03-03 12:38:26 IP:211.76.xxx.xxx 未訂閱原來又是遞迴_ 很棒的網頁啊.謝謝大大的提供~_~ ------ KUSO 無處不在
kagaya 中階會員發表：74 回覆：175 積分：59 註冊：2002-12-28 發送簡訊給我	#4 引用回覆回覆發表時間：2003-03-03 13:43:46 IP:211.76.xxx.xxx 未訂閱發現一件事邊跑邊秀出結果和執行完再秀出結果的速度差別非常大網路上抓到的範例如果改成邊跑邊秀也是很慢 ------ KUSO 無處不在
RaynorPao 版主發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我	#5 引用回覆回覆發表時間：2003-03-03 14:01:05 IP:203.73.xxx.xxx 未訂閱引言: 發現一件事邊跑邊秀出結果和執行完再秀出結果的速度差別非常大網路上抓到的範例如果改成邊跑邊秀也是很慢 kagaya 你好: (1)那是當然的，只要是處理 GUI 的部分，會耗費系統很多資源的 (2)請問你自己寫的，跟網路上的範例，兩個時間差多少呢?? -- ------ -- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --
kagaya 中階會員發表：74 回覆：175 積分：59 註冊：2002-12-28 發送簡訊給我	#6 引用回覆回覆發表時間：2003-03-03 16:56:33 IP:211.76.xxx.xxx 未訂閱網路版1秒.邊跑邊秀30秒我的...1小時_ ------ KUSO 無處不在

系統時間：2024-05-05 14:38:07

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！

5151線上健康照護網 | 台灣西醫網 | 台灣中醫網 | 台灣牙科網 | 台灣照護網 | 趴趴狗旅遊網
大花蓮旅遊網 | 大花蓮民宿網 | 花蓮旅遊網 | 花蓮旅遊 | 花蓮旅遊 | 花蓮住宿
花蓮民宿網 | 花蓮旅遊 | 花蓮住宿 | 花蓮民宿 | 花蓮旅遊 | 花蓮民宿
花蓮住宿 | 大南投旅遊網 | 大南投民宿網 | 日月潭風景區 | 日月潭旅遊網 | 日月潭民宿網
日月潭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網
宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 台東旅遊網 | 台東民宿網
台東住宿網 | 台東旅遊網 | 台東民宿網 | 台東住宿網 | 台東旅遊 | 台東民宿
台東住宿 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 綠島旅遊網 | 綠島民宿網
綠島住宿網 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 集集旅遊網 | 集集民宿網
集集住宿網 | 關子嶺旅遊網 | 關子嶺民宿網 | 白河旅遊網 | 白河民宿網 | 心脈大師
尊榮牙醫診所 |