洛谷 P1189 SEARCH

---

题目

题目描述

年轻的拉尔夫开玩笑地从一个小镇上偷走了一辆车，但他没想到的是那辆车属于警察局，并且车上装有用于发射车子移动路线的装置。

那个装置太旧了，以至于只能发射关于那辆车的移动路线的方向信息。

编写程序，通过使用一张小镇的地图帮助警察局找到那辆车。程序必须能表示出该车最终所有可能的位置。

小镇的地图是矩形的，上面的符号用来标明哪儿可以行车哪儿不行。“.”表示小镇上那块地方是可以行车的，而符号“X”表示此处不能行车。拉尔夫所开小车的初始位置用字符的“*”表示，且汽车能从初始位置通过。

汽车能向四个方向移动：向北(向上)，向南(向下)，向西(向左)，向东(向右)。

拉尔夫所开小车的行动路线是通过一组给定的方向来描述的。在每个给定的方向，拉尔夫驾驶小车通过小镇上一个或更多的可行车地点。

输入输出格式

输入格式：
输入文件的第一行包含两个用空格隔开的自然数R和C，1≤R≤50，1≤C≤50，分别表示小镇地图中的行数和列数。

以下的R行中每行都包含一组C个符号(“.”或“X”或“*”)用来描述地图上相应的部位。

接下来的第R+2行包含一个自然数N，1≤N≤1000，表示一组方向的长度。

接下来的N行幅行包含下述单词中的任一个：NORTH(北)、SOUTH(南)、WEST(西)和EAST(东)，表示汽车移动的方向，任何两个连续的方向都不相同。

输出格式：
输出文件应包含用R行表示的小镇的地图(象输入文件中一样)，字符“*”应该仅用来表示汽车最终可能出现的位置。

输入输出样例

输入样例#1：

4 5
…..
.X…
…*X
X.X..
3
NORTH
WEST
SOUTH

输出样例#1：

…..
X..
..X
X.X..

---

题解

模拟，用数组保存当前可能的位置，再枚举该方向上可能到达的位置，直到出边界或者遇到障碍物为止，并在过程中把可能到达的点标记为下一个状态的可能的位置

---

代码（Pascal）

var n,m,i,j,k,x,y,e:longint;    a,b:array['A'..'Z'] of longint;    f,f1:array[-1..102,-1..102] of boolean;    s:array[-1..102] of string;    t:char; begin   readln(n,m);   for i:=1 to n do    begin      readln(s[i]);      if pos('*',s[i])>0 then f[i,pos('*',s[i])]:=true;     end;   readln(e);   a['N']:=-1;a['S']:=1;   b['W']:=-1;b['E']:=1;   for i:=1 to e do    begin      readln(t);      fillchar(f1,sizeof(f1),false);      for j:=1 to n do       for k:=1 to m do        if f[j,k] then         begin           x:=j+a[t];           y:=k+b[t];           while (s[x,y]<>'X')and(x>=1)and(x<=n)and(y>=1)and(y<=m) do            begin              f1[x,y]:=true;              x:=x+a[t];              y:=y+b[t];             end;          end;      f:=f1;     end;   for i:=1 to n do    begin      for j:=1 to m do       if s[i,j]='X' then write('X')                     else if f[i,j] then write('*')                                    else write('.');      writeln;     end;  end.