题目:
年轻的拉尔夫开玩笑地从一个小镇上偷走了一辆车,但他没想到的是那辆车属于警察局,并且车上装有用于发射车子移动路线的装置。
那个装置太旧了,以至于只能发射关于那辆车的移动路线的方向信息。
编写程序,通过使用一张小镇的地图帮助警察局找到那辆车。程序必须能表示出该车最终所有可能的位置。
小镇的地图是矩形的,上面的符号用来标明哪儿可以行车哪儿不行。“.”表示小镇上那块地方是可以行车的,而符号“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.