題目:
年輕的拉爾夫開玩笑地從一個小鎮上偷走了一輛車,但他沒想到的是那輛車屬於警察局,並且車上裝有用於發射車子移動路線的裝置。
那個裝置太舊了,以至於只能發射關於那輛車的移動路線的方向信息。
編寫程序,通過使用一張小鎮的地圖幫助警察局找到那輛車。程序必須能表示出該車最終所有可能的位置。
小鎮的地圖是矩形的,上面的符號用來標明哪兒可以行車哪兒不行。“.”表示小鎮上那塊地方是可以行車的,而符號“X”表示此處不能行車。拉爾夫所開小車的初始位置用字符的“*”表示,且汽車能從初始位置通過。
汽車能向四個方向移動:向北(向上),向南(向下),向西(向左),向東(向右)。
拉爾夫所開小車的行動路線是通過一組給定的方向來描述的。在每個給定的方向,拉爾夫駕駛小車通過小鎮上一個或更多的可行車地點。
分析:
說是bfs,其實用dfs做也是可以的。。。
代碼:
const
dx:array [1..4] of longint=(-1,1,0,0);
dy:array [1..4] of longint=(0,0,-1,1);
maxn=50;
var
a:array [1..maxn,1..maxn,0..maxn*20] of longint;
dir:array [1..maxn*maxn] of longint;
map:array [1..maxn,1..maxn] of char;
n,m,num,x1,y1:longint;
st:string;
c:char;
procedure init;
var
i,j:longint;
begin
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do
begin
read(c);
case c of
'X':map[i,j]:=c;
'.':map[i,j]:=c;
'*':begin x1:=i;y1:=j;map[i,j]:='.'; end;
end;
end;
readln;
end;
readln(num);
for i:=1 to num do
begin
readln(st);
case st[1] of
'N':dir[i]:=1;
'S':dir[i]:=2;
'W':dir[i]:=3;
'E':dir[i]:=4;
end;
end;
end;
procedure try(x,y,temp:longint);
begin
if a[x,y,temp-1]=1 then
exit;
if temp>num then
begin
map[x,y]:='*';
exit;
end;
a[x,y,temp-1]:=1;
x:=x+dx[dir[temp]];
y:=y+dy[dir[temp]];
while (x>0) and (x<=n) and (y>0) and (y<=m) and (map[x,y]<>'X') do
begin
try(x,y,temp+1);
x:=x+dx[dir[temp]];
y:=y+dy[dir[temp]];
end;
end;
procedure main;
var
i,j:longint;
begin
try(x1,y1,1);
for i:=1 to n do
begin
for j:=1 to m do
write(map[i,j]);
writeln;
end;
end;
begin
init;
main;
end.