From 71a6e456b59171a681bccff7eeba9db7367bca37 Mon Sep 17 00:00:00 2001 From: Raphael McSinyx Date: Mon, 31 Oct 2016 22:21:50 +0700 Subject: Thêm đề Tin học trẻ Quốc gia 2016 Bảng B MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- THT-C/TP-2016/buy.pas | 47 ----------------------------------------------- 1 file changed, 47 deletions(-) delete mode 100644 THT-C/TP-2016/buy.pas (limited to 'THT-C/TP-2016/buy.pas') diff --git a/THT-C/TP-2016/buy.pas b/THT-C/TP-2016/buy.pas deleted file mode 100644 index acbd1d3..0000000 --- a/THT-C/TP-2016/buy.pas +++ /dev/null @@ -1,47 +0,0 @@ -(* File name are supposed to be in upper case, but lower case names look more *mordern*. - * `buy.pas' run first, read input from `buy.inp', write to `buy.out' - * `set.pas' run next, read from `set.inp', write to `set.out' - * `play.pas' run last, read from `map.inp', write to `decision.out' - * (LMAO dunno how to sort files in Gist) - *) - -var - f : text; - a : array[1..10] of qword; - idx : array[1..10] of shortint = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10); - out : array[1..10] of shortint = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0); - i, j, smalltmp : shortint; - bigtmp : qword; - -begin - assign(f, 'buy.inp'); - reset(f); - for i := 1 to 10 do - read(f, a[i]); - close(f); - for i := 1 to 9 do - for j := i + 1 to 10 do - if a[i] > a[j] then {should use `>=' cuz the later tanks are usually better} - begin - smalltmp := idx[i]; - idx[i] := idx[j]; - idx[j] := smalltmp; - bigtmp := a[i]; - a[i] := a[j]; - a[j] := bigtmp - end; - bigtmp := 100; - for i := 1 to 8 do {capable of buying 10, but dat gon' make `set.pas' complicated} - if a[i] > bigtmp then - break - else - begin - dec(bigtmp, a[i]); - out[idx[i]] := 1 - end; - assign(f, 'buy.out'); - rewrite(f); - for i := 1 to 10 do - writeln(f, out[i]); - close(f) -end. \ No newline at end of file -- cgit 1.4.1