USACO
文章平均质量分 74
Batman_
这个作者很懒,什么都没留下…
展开
-
usaco 2.3 zerosum 2008.6.21
usaco 2.3 zerosum 2008.6.21{ID: PROG: zerosumLANG: PASCAL}program p_zerosum;const r:array[1..9]ofchar=('1','2','3','4','5','6','7','8','9');var ans:array[1..9000]of string; f1,f2:t原创 2016-02-05 11:11:46 · 275 阅读 · 0 评论 -
usaco 5.4.2 2011.2.17
分析:动态规划状态设定 f[i,j] 为假定的甲乙两人,甲走到第i个城市,乙走到第j个城市时,两人走过的城市数目的和。 初始状态 f[1,1]=1 状态转移方程 f[j,i]=f[i,j]=max{f[i,k]+1}(k到j存在飞机航线,以及f[i,k]>0,就是说存在f[i,k]的走法,1 交换甲乙,则肯定有f[j,i]=f[i,j]。原创 2016-02-13 19:31:53 · 293 阅读 · 0 评论 -
usaco 4.4 Frame Up 2010.8.8
Frame Up Consider the following five picture framesshown on an 9 x 8 array: ........ ........ ........ ........ .CCC....EEEEEE.. ........ ........ ..BBBB.. .C.C....E....E.. D原创 2016-02-13 19:28:49 · 796 阅读 · 0 评论 -
usaco 4.4 Shuttle Puzzle 2010.8.8
Shuttle PuzzleTraditional The Shuttle Puzzle of size 3 consists of 3white marbles, 3 black marbles, and a strip of wood with 7 holes. The marblesof the same color are placed in the holes at the op原创 2016-02-13 19:25:56 · 341 阅读 · 0 评论 -
usaco 4.3 Letter Game 2010.8.8
Letter GameIOI 1995 Figure 1: Each of the 26 lowercase lettersand its value Letter games are popular at home and on television. In oneversion of the game, every letter has a value, and you collect原创 2016-02-13 19:22:05 · 415 阅读 · 0 评论 -
usaco 4.3 Street Race 2010.8.7
Street RaceIOI'95 Figure 1 gives an example of acourse for a street race. You see some points, labeled from 0 to N (here, N=9),and some arrows connecting them. Point 0 is the start of the race; poin原创 2016-02-13 19:08:12 · 311 阅读 · 0 评论 -
usaco 4.3 the primes 2010.8.6
/*ID: PROG: prime3LANG: C++*/ /** 先求出總和是合法的質數,枚舉斜角 + 井字,剩下的空格用減法,使用binary search查找 **/ /** Executing... Test 1: TEST OK [0.011 secs, 2948 KB] Test 2: TEST OK [0.011 secs, 2948 KB] Te原创 2016-02-13 19:07:12 · 331 阅读 · 0 评论 -
usaco 4.3 Buy Low, Buy Lower 2010.8.5
让人抓狂的题。。。。 还好usaco给你提供出错的数据,不然。。。。。囧。。。。 Buy Low, Buy LowerThe advice to "buy low" is halfthe formula to success in the stock market. But to be considered a greatinvestor you must also follo原创 2016-02-13 19:05:56 · 347 阅读 · 0 评论 -
usaco 3.4 Raucous Rockers 2010.8.4
Raucous RockersYou just inherited the rights to N (1 <=N <= 20) previously unreleased songs recorded by the popular group RaucousRockers. You plan to release a set of M (1 <= M <= 20) compact disks原创 2016-02-13 18:53:38 · 327 阅读 · 0 评论 -
usaco 3.4 Electric Fence 2010.8.4
Electric FenceDon Piele In this problem, `lattice points' in theplane are points with integer coordinates. In order to contain his cows, Farmer Johnconstructs a triangular electric fence by原创 2016-02-13 18:17:28 · 316 阅读 · 0 评论 -
usaco 5.4.2 2011.2.26
Usaco 5.4.2 tour 【关键字】双线程动态规划 【摘要】顺次排开的点,要求再不重复点和边的情况下,从最左边的点走到最右边的点,在回到最左边的点,所能经过最多的城市。 【正文】1.题目描述USACO/tour 描述你赢得了一场航空公司举办的比赛,奖品是一张加拿大环游机票。旅行在这家航空公司开放的最西边的城市开始,然后一直自西向东旅行,直原创 2016-02-13 19:43:41 · 349 阅读 · 0 评论 -
usaco 1.4 packrec 2008.5.6
usaco 1.4 packrec 2008.5.6 {ID: PROG: packrecLANG: PASCAL}var n,i,j,s1,s2,s3,s4,d1,d2,d3,d4,w,h:byte; sq:array[1..4,1..2]of byte; mr:word; re:array[0..10,1..2]of byte;//funct原创 2016-02-05 11:04:42 · 296 阅读 · 0 评论 -
usaco 1.5 numtri 2008.5.6
usaco 1.5 numtri 2008.5.6{ID: PROG: numtriLANG: PASCAL}{简单的dp}program p_numtri;const maxn=1000; fin='numtri.in';fout='numtri.out';var f:array[0..maxn,0..maxn]of longint;原创 2016-02-05 11:05:12 · 320 阅读 · 0 评论 -
usaco 2.2 preface 2008.6.20
usaco 2.2 preface 2008.6.20{ID: PROG: prefaceLANG: PASCAL}program p_preface;const z:array[1..7]ofchar=('I','V','X','L','C','D','M');var x:array[1..3000,0..5]of longint; f1,f2:tex原创 2016-02-05 11:11:20 · 364 阅读 · 0 评论 -
usaco 2.2 lamps 2008.6.20
usaco 2.2 lamps 2008.6.20{ID: PROG: lampsLANG: PASCAL}program p_lamps;var x:array[1..4,1..6]of string; y:array[1..4]of longint; a,s:string; i,j,k,w,n,t,l1,l2,c:long原创 2016-02-05 11:11:06 · 350 阅读 · 0 评论 -
usaco 2.2 runround 2008.6.20
usaco 2.2 runround 2008.6.20{简单的模拟,循环不要错了即可}{ID: PROG: runroundLANG: PASCAL}program p_runround;const r:array['1'..'9']oflongint=(1,2,3,4,5,6,7,8,9);var f1,f2:text; a:array['0'原创 2016-02-05 11:10:50 · 422 阅读 · 0 评论 -
usaco 2.1 hamming 2008.6.10
usaco 2.1 hamming 2008.6.10{ID: PROG: hammingLANG: PASCAL}program p_hamming;const g:array[1..8]oflongint=(1,2,4,8,16,32,64,128); fin='hamming.in';fout='hamming.out';var f1,f2:tex原创 2016-02-05 11:10:33 · 507 阅读 · 0 评论 -
usaco 2.1 castle 2008.5.30
usaco 2.1 castle 2008.5.30{ID: PROG: castleLANG: PASCAL}program p_castle;const fin='castle.in';fout='castle.out'; maxn=50;type code1=array[1..2]of longint; arr1=array[1..maxn,1原创 2016-02-05 11:10:17 · 373 阅读 · 0 评论 -
usaco 2.1 holstein 2008.5.20
usaco 2.1 holstein 2008.5.20{ID: PROG: holsteinLANG: PASCAL}program p_holstein;constfin='holstein.in';fout='holstein.out'; maxv=25;maxg=15;type arr1=array[1..maxg,1..maxv原创 2016-02-05 11:09:56 · 377 阅读 · 0 评论 -
usaco 2.1 sort3 2008.5.20
usaco 2.1 sort3 2008.5.20{ID: PROG: sort3LANG: PASCAL}program p_sort3;constmaxn=1000;fin='sort3.in';fout='sort3.out';type arr1=array[1..maxn]of integer;var a,g:arr1;n,i,j,sum:lo原创 2016-02-05 11:09:24 · 432 阅读 · 0 评论 -
usaco 2.1 frac1 2008.5.10
usaco 2.1 frac1 2008.5.10{ID: PROG: frac1LANG: PASCAL}program p_frac1;const fin='frac1.in';fout='frac1.out';type arr1=array[1..8000,1..2]of longint; arr2=array[1..8000]of real;原创 2016-02-05 11:09:07 · 488 阅读 · 0 评论 -
usaco 1.5 checker 2008.5.9
usaco 1.5 checker 2008.5.9{ID: PROG: checkerLANG: PASCAL}var t,up:longint; n:integer; r:array[1..13]of integer;procedure pp(a,b,c,d:longint);var pos,p:longint;procedure print;原创 2016-02-05 11:06:05 · 436 阅读 · 0 评论 -
usaco1.2 milk3 2009.10.22
usaco1.2 milk3 2009.10.22描述三个农民每天清晨5点起床,然后去牛棚给3头牛挤奶。第一个农民在300时刻(从5点开始计时,秒为单位)给他的牛挤奶,一直到1000时刻。第二个农民在700时刻开始,在 1200时刻结束。第三个农民在1500时刻开始2100时刻结束。期间最长的至少有一个农民在挤奶的连续时间为900秒(从300时刻到1200时刻),而最长的无人挤奶的连续时间原创 2016-02-05 13:59:27 · 386 阅读 · 0 评论 -
usaco1.2 dualpal 2009.10.22
usaco1.2 dualpal 2009.10.22{Tips:1.若为一位数,则无需判断,它一定是符合条件的,虽然没有处理,但别忘了输出。 特殊情况一定要特殊处理2.全局量,不要在函数或过程里再定义了,否则,其他的函数就用不成了。} {ID: PROG: dualpalLANG: PASCAL}program kakashi; type原创 2016-02-05 13:57:58 · 330 阅读 · 0 评论 -
usaco 3.3 2008.11.7
usaco 3.3题目+题解 2008.11.7game1:有如下一个双人游戏:N(2 编一个执行最优策略的程序,最优策略就是使自己能得到在当前情况下最大的可能的总分的策略。你的程序要始终为第二位玩家执行最优策略。题解:博弈问题,可以使用动态规划求解。状态定义:用F[i,j]表示第一个玩家先取时,在第i到第j的子序列中能拿到的最高分;用S[i][j]表示第i到第j的子序列中所有数字原创 2016-02-05 13:39:39 · 296 阅读 · 0 评论 -
usaco 1.4 clocks 2008.11.5
usaco 1.4 clocks 2008.11.5小结1.clocks-宽搜.pas 宽搜,只过了两组,就溢出了,本来想开大一点队列,但占用的空间太多,超出了测试的要求,又看到网上的人也用的宽搜,也是只过了两组,就放弃了宽搜。2.clocks-meiju.pas 然后看到了网上的结题报告,如下:由于操作4次等于没操作,所以只用枚举操作0次到操作3次这几种情况,枚举此时在最差情况下原创 2016-02-05 11:35:21 · 266 阅读 · 0 评论 -
usaco numgrid 2008.9.29
usaco numgrid 2008.9.29虽然说是六位数,但是,因为题中说道,会有000011 etc的形式,所以哈希就要从0 –999999而不是100000-999999,这点wa了{ID: PROG:numgridLANG:PASCAL}program p_numgrid;const fin='numgrid.in';fout='numgrid.out';原创 2016-02-05 11:24:31 · 625 阅读 · 0 评论 -
usaco 3.2 ratios 2008.7.20
usaco 3.2 ratios 2008.7.20 {ID: PROG:ratiosLANG:PASCAL}program p_radios; const fin='ratios.in';fout='ratios.out'; var x,y,z:array[1..3]of longint; flag,k,a,b,c,i,j,p,n1,n2,n3:l原创 2016-02-05 11:22:19 · 255 阅读 · 0 评论 -
usaco 3.2 fact4 2008.7.18
usaco 3.2 fact4 2008.7.18{ID: PROG: fact4LANG: PASCAL}program p_fact4;const fin='fact4.in';fout='fact4.out';var n,sum,p,i,nn,n2,n5:longint; f1,f2:text;begin assign(f1,fin);r原创 2016-02-05 11:21:23 · 339 阅读 · 0 评论 -
usaco 3.1 contact 2008.7.18
usaco 3.1 contact 2008.7.18{ID: PROG: contactLANG: PASCAL}program p_contact; const fin='contact.in';fout='contact.out';var f1,f2:text; yy,i,a,j,b,n,lr,l,p,ls,lg,xp,min:longint;原创 2016-02-05 11:20:24 · 649 阅读 · 0 评论 -
usaco 3.1 rect1 2008.7.18
usaco 3.1 rect1 2008.7.18{过了前十组,最后一组超强数据,过不了,如果要过的话,需要很大的空间,但是,占用的空间太大,则不予以测评}{ID: PROG: rect1LANG: PASCAL}program p_rect1;const fin='rect1.in';fout='rect1.out'; maxab=10原创 2016-02-05 11:19:19 · 322 阅读 · 0 评论 -
usaco 2.4 comehome 2008.7.16
usaco 2.4 comehome 2008.7.16{1.路是双向的,不是单项的。2.起始时读入数据出错,当读入一条路x[l1,l2]时,要从x[l2,l1]和x[l1,l2]中选择一条小的(当然,都要大于零),否则就不能得到最优的解。这点题目中似乎暗示了,我却没注意到}{ID: PROG:comehomeLANG:PASCAL}program p_come原创 2016-02-05 11:18:34 · 259 阅读 · 0 评论 -
usaco 3.1 agrinet 2008.7.16
usaco 3.1 agrinet 2008.7.16{ID: PROG: agrinetLANG: PASCAL} program pppp;const maxn=100; maxe=maxn*maxn;type edge=record a,b :longint; //边的2个顶点 len :longi原创 2016-02-05 11:17:56 · 273 阅读 · 0 评论 -
usaco 2.4 fracdec 2008.6.30
usaco 2.4 fracdec 2008.6.30{1.刚开始用商来作标识,不是一个好方法,后来用余数作标识。2.结果可能有很多位,记录结果的,不能用string,而应开一个数组3.多试几组数据,否则只能过一两组4.要先检查一下自己的程序无误,确保正确,再试数据,否则,只有一两个简单数据对了,是不能得满分的!}{ID: PROG: fracdecLANG:原创 2016-02-05 11:16:51 · 263 阅读 · 0 评论 -
usaco1.2 transform 2008.11.5
usaco1.2 transform 2008.11.5{ID: PROG: transformLANG: PASCAL}{刚开始,以为是一道很难的题,后来发现很简单。只是我把镜面反射弄错了,我以为是沿x轴对称,结果是沿y轴对称。其中,变量k还带成n了,找了半天的错,终于找到了 一定不要带错变量还有,const n=10,这个总是忘了把它从调试的值改成最大值}原创 2016-02-05 11:37:54 · 284 阅读 · 0 评论 -
usaco1.2 namenum 2008.11.5
usaco1.2 namenum 2008.11.5{Tips:1.对字典序的理解错误:eg:ABC ABU ACE 第二位是B时,第三位从小到大都排完后,第二位才排C。我理解错了。我以为是前面的字符串的每一位都大于后面字符串的相应位,这种理解是错误的。要注意读题的准确2.用了一个滚动数组,循环来纪录每次筛选的字符串。3.要求找出所有符合条件的结果,我只找出了一组就跳出循环了。原创 2016-02-05 11:39:43 · 311 阅读 · 0 评论 -
usaco1.2 palsquare 2008.11.5
usaco1.2 palsquare 2008.11.5{Tips:1.注意正序和逆序的问题,b进制下的平方因为是回文数,不必考虑这个问题。但原数输出时需要考虑转为b进制时的数字顺序,一定要看清楚输出的顺序2.题目中说,1-300的原数也要b进制输出,这点我忽略了。一定要看清楚题目让如何输出}{ID: PROG: palsquareLANG: PASCAL} p原创 2016-02-05 11:40:58 · 277 阅读 · 0 评论 -
usaco 3.3 range 2008.11.7
usaco 3.3 range 2008.11.7状态定义:G[i][j]为以(i,j)为左上角顶点的正方形的最大边长。边界条件:G[i][j]为初始读入的矩阵。状态转移方程:G[i][j]=min{ G[i+1][j] , G[i][j+1] ,G[i+1][j+1] } + 1;解析: G[i+1][j] ,G[i][j+1] , G[i+1][j+1]分别为(i,j)原创 2016-02-05 13:39:11 · 309 阅读 · 0 评论 -
usaco 3.3 shopping 2008.11.7
usaco 3.3 shopping 2008.11.7注意:1.物品的编号,不一定就是按照物品的输入顺序来的,一定要另开一个数组存储! 2.这个程序用到了重复读入文件,先读过不要的东西,读入下面的东西后,再重新开文件读入先前跳过的东西 3.要初始化为不用优惠的应用多少钱算法: 0 <= b <= 5,1 <= k<= 5,可用5*5*5*5*5的DP 每种买0~5原创 2016-02-05 13:38:51 · 288 阅读 · 0 评论 -
usaco 3.3 game1 2008.11.7
usaco 3.3 game1 2008.11.7问题:我的理解错误,他说是一个序列,放当成了分好多不同的行,是一个矩阵,实际上是一个线形的序列法一:贪心,过四组{ID: PROG: game1LANG: PASCAL}program p_game1;const fin='game1.in';fout='game1.out';var f1,f2:text;原创 2016-02-05 13:37:25 · 328 阅读 · 0 评论