摘要: var a:array[1..200] of longint; b:array[1..200] of longint; len1,len2:longint; n:longint; procedure inti; be... 阅读全文
posted @ 2015-09-23 21:18 ROLL-THE-FIRST 阅读(170) 评论(0) 推荐(0) 编辑
摘要: dfs,每次搜到打标签,制成false,把整个图搜一遍,每次搜到联通块时答案加一。var map:array[0..110,0..110] of boolean; i,j,n,c,ans:longint; ok:boolean; ch:char... 阅读全文
posted @ 2015-09-23 21:03 ROLL-THE-FIRST 阅读(134) 评论(0) 推荐(0) 编辑
摘要: const letter=['0'..'9']+['a'..'f']; inf='encode.in'; ouf='encode.out';var a:array [1..9,1..32] of longint; f:array [1..33,0..... 阅读全文
posted @ 2015-09-22 20:33 ROLL-THE-FIRST 阅读(121) 评论(0) 推荐(0) 编辑
摘要: 1.数据分析:每个信封最多贴K张邮票,每张邮票的数量不超过n,可用一个数组来表示能够表示贴出每种邮资。 阶段:能够构成每个面值为阶段。比如能构成的面值为1到V,那么总共为V个阶段。 状态:dp[i]表示构成面值i所需要的最少邮票数. 决策:对于样例数据1和3两种面值的邮票: ... 阅读全文
posted @ 2015-09-21 21:15 ROLL-THE-FIRST 阅读(197) 评论(0) 推荐(0) 编辑
摘要: 水题(各种坑数据,注意特判,一定要把所有条件想全)var s:string; f:array[0..100] of longint; i,j,k,l,n,ans:longint; begin readln(s); ... 阅读全文
posted @ 2015-09-21 21:03 ROLL-THE-FIRST 阅读(209) 评论(0) 推荐(0) 编辑
摘要: 水题,要么卡特兰数,要么递推,反正都能过(记得int64)var f:Array[-400..400] of int64; n,i,j:longint; begin readln(n); f[0]:... 阅读全文
posted @ 2015-09-21 20:49 ROLL-THE-FIRST 阅读(119) 评论(0) 推荐(0) 编辑
摘要: 坑啊= =选了好几次质数,发现还是这一组靠谱思路:每次mod之后求出所有解,再mod再求,看着复杂度差不多了就把没重复的都输出就行了const mi:array[1..7] of int64=(12537,15437,17647,14677,10003,10009,10007);var ... 阅读全文
posted @ 2015-09-21 19:51 ROLL-THE-FIRST 阅读(181) 评论(0) 推荐(0) 编辑
摘要: 水题一道 不解释了= =var a:array[0..10000] of longint; n,m,i,j,k,t,x,y:longint;begin readln(n);readln(m); for i:=1 to n do read(a[i]); k:=0; while ... 阅读全文
posted @ 2015-09-20 18:38 ROLL-THE-FIRST 阅读(97) 评论(0) 推荐(0) 编辑
摘要: 没被使用的ID谁都有可能会用到;而当匹配后,自己的ID还可以和其他人的换时,即并不能确定两个ID和两个名字的关系时,这两个人的ID均未知。varw:array[1..20,1..20] of boolean;ID:array[1..20] of string;nm,ans:array[1..20] ... 阅读全文
posted @ 2015-09-20 18:34 ROLL-THE-FIRST 阅读(150) 评论(0) 推荐(0) 编辑
摘要: 细节理解题,注意体感有点问题,p只加一次var codevs,poj:array[0..20] of longint; ans,ci,pi,n,k,p,i:longint;begin readln(n,k,p); for i:=1 to n do read(poj[i]); readln;... 阅读全文
posted @ 2015-09-20 18:33 ROLL-THE-FIRST 阅读(114) 评论(0) 推荐(0) 编辑
摘要: 没什么好说的,很容易分析出递推公式f[n]=(n-2)*(n-1)*(n-3) div 6;代码begin readln(n); writeln((n-2)*(n-1)*(n-3) div 6);end. ... 阅读全文
posted @ 2015-09-19 16:19 ROLL-THE-FIRST 阅读(101) 评论(0) 推荐(0) 编辑
摘要: 公式+快速幂显然通过读题后我们就可知ans=(x+m*10^k)mod n所以最容易想到的就是使用快速幂,然而这里还有一种不用快速幂的方案由于直接1 to k循环显然会wa,最多也只有90分,优化是必然的于是我们可以找到一个k10 then exit((f(a,b-1)*a) mod n); ... 阅读全文
posted @ 2015-09-18 16:59 ROLL-THE-FIRST 阅读(143) 评论(0) 推荐(0) 编辑
摘要: 今天不考试,不考试,啦啦啦~~好的严肃,虽然不考试依旧要刷题,搞了一套noip2013玩玩这道题是day1的第二题,考了树状数组,排序和逆序对,无压力(我不会告诉你第一次快排出错的= =)代码var a,b,d,h,e,f:array[0..1001000] of int64; ... 阅读全文
posted @ 2015-09-18 16:56 ROLL-THE-FIRST 阅读(158) 评论(0) 推荐(0) 编辑
摘要: 不多说了,直接上代码var n,m,i,j,k,x,y,l,r,t:longint; f,g:array[0..100,0..100]of longint; a:array[0..100]of longint; function max(a,b:longint):longi... 阅读全文
posted @ 2015-09-17 21:30 ROLL-THE-FIRST 阅读(98) 评论(0) 推荐(0) 编辑
摘要: 初始化:f[i][i]置成i,其余为0三重循环用f[i][j]+f[k][k]更新f[i][j]最后用一个三重循环更新ans数组,记得提前置成最大值var w:array[0..105]of longint; f,sum:array[0..105,0..105]of lo... 阅读全文
posted @ 2015-09-17 21:24 ROLL-THE-FIRST 阅读(114) 评论(0) 推荐(0) 编辑
摘要: 这一题实际上是组合数学里面的经典问题,跟第二类Stirling数有些相似。可以把一个数值为n的数看成n个小球,划分的份数k看作是k个盒子,那么本题的要求就是:将n个小球放到k个盒子中,小球之间与盒子之间没有区别,并且最后的结果不允许空盒与第二类Stirling数的递推公式的推导过程相似:将n个小球放... 阅读全文
posted @ 2015-09-17 21:16 ROLL-THE-FIRST 阅读(113) 评论(0) 推荐(0) 编辑
摘要: 1017 乘积最大 2000年NOIP全国联赛普及组NOIP全国联赛提高组 时间限制: 1 s 空间限制: 128000 KB 题目等级 : 黄金 Gold 题目描述 Description今年是国际数学联盟确定的“2000——世界数学年”,又恰逢我国著名数学家华罗庚先生诞辰90周年。在华罗庚先... 阅读全文
posted @ 2015-09-17 21:01 ROLL-THE-FIRST 阅读(196) 评论(0) 推荐(0) 编辑
摘要: 防线(defender.pas/c/cpp)题目描述lsp 学习数学竞赛的时候受尽了同仁们的鄙视, 终于有一天„„受尽屈辱的lsp黑化成为了黑暗英雄Lord lsp。就如同中二漫画的情节一样,Lord lsp 打算毁掉这个世界。数学竞赛界的精英lqr 打算阻止Lord lsp 的阴谋,于是她集合了一... 阅读全文
posted @ 2015-09-16 21:08 ROLL-THE-FIRST 阅读(436) 评论(0) 推荐(0) 编辑
摘要: 然而有素质的我选择把题目也粘在上面,喜欢的同学可以做一下支付宝(pay.pas/c/cpp)题目描述做完前七次Nescafé 模拟赛之后,你已经欠了一大笔电费。现在收电费的已经把你堵在了家里。当然了,你并不是打算一直拖欠电费的人,你只是如果不能用最少的纸币张数凑出电费金额的话会感到十分不爽。本来这是... 阅读全文
posted @ 2015-09-15 21:36 ROLL-THE-FIRST 阅读(360) 评论(0) 推荐(0) 编辑
摘要: 事实上这道题的原型是1258——关路灯,为什么选了这个呢?废话,因为题目呗= =言规正传,觉得这道题扯到看不懂的可以去翻codevs1258,说的挺易懂的其实就是一道区间dp,比较裸的代码,考虑清楚就好记录过去和回来的最小安慰时间= =贴代码var n,c,i,j,sum:longin... 阅读全文
posted @ 2015-09-13 21:26 ROLL-THE-FIRST 阅读(235) 评论(0) 推荐(0) 编辑
摘要: 题目描述挺简单的,也很容易分析。可以作为练习快排和贪心使用var t,f:array[0..1010] of longint; i,j,m,n,k,l:longint; procedure qsort(l,r:longint); var i,j... 阅读全文
posted @ 2015-09-13 21:14 ROLL-THE-FIRST 阅读(371) 评论(0) 推荐(0) 编辑
摘要: 树状数组(Binary Indexed Tree(BIT), Fenwick Tree)是一个查询和修改复杂度都为log(n)的数据结构。主要用于查询任意两位之间的所有元素之和,但是每次只能修改一个元素的值;经过简单修改可 以在log(n)的复杂度下进行范围修改,但是这时只能查询其中一个元素的值,且... 阅读全文
posted @ 2015-09-12 17:24 ROLL-THE-FIRST 阅读(176) 评论(0) 推荐(1) 编辑
摘要: const u:array[1..4] of integer=(-1,0,1,0); v:array[1..4] of integer=(0,1,0,-1); oo=100000000;type node=record x,y,cs,l:longi... 阅读全文
posted @ 2015-09-11 21:23 ROLL-THE-FIRST 阅读(175) 评论(0) 推荐(0) 编辑
摘要: var f:array[-1..1001,-1..1001] of longint; a,b,m,n,k,i,j:longint;begin readln(a,b,k,n,m); f[1,0]:=b; f[1,1]:=a; for i:=2 to k do ... 阅读全文
posted @ 2015-09-11 12:44 ROLL-THE-FIRST 阅读(113) 评论(0) 推荐(0) 编辑
摘要: 3.Mayan 游戏(mayan.cpp/c/pas)【问题描述】Mayan puzzle 是最近流行起来的一个游戏。游戏界面是一个7 行5 列的棋盘,上面堆放着一些方块,方块不能悬空堆放,即方块必须放在最下面一行,或者放在其他方块之上。游戏通关是指在规定的步数内消除所有的方块,消除方块的规则如下:... 阅读全文
posted @ 2015-09-10 21:35 ROLL-THE-FIRST 阅读(249) 评论(0) 推荐(0) 编辑
摘要: 时间限制: 1 s 空间限制: 128000 KB 题目描述 Description丽江河边有 n 家很有特色的客栈,客栈按照其位置顺序从1 到n 编号。每家客栈都按照某一种色调进行装饰(总共k 种,用整数0 ~ k-1 表示),且每家客栈都设有一家咖啡店,每家咖啡店均有各自的最低消费。两位游客一... 阅读全文
posted @ 2015-09-10 21:26 ROLL-THE-FIRST 阅读(158) 评论(0) 推荐(0) 编辑
摘要: 最近在写noip2011的题,备战noip,先给自己加个油!下面是noip2011的试题和自己的解题报告,希望对大家有帮助,题目1如下1.铺地毯(carpet.cpp/c/pas)【问题描述】为了准备一个独特的颁奖典礼,组织者在会场的一片矩形区域(可看做是平面直角坐标系的第一象限)铺上一些矩形地毯。... 阅读全文
posted @ 2015-09-10 21:17 ROLL-THE-FIRST 阅读(227) 评论(0) 推荐(0) 编辑
摘要: 常规的宽搜,每个方向上都一路走到’X‘为止如果不加以判重,理论上是对的,但是会做大量无用的计算,要么超时要么数组越界,只能得30分不过,这里的判重并不是指每个点只能经过一次,而是指在一层搜索中,每个点只能经过一次,搜索下一层时,判重数组要清空程序如下:program ex1026;type node... 阅读全文
posted @ 2015-09-10 17:22 ROLL-THE-FIRST 阅读(205) 评论(0) 推荐(0) 编辑
摘要: 根源思想:贪心是否有必胜策略,取决于环上所有非0链的长度。因为对于一条非0链,只有当其长度为奇数时先手的人有必胜策略。由此,统计所有非0链的奇偶性。特别的,由于读入时已经破环为链了,需要再处理下断开的部分。就是要从头和尾同时计一次非0链长度。原因:不妨感性的思考一下,如果你不全部取走,我走反向边取走... 阅读全文
posted @ 2015-09-10 13:41 ROLL-THE-FIRST 阅读(127) 评论(0) 推荐(0) 编辑
摘要: 没什么好解释的,博弈论神题,代码都能看懂var m,n,sx,sy,sum:longint; map:array[0..40,0..40] of char; id:array[0..40,0..40] of longint; win,del,v... 阅读全文
posted @ 2015-09-10 13:36 ROLL-THE-FIRST 阅读(126) 评论(0) 推荐(0) 编辑
摘要: 题目类似于n个堆中取数的游戏,不过由于X的范围太大,我们不能在限定的时间内暴力推出所有的SG函数。不过,我们可以试着找规律,先打出前20的SG表:X1234567891011121314151617181920SG(X)010213042516370849210似乎只有X为偶数的规律:SG(X)=X... 阅读全文
posted @ 2015-09-10 13:34 ROLL-THE-FIRST 阅读(121) 评论(0) 推荐(0) 编辑
摘要: 基本的博弈论算法,通过几组手写测试数据可以发现其中的规律,用不到sg函数代码贴上var f:Array[0..1000] of longint; t,i,k,h,j,m,n:longint; begin readln(t); ... 阅读全文
posted @ 2015-09-10 13:28 ROLL-THE-FIRST 阅读(119) 评论(0) 推荐(0) 编辑
摘要: 有点机智题的意思,读入就不多说了,elon判断是否文末即可。需要注意的问题:1)初始值赋为maxlongint,之后一边读一边xor。2)判定:n是否为偶数——正确性显然,一旦堆数不为偶数先手必胜不多说,代码送上var n,m,x,i:longint;beginwhile not eoln dobe... 阅读全文
posted @ 2015-09-10 13:25 ROLL-THE-FIRST 阅读(177) 评论(0) 推荐(0) 编辑
摘要: spfa,不用多讲了吧,相当实用的BF队列优化算法,裸代码如下program spfa;var pre,last,other,long:array[0..1000001] of longint; d,short:array[0..1000001] of longint; ok:ar... 阅读全文
posted @ 2015-09-09 21:45 ROLL-THE-FIRST 阅读(674) 评论(0) 推荐(0) 编辑
摘要: bz上为数不多的模板题,致敬一下代码长度应该可以缩短,就不多说了,贴一个先var i,j,k,l,m,n,p,q,t,tt:longint; key,s,left,right:array[0..100005] of longint; procedure lro(var t:lon... 阅读全文
posted @ 2015-09-09 21:33 ROLL-THE-FIRST 阅读(133) 评论(0) 推荐(0) 编辑