解題報(bào)告程序丹奇方塊

CTSC’2002-Day1-丹奇方塊—[問(wèn)題描述礙物，不遠(yuǎn)處坐標(biāo)值為奇數(shù)的N個(gè)不同的格子中各有一者每次可以用上(U)下(D)左(L)右(R)四種移動(dòng)指令之一讓所有的灰色CTSC’2002-Day1-丹奇方塊—[問(wèn)題描述礙物，不遠(yuǎn)處坐標(biāo)值為奇數(shù)的N個(gè)不同的格子中各有一者每次可以用上(U)下(D)左(L)右(R)四種移動(dòng)指令之一讓所有的灰色2000輸入文件denki.in第一行包含一個(gè)整數(shù)N（3<=N<=20，即方塊個(gè)數(shù)2行包含N個(gè)整數(shù)對(duì)xi,yi2000輸入文件denki.in第一行包含一個(gè)整數(shù)N（3<=N<=20，即方塊個(gè)數(shù)2行包含N個(gè)整數(shù)對(duì)xi,yi9<=xi,yi<=9,xi,yi為奇數(shù))其中第i表第i個(gè)方塊的初始位置。位置按照從上到下（即x遞增）從左到右（即y遞增第3行包含N個(gè)整數(shù)對(duì)Pxi,Pyi(1<=Pxi,Pyi<=N)，代表目標(biāo)形狀中各小方輸出文件denki.out第一行為需要的步數(shù)S[問(wèn)題分析子73 過(guò) 過(guò)13列。目標(biāo)圖形的最上端，不妨設(shè)為-9[程序ProgramDenki;UsesSysUtils;==:Array[1..4,1..2]Of{應(yīng)的x,y=量((-1,0),(1,0),(0,-:Array[1..4]OfChar={應(yīng)的字母{箱子總數(shù)={最多移動(dòng)次數(shù)={目標(biāo)圖形的最上一行=-{目標(biāo)圖形的最左一列==Array[-50..50,-50..50]13列。目標(biāo)圖形的最上端，不妨設(shè)為-9[程序ProgramDenki;UsesSysUtils;==:Array[1..4,1..2]Of{應(yīng)的x,y=量((-1,0),(1,0),(0,-:Array[1..4]OfChar={應(yīng)的字母{箱子總數(shù)={最多移動(dòng)次數(shù)={目標(biāo)圖形的最上一行=-{目標(biāo)圖形的最左一列==Array[-50..50,-50..50]=Array[1..MaxN,1..2]=Array[1..MaxS]Ofn::{當(dāng)前圖形，目標(biāo)圖形=Array[1..MaxN,1..2]=Array[1..MaxS]Ofn::{當(dāng)前圖形，目標(biāo)圖形::::Fori:=1tonDoa:=high(a);b:=high(b);Fori:=1tonDoIfAimList[i,1]<aThen {找到當(dāng)前目標(biāo)圖形的最左和最上一列Fori:=1ton陣中Aim[FinalX+AimList[i,1]-a,::::;{當(dāng)前狀態(tài)下，人向方向D走一步If::::;{當(dāng)前狀態(tài)下，人向方向D走一步IfMap[BlockX,BlockY]=1Then{是否推到了箱子AnsNum:=0;BlockX:=0;Fori:=FinalXtoFinalX+n{目標(biāo)圖形從上往下{從左往右處理Forx:=-9to9DoIfFThenFory:=9downto-9{將密集地區(qū)從上往下子推出來(lái)IfMap[x,y]=1Then{所以可以隨心所欲的在走廊里活動(dòng){到達(dá)要推的箱子Fork:=BlockYtoy-2的左邊Fork:=BlockYdowntoy{到達(dá)要推的箱子Fork:=BlockYtoy-2的左邊Fork:=BlockYdowntoyDoFork:=BlockXtox-1DoFork:=BlockXdowntox+1Do將箱子向右Fork:=y+1toFinalY-211列Ifx>i+2Then2行Fork:=x-1downtoi+2DoIfx<i+2ThenBeginFork:=x+1toi+2DoFork:=FinalY-2+1toj {向右推到目標(biāo)列{下{右{上{上IfBlockXmod2<>0ThenGo(2);{保證當(dāng)前偶數(shù)行（走廊）內(nèi) Fori:=1toAnsNumDo 測(cè)試環(huán)境：編譯器{上{上IfBlockXmod2<>0ThenGo(2);{保證當(dāng)前偶數(shù)行（走廊）內(nèi) Fori:=1toAnsNumDo 測(cè)試環(huán)境：編譯器FreePascalforDos機(jī)型elCeleronsor735+128MBWindowsXP al2002（5.1.2600）+