From 1f06cc322606e86918fefa1f707b54264e9ce0a9 Mon Sep 17 00:00:00 2001
From: Raphael McSinyx <vn.mcsinyx@gmail.com>
Date: Sun, 6 Nov 2016 21:53:13 +0700
Subject: Add others/dict

---
 "10/l\341\272\255p-l\341\273\213ch/xepviec.pas" | 53 -------------------------
 1 file changed, 53 deletions(-)
 delete mode 100755 "10/l\341\272\255p-l\341\273\213ch/xepviec.pas"

(limited to '10/lập-lịch/xepviec.pas')

diff --git "a/10/l\341\272\255p-l\341\273\213ch/xepviec.pas" "b/10/l\341\272\255p-l\341\273\213ch/xepviec.pas"
deleted file mode 100755
index cfa39d6..0000000
--- "a/10/l\341\272\255p-l\341\273\213ch/xepviec.pas"
+++ /dev/null
@@ -1,53 +0,0 @@
-const
-  inp = 'xepviec.inp';
-  out = 'xepviec.out';
-type int200 = 0..200;
-var
-  f : text;
-  n, i, j, k, l, tmp : int200;
-  a : array[0..200, 0..200] of int200;
-function next(m : int200) : boolean;
-  var i0, j0 : int200;
-  begin
-    for i0 := 1 to a[0, 0] do
-      for j0 := 2 to a[i0, 0] do
-        if m = a[i0, j0] then exit(false);
-    next := true;
-  end;
-begin
-  assign(f, inp);
-  reset(f);
-  readln(f, n);
-  i := 0;
-  repeat
-    inc(i);
-    j := 0;
-    repeat
-      inc(j);
-      read(f, a[i, j])
-    until eoln(f);
-    a[i, 0] := j
-  until eof(f);
-  close(f);
-  a[0, 0] := i - 1;
-  for i := 1 to n do
-    for j := 1 to a[0, 0] do
-      if (a[j, 0] > 0) and next(a[j, 1]) then
-        begin
-          tmp := a[j, 1];
-          a[0, i] := tmp;
-          for k := 1 to a[0, 0] do
-            if a[k, 1] = tmp then
-              begin
-                dec(a[k, 0]);
-                for l := 1 to a[k, 0] do
-                  a[k, l] := a[k, l + 1]
-              end;
-          break
-        end;
-  assign(f, out);
-  rewrite(f);
-  for i := 1 to n do
-    write(f, a[0, i], ' ');
-  close(f)
-end.
-- 
cgit 1.4.1