Помогите решить элементарную таску, нада решить 1 таску Опции

[xxx000]

На поле размера N*M расположено некоторое число (от 1 до 100) вирусов. За один ход вирус заражает 4 соседние клетки, имеющие с ним общую сторону. Все вирусы хотят одновременно. За какое минимальное число ходов будет заражено все поле?

Входные данные: Числа N и M, разделенные пробелом (1<=N,M<=1000). Далее N строк по M символов - поле с вирусами. Пустая клетка обозначается точкой. Клетка с вирусом обозначается *.

Выходные данные: Единственное число - ответ задачи.

Пример входных данных
3 4
....
..*.
....
Пример выходных данных
3

Не знаю как проверять, если будет больше одного вируса

[Unconnected]

Смотри:

{$APPTYPE CONSOLE}

const p=1000;

var pol:array [1..p,1..p] of char;
    n,m,i,j,hod:integer;

function getwin:boolean;
var i,j:integer;
begin
  result:=true;
  for i:=1 to n do
    for j:=1 to m do if pol[i,j]<>'*' then begin
      result:=false;
      exit;
    end;
end;

Function v(i,j:byte):boolean;
begin
  if pol[i,j]='*' then result:=true else result:=false;
end;

begin
  hod:=0;
  assign(input,'input.txt');
  readln(n,m);
  for i:=1 to n do for j:=1 to m do pol[i,j]:=#0;
  for i:=1 to n do begin
    for j:=1 to m do read(pol[i,j]);
    readln;
  end;
  while not(getwin) do begin
    for i:=1 to n do begin
      for j:=1 to m do begin
        if v(i,j) then begin
          if (i<n) and not v(i+1,j) then pol[i+1,j]:='#';
          if (j<m) and not v(i,j+1) then pol[i,j+1]:='#';
          if (i>1) and not v(i-1,j) then pol[i-1,j]:='#';
          if (j>1) and not v(i,j-1) then pol[i,j-1]:='#';
        end;
      end;
    end;
    for i:=1 to n do for j:=1 to m do if pol[i,j]='#' then pol[i,j]:='*';
    inc(hod);
  end;
  assign(output,'output.txt');
  writeln(hod);
end.

Обновлено.

Сообщение отредактировано: Unconnected - 21.06.2010 22:47