- 博客(30)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 2010年10月27日 总结
今天做了许多题，不过感到越来越迷茫了，不知道自己在做什么，该做什么。今天下午没去学校，而是选择了在家。事实上，我觉得南校还是最该去的地方，毕竟，那里还有牛们...而这里，只是一些...看到工长君的微博，于是想把那些话再贴过来。 不应该放弃 直到失去的那一刻 我们见过多少~ 在奋斗中无奈放弃的人 无责任随意来去的人 热情支持甚至揣着零钱来购买仙剑的人 能忘记他们的脸吗？ 不能！ 为了他们 我们要坚持下去 因为有这样的~义务~ 哪怕环境恶劣 但是 谁说今日不能认认真真地做仙剑四 不是吗
2010-10-27 22:18:00
455
原创 2010年10月26日 总结
然后才是今天的。。。今天的呢，题有些少，主要看了看那些PDF，于是乎...今天没有刷题！总结一下：首先是SPFA：上代码：procedure spfa(s:longint);var i,h,d,w,st:longint;begin fillchar(hash,sizeof(hash),false); hash[s]:=true; h:=0;d:=1; q[1]:=s; repeat inc(h); st:=q[(h-1)mod n +1];
2010-10-26 23:55:00
405
原创 2010年10月25日 总结
<br />额...昨天有事，今早更新<br /> <br />今天是星期一，嗯嗯，为什么昨天没有呢？<br />答客曰：星期天休息...XD（众人：CF！！！）<br />好，今天的呢，有7道题：<br />谁拿了最多奖学金<br />过河<br />拔河比赛<br />数的计算<br />过河卒<br />不高兴的津津<br />FBI树<br /> <br />谁拿了最多奖学金：基本的字符串处理。分析略...<br />var s:string; n,i,p,q,total,max,max
2010-10-26 11:31:00
376
原创 2010年10月23日 总结
<br />额，由于某种原因，导致昨天没写总结。今天的：<br /> <br />2^k进制数<br />采药<br />英语课句型转换<br />猪王争霸<br />提示问题<br />自然的谜语<br />扫雷<br /> <br />Fish学数学 之归并版<br /> <br />2^k进制数：比较难，涉及到组合数学及高精度。<br />program rq8;type arr=array[0..200] of longint;var k,w,maxn,i,tmp:longi
2010-10-23 23:02:00
354
原创 2010年10月21日 总结
额，今天一整天都好困的说...于是只有6道...还有不少水题、彻底的纯粹的水题...好的上题！152 奶牛式乘法142 拜年370 局域网137 找试场144 伯虎点秋香224 手机（为方便查阅，前面的序号是题号） 奶牛式乘法：纯水之一，简单的字符串处理program rq152;var s,a,b:string; i,j:longint; ans:qword;begin readln(s); a:=copy(s,1,pos(' ',s)-1); b:=copy(
2010-10-21 23:28:00
392
1
原创 2010年10月19日 总结
继续...今天：种菊监考老师种菊：题目类型为模拟，不过好像很水的那种。program rq122;var n:longint;begin readln(n); n:=n mod 16; case n of 1,8,11,14:writeln('hong'); 2,5,12,15:writeln('bai'); 3,6,9,0:writeln('qing'); 4,7,10,13:writeln('huang'); end;
2010-10-19 08:43:00
299
原创 2010年10月17日 总结
<br />初赛考完了，考得一塌糊涂。。。。<br /> <br />今天在RQ上注册了个新的账号，以后一个月主要就是在这里做题了。<br /> <br />今天做的题目：<br />命名的随机数<br />开心的金明<br />Jam的计数法<br />数列<br />能量项链<br />金明的预算方案<br />作业调度方案<br />计数的梦<br />陶陶摘苹果<br /> <br />明明的随机数：不多说，桶排序。<br />program rq1;var a:array[1..1000
2010-10-17 22:57:00
310
原创 倒计时50天
<br />今天，2010年10月2日。<br />距离复赛只有50天了呢！<br />明天起就要停课了...<br />赶紧抓紧了。
2010-10-02 21:02:00
324
原创 这个，解决问题了
不容易，原来在bbs上发个帖就行了可以继续写了。额，几个月中，也写了不少题，学了不少知识，可惜没写在上面。进入高三啦，竞赛结束后一定好好学习！发点不务正业的东西：关于某报纸极不负责任的言论，我亦是...十分恼怒。现在网上关于这的东西太多了，我只是说一点自己的看法。我是从2009年的八月份开始关注的，当然当时还是烛龙RPG的时代。我才突然发现倒闭后的上软又有新的项目了。在2009年的ChinaJoy上，一个单机游戏的宣传动画居然出现在那里，这是不可思议的。在网游的天下，你在一味地做单机，让我想起了仙四便是与天
2010-08-31 13:31:00
497
原创 USACO 1.4-Packing Rectangles
嗯...好久没更新了...期末考试相当郁闷。好，继续下一道：铺放矩形方块大体思路：这题...嗯，确实ws，估计这是chapter1唯一一个超过100行代码的程序吧。虽说毫无思路可言，不过有几种情况还是需要我们去想的。代码如下：
2010-07-02 16:31:00
381
原创 USACO 1.3-Prime Cryptarithm
<br />题目（From NOCOW）<br />暴力的枚举...<br />{ID:asdcyt01PROB:crypt1LANG:PASCAL}program crypt1(input,output);var n,i,i1,i2,i3,j1,j2,tot,x,y,z,num:longint; a:set of byte;function analyze(x:longint):boolean;var y:longint;begin while x>0
2010-06-27 16:07:00
321
原创 USACO 1.3-Calf Flac
<br />题目在这里<br />这道题折腾了我好几天！<br />先用搜索写了一个代码，结果搜索写sd了，竟然TLE！<br />只好改写DP。<br />方程：<br />f[i]:=f[i-1]+2(a[i]=a[i-f[i-1]-1] )<br />f[i]:=2(a[i]=a[i-1]) <br />f[i]:=1(else)<br />代码在此：<br />{ID:asdcyt01PROB:calfflacLANG:PASCAL}var n,i,len,max,maxi
2010-06-27 16:05:00
326
原创 USACO 1.3-Barn Repair
<br />题目<br />先用一块木板，把全部的牛棚都围上，然后把最大的空缺（没牛的地方）拆掉，如此执行n-1次，计算出最后剩下的总长度。<br />{ID:asdcyt01PROB:barn1LANG:PASCAL}program barn1(input,output);var a:array[1..200]of boolean; b:array[1..200]of longint; n,m,c,k,p,i:longint; aa,bb:boolean;
2010-06-25 13:20:00
312
原创 USACO 1.3-Mixing Milk
<br />题目在这里：http://www.nocow.cn/index.php/Translate:USACO/milk<br />水题一只，不解释，直接上代码：<br />{ID:asdcyt01PROB:milkLANG:PASCAL}program milk(input,output);var n,m,i,total,totalmoney:longint; a,p:array[1..5000]of longint;procedure sort(l,r:longi
2010-06-24 13:45:00
375
原创 USACO 1.2-Palindromic Squares
<br />题目<br />主要就是进制的转换，把这块写清就行了。<br />代码：<br />{ID:asdcyt01PROB:palsquareLANG:PASCAL}program palsquare(input,output);var n,i,j:longint; ans,b:longint;function convert(x,b:longint):string;var i,j:longint; s1:string; s2:array[
2010-06-22 14:14:00
294
原创 USACO 1.2-Name That Number
<br />题目<br />依次读入字典文件中的名字然后判断是否可行，<br />首先是名字的长度，然后依次判断各位是否合法，不合法直接跳过，合法则输出。<br />如果total为0则输出NONE。<br />代码如下：<br />{ID:asdcyt01PROB:namenumLANG:PASCAL}program namenum(input,output);var n,i,total:longint; data:text; ch:array[1..12]of int
2010-06-21 14:00:00
373
原创 USACO 1.2-Transformations
看题目请猛击这里重要的公式：顺时针旋转90度：c[j,n-i+1]:=a[i,j];水平方向的翻转：c[i,n-j+1]:=a[i,j];然后知道了这些就能把代码写出来了。七种情况依次模拟转换过程。代码（由于USACO出了一些诡异的问题，所以正确性还没能得到验证）：{ID:asdcyt01PROB:transformLANG:PASCAL}program transform(input,output);type formtype=array[1..10,1..10]of char;
2010-06-19 13:29:00
292
原创 USACO 1.2-Milking Cows
题目：Milking Cows我是用的简单的模拟，总之先AC了。{ID:asdcyt01PROB:milk2LANG:PASCAL}program milk2(input,output);var n,i,j,b,e:longint; count1,count2,maxn,minn,max,max2:longint; a:array[1..1000000]of boolean;begin assign(input,'milk2.in');reset(input);
2010-06-17 13:45:00
401
原创 USACO 1.1-Broken Necklace
<br />题目看这里：Broken Necklace<br /> <br />这道题我ws地写了52行的枚举...<br />{ID:asdcyt01PROB:beadsLANG:PASCAL}program beads(input,output);var n,i,x,y,max,b1,b2:longint; xx,yy:longint; a:array[-1000..1000]of char; b:array[-1000..1000]of longint;be
2010-06-15 13:26:00
344
原创 USACO 1.1-Friday the Thirteenth
<br />题目看这里：http://www.nocow.cn/index.php/Translate:USACO/friday<br />相当简单，一年一年挨个搜索13号是星期几然后inc就可以了。<br />上代码：<br />{ID:asdcyt01PROB:fridayLANG:PASCAL}program friday(input,output);var n,i,y,m,d:longint; a:array[0..6]of longint; dayue:set
2010-06-13 13:38:00
318
原创 A good beginning
刚注册了一个CSDN博客，以后就在这里写程序了。距NOIP还有5个月时间，当然这只是一个小的阶段，我会把所有写过的程序全部写在这里。先来个Hello World练练CSDN是怎么用的。program hello_world(input,output);begin writeln('Hello World!');end.
2010-06-02 19:00:00
304
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人