太空站之謎解題報(bào)告

1、問(wèn)題描述2002問(wèn)題分可以設(shè)計(jì)出算法部分 判斷當(dāng)前位置是不問(wèn)題描述2002問(wèn)題分可以設(shè)計(jì)出算法部分 判斷當(dāng)前位置是不是在某一(x,y)Function（x,y 從(x,y)（u,v二 從(u,v)（x,y（x,y一二從外到內(nèi)，探索確定所有未知格子是真空還是傳送門(mén)（0or22三表示角落,A從某個(gè)AC向另一個(gè)相鄰的A，如的位置； 否則證明 C(3,3) 是傳送門(mén)， 執(zhí)行（2,3四這里采用枚舉法，假設(shè)傳送門(mén)（X1,Y1）與傳送門(mén)的某個(gè)相鄰位置，然后朝（X1,Y1）Move若(X1,Y1) 果真與(X2,Y2) 對(duì)應(yīng)則機(jī)器人便會(huì)到達(dá)AMoverobot(“S一二從外到內(nèi)，探索確定所有未知格子是真空還是

2、傳送門(mén)（0or22三表示角落,A從某個(gè)AC向另一個(gè)相鄰的A，如的位置； 否則證明 C(3,3) 是傳送門(mén)， 執(zhí)行（2,3四這里采用枚舉法，假設(shè)傳送門(mén)（X1,Y1）與傳送門(mén)的某個(gè)相鄰位置，然后朝（X1,Y1）Move若(X1,Y1) 果真與(X2,Y2) 對(duì)應(yīng)則機(jī)器人便會(huì)到達(dá)AMoverobot(“S”)，可IsHere(6,5)（3,3）總程Program ABAAACCAACCAAAuses constopp:array1.4ofDirection:array1.4ofyd:array1.4,1.2ofvarmap,mk,Bj:array1.15,1.15ofmap,mk，Bj u,v:ar

3、ray1.15*15 of byte;Door:array1.10of uses constopp:array1.4ofDirection:array1.4ofyd:array1.4,1.2ofvarmap,mk,Bj:array1.15,1.15ofmap,mk，Bj u,v:array1.15*15 of byte;Door:array1.10of procedure var i,j,k:fori:=1ton forj:=1to ifch=* m thenifch=Sthen procedure var while dofh:=fhmodwhileifch=Sthen procedure

4、var while dofh:=fhmodwhilemapx+ydfh,1,y+ydfh,2=100 if mapx,y=99 thenfh:=(fh+2)mod4+1;until Function ;var rray1.300offunction ;var for i:=1to 4 ifmapx+ydi,1,y+ydi,2=100 var for i:=1to 4 ifmapx+ydi,1,y+ydi,2=100 procedurevarpp:array1.300ofifnearwall(x,y)then fori:=1to4do ifmapxx,yy=0then if mkxx,yy=0

5、then ifnearwall(xx,yy)then until (forj:=ttdownto1do until (forj:=ttdownto1do untilft=re;procedurevar for i:=m downto 1 do for i:=1to Tp ifMoverobot(Directionpathi)=0whilemapIx+ydfh,1,Iy+ydfh,2100domod whilemapIx+ydfh,1,Iy+ydfh,2=100do ifMoverobot(Directionfh)=1then fh:=fhmodwhilemapIx+ydfh,1,Iy+ydfh

6、,2=100do ifMoverobot(Directionfh)=1then fh:=fhmod4+1; if if(b1=1)and(b2=0)thenelse fh:=(fh+2) mod 4+1;until procedure varpp:array1.300ofwhile(xxpx)or(yypy)for i:=tt downto 1 do procedure var ;function var for i:=tt downto 1 do procedure var ;function var fori:=1to4do if ip thenifmapx+ydi,1,y+ydi,2=0

7、 procedurevar fori:=1to4do ifmapxx,yy=0then if mkxx,yy=0 then ifmapxx,yy=99ifmapxx,yy=0then if mkxx,yy=0 then ifmapxx,yy=99then if fh20 then untilft=re;procedureconst mv8:array1.8,1.2 of short var i,xx,yy:fori:=1to8do if mapxx,yy=99 thenwhiletot0do whiletot0do if mode=1 thenifIshere(px+ydfh1,1+ydfh2,1,py+ydfh1,2+ydfh2,2) ifbbthen if Td=Tdoor thenfori:=1tondo forj:=1tomifmapi,j=99thenmapi,j:=0; procedurevar procedurevar var procedurevar fori:=1to4do ifmapxx,yy=0then if mkxx,yy=0 then ifmapxx,yy=3then while(Doorj.xxx)or(Doorj.yyy) for j:=j to Td-1 dountilwhileTd2for i:=1 to