08 2012 档案

摘要:编年史 打个表然后暴力就行,也可以蔡勒公式。 Codeconst first:array[1582..2012] of shortint=(5,6,0,2,3,4,5,0,1,2,3,5,6,0,1,3,4,5,6,1,2,3,4,6,0,1,2,4,5,6,0,2,3,4,5,0,1,2,3, 5,6,0,1,3,4,5,6,1,2,3,4,6,0,1,2,4,5,6,0,2,3,4,5,0... 阅读全文
posted @ 2012-08-29 00:02 ljlin 阅读(255) 评论(0) 推荐(0)
摘要:拯救海文星 一开始写了二分,发现可能爆double,猜到次数高了以后-1附近比较安全,就写了个牛顿迭代,其实开extended,二分也可以A的说。 CodeCONST FileName=''; delta=0.000001; oo=1E308;var a:array[0..10000] of longint; b:array[0..10000] of in... 阅读全文
posted @ 2012-08-27 00:28 ljlin 阅读(165) 评论(0) 推荐(0)
摘要:一道防AK的好题 不得不吐槽这个题目背景和算法。这就是一脑筋急转弯啊。 Codeprogram hard;CONST FileName='hard';var n,i,tot:longint; x,a,b,c,ans:array[1..500000] of int64; left,right:int64;function calc(a,b,c:int64):int64; ... 阅读全文
posted @ 2012-08-25 23:28 ljlin 阅读(490) 评论(0) 推荐(0)
摘要:sequence 没有压位的高精度居然A了,数据很善良嘛。标准解法是多次随机一个大素数取模来避免高精度。 Codevar t,i:longint;const f:array[1..1000] of integer=(2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97,101,103,107,109,... 阅读全文
posted @ 2012-08-25 18:03 ljlin 阅读(284) 评论(0) 推荐(0)
摘要:感觉看完题解能懂1,、2题,后悔比赛的时候没有多想一想。把这个比赛当成vain杯了,就第二题交了个样例,烦死了。 七夕祭 环形纸牌均分,O(n^2)暴力可得70,如果找中位数是O(n logn)就A掉了。需要注意的是,如果n为偶数中位数取中间那两个都可以。 Codetype data=array[0..1000000] of longint; Pointer=^data;var... 阅读全文
posted @ 2012-08-25 17:41 ljlin 阅读(415) 评论(0) 推荐(0)
摘要:Freda的烦恼 CF原题http://codeforces.com/contest/215/problem/D 贪心,只租一辆或者让所有人不要求赔偿。花费关于满载车辆是一个一次函数,题目相当于一次函数在一个区间里求最大值。Codetype Pointer1=^node1; node1=record v:integer; data:char; next:Pointer1; end; Pointer2=^node2; node2=record v:integer; next:Pointer... 阅读全文
posted @ 2012-08-22 23:08 ljlin 阅读(285) 评论(0) 推荐(0)
摘要:援助方案 坐标和图形数比较小,每处理一个图形暴力枚举可能在图形里的整点然后判断即可。圆用距离公式,矩形。。。,三角形用向量。注意圆可能覆盖到二三四象限。 Codeuses math;var f:array[-60..110,-60..110] of boolean; ans:int64; n,i:longint; ch:char;function cross(x1,y1,... 阅读全文
posted @ 2012-08-22 19:28 ljlin 阅读(199) 评论(0) 推荐(0)
摘要:滑动输入法 乱搞即可,不得吐槽题目数据,明明说单词长度小于等于10,结果有很多11的。DFS生成所有可能字符串还有50分,判断矩形与圆相交时半径忘记平方居然有90分,彻底无语。考试的时候还犹豫会不会太暴力,其实看到数据范围小就不应该害怕了。 Codevar x1,x2,y1,y2,count:array[1..20] of longint; c:array[1..20] of cha... 阅读全文
posted @ 2012-08-22 12:51 ljlin 阅读(244) 评论(0) 推荐(0)
摘要:柠檬超市 显然是要坑精度,所以不能存实数,把性价比的分子跟分母存下来,比较大小的时候移项即可。 Codevar ans,n,s,i:longint; w,c,a,b:qword;beginreadln(n,s);a:=0;b:=1;ans:=0;for i:=1 to n do begin readln(w,c); if(c<=s)and(w*b>c*a) then b... 阅读全文
posted @ 2012-08-21 15:14 ljlin 阅读(268) 评论(0) 推荐(0)
摘要:fibonacci N和M比较小,可以直接递推,还有同余。 CodeCONST FileName='fibonacci';var f:array[-1..1000] of longint; ans,n,i,m,p:longint;BEGINAssign(input,FileName+'.in');Assign(output,FileName+'.out');Reset(input);Re... 阅读全文
posted @ 2012-08-19 17:36 ljlin 阅读(231) 评论(0) 推荐(0)
摘要:计算系数 二项式定理。杨辉三角堆组数+快速幂。Noip的时候还没学二项式定理。。。 1 const p=10007;maxk=1000; 2 var a,b,k,n,m:longint; 3 function C(k,m:longint):longint; 4 var f:array[0..maxk,0..maxk] of longint; 5 i,j,n:longint; 6 begin 7 n:=k-m; 8 if(n=0)or(m=0)then exit(1); 9 fo... 阅读全文
posted @ 2012-08-13 21:31 ljlin 阅读(2337) 评论(1) 推荐(0)
摘要:题目:http://files.cnblogs.com/lijianlin1995/NOIP2011%E6%8F%90%E9%AB%98%E7%BB%84Day1.pdf CLJ神犇的NOIP题解应该是最广为流的,但是神犇就是神犇,追求复杂度,方法很高端。所以我写一点能过就行的算法。RQNOJ提交通过了。铺地毯 第一感觉二维线段树,发现只查询一个点,可以朴素。如果halt要注意文件操作。View Code 1 type Tdt=record 2 x,y,xl,yl:longint; 3 end; 4 var dt:array[1..10000] of Tdt; 5 ... 阅读全文
posted @ 2012-08-12 13:06 ljlin 阅读(1540) 评论(0) 推荐(0)
摘要:1 begin2 writeln('hello, world');3 end.Codebeginwriteln(0);end; 阅读全文
posted @ 2012-08-11 23:07 ljlin 阅读(119) 评论(0) 推荐(0)