題目描述

掃雷遊戲是一款十分經典的單機小遊戲。在n行m列的雷區中有一些格子含有地雷（稱之為地雷格），其他格子不含地雷（稱之為非地雷格）。玩家翻開一個非地雷格時，該格將會出現一個數字——提示周圍格子中有多少個是地雷格。遊戲的目標是在不翻出任何地雷格的條件下，找出所有的非地雷格。

現在給出n行m列的雷區中的地雷分布，要求計算出每個非地雷格周圍的地雷格數。

註：一個格子的周圍格子包括其上、下、左、右、左上、右上、左下、右下八個方向上與之直接相鄰的格子。

輸入輸出格式

輸入格式：

輸入文件第一行是用一個空格隔開的兩個整數n和m，分別表示雷區的行數和列數。

接下來n行，每行m個字符，描述了雷區中的地雷分布情況。字符’*’表示相應格子是地雷格，字符’?’表示相應格子是非地雷格。相鄰字符之間無分隔符。

輸出格式：

輸出文件包含n行，每行m個字符，描述整個雷區。用’*’表示地雷格，用周圍的地雷個數表示非地雷格。相鄰字符之間無分隔符。

輸入輸出樣例

3 3
*??
???
?*?

*10
221
1*1

2 3
?*?
*??

2*1
*21

說明

對於 100%的數據， 1≤n≤100， 1≤m≤100。

蒟蒻的理解：

雖然是NOIP普及的題目，但是還是很水的，連深搜都算不上，只能算個普通的搜索;

基本思路：

二維數組輸入，然後循環挨個判斷所有反向，如果有一個方向為‘*’，那麽計數器加1，最後輸出計數器。。。。/超級笨的方法！！！

獻上醜碼：QAQ

var n,m,i,j,s:longint;

      a:array[0..1000,0..1000] of char;
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    
      if a[i,j]=‘*‘ then write(a[i,j]) else begin   //如果當前這個位置就是雷，就輸出本身否則就。。。（往下看）
        s:=0;   
        if a[i-1,j-1]=‘*‘ then s:=s+1;    
        if a[i-1,j]=‘*‘ then s:=s+1;    
        if a[i-1,j+1]=‘*‘ then s:=s+1;    
        if a[i,j-1]=‘*‘ then s:=s+1;     
        if a[i,j+1]=‘*‘ then s:=s+1;     
        if a[i+1,j-1]=‘*‘ then s:=s+1;    
        if a[i+1,j]=‘*‘ then s:=s+1;     
        if a[i+1,j+1]=‘*‘ then s:=s+1;    //以上都是判斷上下左右。。。等題目上說的所有方位的語句，如果發現一個雷那麽就計數
        write(s);    //輸出
      end;  
      writeln;  
   end;
end.

 


  

洛谷P2670 掃雷遊戲