From 2f674dc80f0382f1c3178f435714960734dc9d3c Mon Sep 17 00:00:00 2001 From: Nguyễn Gia Phong Date: Sat, 6 Jun 2020 21:33:13 +0700 Subject: Reorganize stuff from secondary school --- 12/TP-HN-2010/BAI1.PAS | 30 ------------------- 12/TP-HN-2010/BAI2.PAS | 40 ------------------------- 12/TP-HN-2010/BAI3 | Bin 132580 -> 0 bytes 12/TP-HN-2010/BAI3.INP | 1 - 12/TP-HN-2010/BAI3.OUT | 0 12/TP-HN-2010/BAI3.o | Bin 4344 -> 0 bytes 12/TP-HN-2010/BAI3.pas | 73 ---------------------------------------------- 12/TP-HN-2010/README.md | 1 - 12/TP-HN-2010/TP-2010.png | Bin 1251665 -> 0 bytes 12/TP-HN-2010/_BAI3.pas | 73 ---------------------------------------------- 10 files changed, 218 deletions(-) delete mode 100644 12/TP-HN-2010/BAI1.PAS delete mode 100644 12/TP-HN-2010/BAI2.PAS delete mode 100644 12/TP-HN-2010/BAI3 delete mode 100644 12/TP-HN-2010/BAI3.INP delete mode 100644 12/TP-HN-2010/BAI3.OUT delete mode 100644 12/TP-HN-2010/BAI3.o delete mode 100644 12/TP-HN-2010/BAI3.pas delete mode 100644 12/TP-HN-2010/README.md delete mode 100644 12/TP-HN-2010/TP-2010.png delete mode 100644 12/TP-HN-2010/_BAI3.pas (limited to '12/TP-HN-2010') diff --git a/12/TP-HN-2010/BAI1.PAS b/12/TP-HN-2010/BAI1.PAS deleted file mode 100644 index 029201d..0000000 --- a/12/TP-HN-2010/BAI1.PAS +++ /dev/null @@ -1,30 +0,0 @@ -var - f : text; - i : 1..30; - a : array[0..30] of qword; - -function gcd(a, b : qword) : qword; - var tmp : qword; - begin - while b > 0 do - begin - tmp := b; - b := a mod b; - a := tmp - end; - gcd := a - end; - -begin - assign(f, 'bai1.inp'); - reset(f); - readln(f, a[0]); - for i := 1 to a[0] do read(f, a[i]); - close(f); - for i := a[0] - 1 downto 1 do - a[i] := a[i] * a[i + 1] div gcd(a[i], a[i + 1]); - assign(f, 'bai1.out'); - rewrite(f); - writeln(f, a[1]); - close(f) -end. diff --git a/12/TP-HN-2010/BAI2.PAS b/12/TP-HN-2010/BAI2.PAS deleted file mode 100644 index d6639df..0000000 --- a/12/TP-HN-2010/BAI2.PAS +++ /dev/null @@ -1,40 +0,0 @@ -var - f : text; - s : string; - len, i, j : byte; - count : integer = 0; - -function libai2(s0 : string) : boolean; - var - bo, boo, b0 : boolean; - c : char; - begin - b0 := false; - bo := false; - boo := false; - for c in s0 do - begin - case c of - '0' .. '9' : b0 := true; - 'a' .. 'z' : bo := true; - 'A' .. 'Z' : boo := true - end; - if b0 and bo and boo then exit(true) - end; - exit(false); - end; - -begin - assign(f, 'BAI2.INP'); - reset(f); - read(f, s); - close(f); - len := length(s); - for i := 1 to len - 5 do - for j := 6 to len - i + 1 do - if libai2(copy(s, i, j)) then inc(count); - assign(f, 'BAI2.OUT'); - rewrite(f); - writeln(f, count); - close(f) -end. diff --git a/12/TP-HN-2010/BAI3 b/12/TP-HN-2010/BAI3 deleted file mode 100644 index 7b83e7b..0000000 Binary files a/12/TP-HN-2010/BAI3 and /dev/null differ diff --git a/12/TP-HN-2010/BAI3.INP b/12/TP-HN-2010/BAI3.INP deleted file mode 100644 index 3609812..0000000 --- a/12/TP-HN-2010/BAI3.INP +++ /dev/null @@ -1 +0,0 @@ -5 5 0 diff --git a/12/TP-HN-2010/BAI3.OUT b/12/TP-HN-2010/BAI3.OUT deleted file mode 100644 index e69de29..0000000 diff --git a/12/TP-HN-2010/BAI3.o b/12/TP-HN-2010/BAI3.o deleted file mode 100644 index 7706cd6..0000000 Binary files a/12/TP-HN-2010/BAI3.o and /dev/null differ diff --git a/12/TP-HN-2010/BAI3.pas b/12/TP-HN-2010/BAI3.pas deleted file mode 100644 index aedf9a0..0000000 --- a/12/TP-HN-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. diff --git a/12/TP-HN-2010/README.md b/12/TP-HN-2010/README.md deleted file mode 100644 index 625312d..0000000 --- a/12/TP-HN-2010/README.md +++ /dev/null @@ -1 +0,0 @@ -![](TP-2010.png) diff --git a/12/TP-HN-2010/TP-2010.png b/12/TP-HN-2010/TP-2010.png deleted file mode 100644 index 7eacc66..0000000 Binary files a/12/TP-HN-2010/TP-2010.png and /dev/null differ diff --git a/12/TP-HN-2010/_BAI3.pas b/12/TP-HN-2010/_BAI3.pas deleted file mode 100644 index 09ec0ca..0000000 --- a/12/TP-HN-2010/_BAI3.pas +++ /dev/null @@ -1,73 +0,0 @@ -type - board = array[0..1023] 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. -- cgit 1.4.1