題目：
年輕的拉爾夫開玩笑地從乙個小鎮上偷走了一輛車，但他沒想到的是那輛車屬於警察局，並且車上裝有用於發射車子移動路線的裝置。
那個裝置太舊了，以至於只能發射關於那輛車的移動路線的方向資訊。
編寫程式，通過使用一張小鎮的地圖幫助警察局找到那輛車。程式必須能表示出該車最終所有可能的位置。
小鎮的地圖是矩形的，上面的符號用來標明哪兒可以行車哪兒不行。「.」表示小鎮上那塊地方是可以行車的，而符號「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;
vara: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;
vari,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;
vari,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.
（昨天的）codevs天梯過河卒 簡短的棋盤dp
題目 如圖，a 點有乙個過河卒，需要走到目標 b 點。卒行走規則 可以向下 或者向右。同時在棋盤上的任一點有乙個對方的馬 如上圖的c點 該馬所在的點和所有跳躍一步可達的點稱為對方馬的控制點。例如上圖 c 點上的馬可以控制 9 個點 圖中的p1，p2 p8 和 c 卒不能通過對方馬的控制點。棋盤用座標...
CodeVs 1026 逃跑的拉爾夫
題目描述 年輕的拉爾夫開玩笑地從乙個小鎮上偷走了一輛車，但他沒想到的是那輛車屬於警察局，並且車上裝有用於發射車子移動路線的裝置。那個裝置太舊了，以至於只能發射關於那輛車的移動路線的方向資訊。編寫程式，通過使用一張小鎮的地圖幫助警察局找到那輛車。程式必須能表示出該車最終所有可能的位置。小鎮的地圖是矩形...
Codevs 1026 逃跑的拉爾夫
時間限制 1 s 空間限制 128000 kb 題目等級 gold 題目描述 description 那個裝置太舊了，以至於只能發射關於那輛車的移動路線的方向資訊。編寫程式，通過使用一張小鎮的地圖幫助警察局找到那輛車。程式必須能表示出該車最終所有可能的位置。小鎮的地圖是矩形的，上面的符號用來標明哪兒...