diff options
author | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2016-11-06 11:13:14 +0700 |
---|---|---|
committer | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2016-11-06 11:13:14 +0700 |
commit | 7de121c4b4ef888a0d1990c27144a7f9dd8c5f94 (patch) | |
tree | 2a298c9a957ad490cf8251ab264413f4effa9dce /12/TP-2010/BAI3.pas | |
parent | e4767bb46d1d759f9c863704e3f347d2a0c8c49a (diff) | |
download | cp-7de121c4b4ef888a0d1990c27144a7f9dd8c5f94.tar.gz |
Thêm đề HSG 12 huyện Vĩnh Tường, Vĩnh Phúc
Diffstat (limited to '12/TP-2010/BAI3.pas')
-rwxr-xr-x | 12/TP-2010/BAI3.pas | 73 |
1 files changed, 0 insertions, 73 deletions
diff --git a/12/TP-2010/BAI3.pas b/12/TP-2010/BAI3.pas deleted file mode 100755 index aedf9a0..0000000 --- a/12/TP-2010/BAI3.pas +++ /dev/null @@ -1,73 +0,0 @@ -type - board = array[0..31, 0..31] of boolean; - -var - f : text; - a : board; - i, j, k, l, m, n : byte; - -function king( - e : board; - x, y : byte -) : board; - var z, t : byte; - begin - for z := x - 1 to x + 1 do - for t := y - 1 to y + 1 do - e[z, t] := true; - exit(e) - end; - -function full(c : board) : boolean; - var d : boolean; - begin - for d in c do - if not(d) then - exit(false); - exit(true) - end; - -function libai3( - b : board; - x0, y0 : byte -) : byte; - type tmp = record - n, x, y : byte - end; - var - max : tmp; - t, x, y : byte; - begin - if full(b) then exit(0); - max.n := 0; - for x := x0 to m do - for y := y0 to n do - if not(b[x, y]) then - begin - t := libai3(king(b, x, y), x + 1, y + 1) + 1; - writeln(t); - if t > max.n then - begin - max.x := x; - max.y := y; - max.n := t - end - end; - exit(max.n) - end; - -begin - assign(f, 'BAI3.INP'); - reset(f); - readln(f, m, n, k); - for l := 1 to k do - begin - readln(f, i, j); - a := king(a, i, j) - end; - close(f); - assign(f, 'BAI3.OUT'); - rewrite(f); - writeln(libai3(a, 1, 1)); - close(f) -end. |