diff options
author | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2016-11-09 11:02:27 +0700 |
---|---|---|
committer | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2016-11-09 11:02:27 +0700 |
commit | 94f49ef11037832a173d268ca932fe34cf78b472 (patch) | |
tree | a83438f7e5f0f04ba32a469051b7671782fefb8b /others/lập-lịch/xepviec.pas | |
parent | 90eb5475115ecf6725f028ec3c39fab95afcb458 (diff) | |
download | cp-94f49ef11037832a173d268ca932fe34cf78b472.tar.gz |
Thêm kì thi thử Duyên Hải
Diffstat (limited to 'others/lập-lịch/xepviec.pas')
-rwxr-xr-x | others/lập-lịch/xepviec.pas | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/others/lập-lịch/xepviec.pas b/others/lập-lịch/xepviec.pas deleted file mode 100755 index cfa39d6..0000000 --- a/others/lập-lịch/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. |