2016 年 12月 8 日随笔档案 - 银叶草

摘要：这题有点像合并果子，只不过是合并最大的两个，并div k，再放进数组里排序。错了一个点，求大神看看。vara:array[0..10000]of int64;i,j,n,m:longint;procedure kp(l,r:longint);vari,j,mid:lo... 阅读全文

posted @ 2016-12-08 21:18 银叶草阅读(114) 评论(0) 推荐(0) 编辑

摘要：这题就是把长度排序，长度相等，就把重的放后面，最后看重量有一个地方下降了，就分组加一。vartj,n,i,j:longint;c,w,s:array[0..1000]of longint;begin readln(n); for i:=1 to n do ... 阅读全文

posted @ 2016-12-08 21:06 银叶草阅读(152) 评论(0) 推荐(0) 编辑

摘要：若今天的汇率比明天的汇率高，那么就换钱。varm:real;a:array[0..100]of longint;n,i:longint;begin readln(n); for i:=1 to n do readln(a[i]); m:=100... 阅读全文

posted @ 2016-12-08 20:50 银叶草阅读(102) 评论(0) 推荐(0) 编辑

摘要：从大到小排序，如果a[i]+a[j]没超过限制，就可以加tj，否则i就指向下一个。varw,n,i,j,tj:longint;a:array[0..30000]of longint;procedure kp(l,r:longint);vari,j,mid:longin... 阅读全文

posted @ 2016-12-08 20:37 银叶草阅读(101) 评论(0) 推荐(0) 编辑

摘要：题意将一些是接起来，找出接的最大的数分析这题其实就是最大整数。做的时候，我们可以先把数字符串排序，从小到大，再一个一个接起来varn,i,x,j:longint;t:string;s:array[0..20]of string;procedure kp(l,r:lon... 阅读全文

posted @ 2016-12-08 15:39 银叶草阅读(121) 评论(0) 推荐(0) 编辑

摘要： varn,i,x,j:longint;s:array[0..20]of string;begin readln(n); for i:=1 to n do//因为数据之间有空格，所以先读入成数字，再变为字符串 begin read(x);... 阅读全文

posted @ 2016-12-08 15:37 银叶草阅读(89) 评论(0) 推荐(0) 编辑

银叶草