首页 > 代码库 > 2015扫雷游戏
2015扫雷游戏
扫雷游戏是一款十分经典的单机小游戏。 在 n 行 m 列的雷区中有一些格子含有地雷（称之为地雷格） ，其他格子不含地雷（称之为非地雷格） 。玩家翻开一个非地雷格时，该格将会出现一个数字——提示周围格子中有多少个是地雷格。 游戏的目标是在不翻出任何地雷格的条件下，找出所有的非地雷格。
现在给出n行m列的雷区中的地雷分布， 要求计算出每个非地雷格周围的地雷格数。
注：一个格子的周围格子包括其上、下、左、右、左上、右上、左下、右下八个方向上与之直接相邻的格子。
输入文件第一行 是用一个空格隔开的 两个整数n和m， 分别表示雷区的行数和列数。
接下来 n 行，每行 m 个字符，描述了雷区中的地雷分布情况。字符 ‘*‘ 表示相应格子是地雷格，字符 ‘?‘ 表示相应格子是非地雷格。相邻字符之间无分隔符。
输出文件包含 n 行，每行 m 个字符，描述整个雷区。用 ‘*‘ 表示地雷格，用周围的地雷个数表示非地雷格。相邻字符之间无分隔符。
输入样例 1
3 3
*??
???
?*?
输入样例 2
2 3
?*?
*??
输出样例 1
*10
221
1*1
输出样例 2
2*1
*21
对于 100%的数据，1≤n≤100，1≤m≤100
题解：
模拟（其实noip模拟很多的）。
又是一道noip普及组的送分题，很简单的。
var n,m,i,j,s,k:longint;
a:array[0..101,0..101]of char;
x:array[1..8]of longint=(-1,-1,-1,0,0,1,1,1);
y:array[1..8]of longint=(-1,0,1,-1,1,-1,0,1);
begin
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do read(a[i,j]);
readln;
end;
for i:=1 to n do
for j:=1 to m do
begin
s:=0;
for k:=1 to 8 do inc(s,ord(a[i+x[k],j+y[k]]=‘*‘));
if a[i,j]=‘*‘ then write(‘*‘)
else write(s);
if j=m then writeln;
end;
end.
2015扫雷游戏