Guest User

Untitled

a guest
Feb 19th, 2018
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.13 KB | None | 0 0
  1. program Project5;
  2. 02   
  3. 03  {$APPTYPE CONSOLE}
  4. 04   
  5. 05  var
  6. 06    n, m, i, j: integer;
  7. 07    s: string;
  8. 08    a, b: array [0 .. 101, 0 .. 101] of integer;
  9. 09    busy: boolean;
  10. 10   
  11. 11  begin
  12. 12     reset(input, 'input.txt');
  13. 13     rewrite(output, 'output.txt');
  14. 14    busy := true;
  15. 15    readln(n, m);
  16. 16    for i := 0 to n + 1 do
  17. 17      for j := 0 to m + 1 do
  18. 18      begin
  19. 19        a[i, j] := 1;
  20. 20        b[i, j] := 1;
  21. 21      end;
  22. 22    for i := 1 to n do
  23. 23    begin
  24. 24      readln(s);
  25. 25      for j := 1 to m do
  26. 26      begin
  27. 27        if s[j] = '#' then
  28. 28          a[i, j] := 1
  29. 29        else
  30. 30          a[i, j] := 0;
  31. 31        if a[i, j] = 0 then
  32. 32          busy := false;
  33. 33        b[i, j] := a[i, j];
  34. 34      end;
  35. 35    end;
  36. 36    if busy = false then
  37. 37      for i := 1 to n do
  38. 38        for j := 1 to m do
  39. 39        begin
  40. 40          if (b[i - 1, j] + b[i + 1, j] + b[i, j + 1] + b[i, j - 1] = 4) and
  41. 41            (a[i, j] = 1) then
  42. 42            a[i, j] := 0;
  43. 43        end;
  44. 44    for i := 1 to n do
  45. 45    begin
  46. 46      for j := 1 to m do
  47. 47        if a[i, j] = 1 then
  48. 48          write('#')
  49. 49        else
  50. 50          write('.');
  51. 51      writeln;
  52. 52    end;
  53. 53    //readln;
  54. 54   
  55. 55  end.
Add Comment
Please, Sign In to add comment