深度寬度優(yōu)先搜索-八數(shù)碼-資料下載頁
2025-05-16 06:12本頁面
【正文】 new加入open表 } List[open] := new。 end。 end。 procedure Expand(Index : integer。 var n : tList)。 {擴(kuò)展n的子節(jié)點} var i : integer。 new : tList。 OK : boolean。 Begin if Same( , Target) then begin {如果找到解} Found := true。 Best :=。 Answer:=Index。 Exit。 end。 For i := 1 to 4 do begin {依次使用４條規(guī)則} Move(n,i,OK,new)。 if not ok then continue。 := Index。 := + 1。 Add(new)。 end。 end。 procedure GetOutInfo。 {輸出} procedure Outlook(Index : integer)。 {遞歸輸出每一個解} var i,j : integer。 begin if Index=0 then exit。 Outlook(List[Index].Father)。 with List[Index] do for i:=1 to 3 do begin for j:=1 to 3 do write(State[i,j],39。 39。)。 writeln。 end。 writeln。 end。 begin Writeln(39。Total = 39。,Best)。 Outlook(Answer)。 end。 procedure Main。 {搜索主過程} begin Repeat Inc(Closed)。 Expand(Closed,List[Closed])。 {擴(kuò)展Closed} Until (Closed=open) or Found。 if Found then GetOutInfo {存在解} else Writeln(39。no answer39。)。 {無解} end。Begin Assign(Input,39。39。)。ReSet(Input)。 Assign(Output,39。39。)。ReWrite(Output)。 GetInfo。 Initialize。 Main。 Close(Input)。Close(Output)。End.五、實驗結(jié)果六、實驗總結(jié)通過實驗問題的求解過程就是搜索的過程，采用適合的搜索算法是關(guān)鍵的，因為對求解過程的效率有很大的影響，包括各種規(guī)則、過程和算法等推理技術(shù)。八數(shù)碼問題中，將牌的移動來描述規(guī)則，是一種相對較簡單的方法。用廣度優(yōu)先算法實現(xiàn)八數(shù)碼問題，其實是一種比較費勁的方式；然而深度優(yōu)先將是一個很好的方法，利用深度優(yōu)先不但減少了程序?qū)崿F(xiàn)的時間，是一種不錯的方式。但最好的方式是啟發(fā)式搜索方式實現(xiàn)，在很大程度上相對于前兩種方式是一種非常好的實現(xiàn)方式，不但節(jié)省了時間，也節(jié)省了空間。 通過這次試驗使我對搜索算法有了一定的了解，并對實現(xiàn)這個問題的執(zhí)行過程有了更一步的認(rèn)識。也通過它解決了八數(shù)碼問題，但在實際的過程中還存在很多問題，也看了一些輔助書籍，以后還要加強學(xué)習(xí)，加強理論與實際的練習(xí)。總之，這次試驗使我受益匪淺。23
公司管理相關(guān)推薦
鄂ICP備17016276號-1