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