- 博客(22)
- 收藏
- 关注
RSS订阅原创 2016 NOIP第三题 海港
题目： 代码：const maxn=300000;var x,time,k,ans,i,j,ii,n,head,tail:longint; hash:array[1..maxn]of longint; man:array[1..2,1..maxn]of longint;begin readln(n); head:=1; tail:=1; for i:
2016-12-23 22:18:11
924
原创 NOIP2016 第二题 回文日期
题目： 题解：我们可以先做出60%，这很简单：只要判断回文； 后40%判断日期。代码：var date1,date2,i,j,k,ans,t,y1,y2,m1,m2,d1,d2,xm,xd,ym,yd:longint; a,y:array[0..13] of integer;procedure main(dt:longint);var t:boolean; i:longin
2016-12-23 22:10:08
740
原创 2016 NOIP第三题 海港
题目： 代码：const maxn=300000; var x,time,k,ans,i,j,ii,n,head,tail:longint; hash:array[1..maxn]of longint; man:array[1..2,1..maxn]of longint; begin readln(n); head:=1; tail:=1;
2016-12-23 22:06:46
677
原创 NOIP2016 第二题 回文日期
题目：题解：我们可以先做出60%，这很简单：只要判断回文； 后40%判断日期。代码：var date1,date2,i,j,k,ans,t,y1,y2,m1,m2,d1,d2,xm,xd,ym,yd:longint; a,y:array[0..13] of integer;procedure main(dt:longint);var t:boolean; i:longint;
2016-12-23 22:00:29
2142
原创 2016 NOIP第一题 买铅笔
题目：题目太水 不解析代码：var a,b:array[0..4] of integer; n,s,max,i:longint;begin read(n); max:=maxlongint; for i:=1 to 3 do begin read(a[i],b[i]); s:=n div a[i]; if n mod a[i]<>0 then inc
2016-12-23 21:51:46
950
原创 2016 NOIP第一题 买铅笔
题目：题解：很水，不做解析。代码：var a,b:array[0..4] of integer; n,s,max,i:longint;begin read(n); max:=maxlongint; for i:=1 to 3 do begin read(a[i],b[i]); s:=n div a[i]; if n mod a[i]<>0 then
2016-12-23 21:47:58
1008
原创 最优乘车(normal) SSL 1194
题目：Description H城是一个旅游胜地，每年都有成千上万的人前来观光。为方便游客，巴士公司在各个旅游景点及宾馆，饭店等地都设置了巴士站并开通了一些单程巴上线路。每条单程巴士线路从某个巴士站出发，依次途经若干个巴士站，最终到达终点巴士站。 一名旅客最近到H城旅游，他很想去S公园游玩，但如果从他所在的饭店没有一路已士可以直接到达S公园，则他可能要先乘某一路巴士坐几站，再下来换乘同一
2016-12-23 21:31:20
789
原创 翻币问题 SSL 1457
题目：Description 有N个硬币(6<=N<=20000)全部正面朝上排成一排，每次将其中5个硬币翻过来放在原位置，直到最后全部硬币翻成反面朝上为止。试编程找出步数最少的翻法，输出最少步数及翻法。Input 从键盘输入一个正整数N(6<=N<=20000)，表示硬币的数量。Output 第1行：一个整数，表示最少步数 第2行至最后一行：先是一个整数，表示步骤序号（从0开始编号），后接一个
2016-12-23 20:15:39
597
转载 欢迎使用CSDN-markdown编辑器
欢迎使用Markdown编辑器写博客本Markdown编辑器使用StackEdit修改而来，用它写博客，将会带来全新的体验哦：Markdown和扩展Markdown简洁的语法代码块高亮图片链接和图片上传LaTex数学公式UML序列图和流程图离线写博客导入导出Markdown文件丰富的快捷键快捷键加粗 Ctrl + B 斜体 Ctrl + I 引用 Ctrl
2016-12-23 18:22:19
387
原创 一个惊喜
千万不要往下看。。。。。。千万不要往下看。。。。。。千万不要往下看。。。。。。千万不要往下看。。。。。。千万不要往下看。。。。。。千万不要往下看。。。。。。千万不要往下看。。。。。。千万不要往下看。。。。。。千万不要往下看。。。。。。千万不要往下看。。。。。。千万不要往下看。。。。。。千万不要往下看。。。。。。千万不要往下看。。。。。。千万不要往下看。。。。。。千万不要往下看。。。。。。千万不要往下
2016-12-22 17:01:25
476
原创 光荣的梦想 ssl 2323
题目：Description Prince对他在这片大陆上维护的秩序感到满意，于是决定启程离开艾泽拉斯。在他动身之前，Prince决定赋予King_Bette最强大的能量以守护世界、保卫这里的平衡与和谐。在那个时代，平衡是个梦想。因为有很多奇异的物种拥有各种不稳定的能量，平衡瞬间即被打破。KB决定求助于你，帮助他完成这个梦想。 一串数列即表示一个世界的状态。 平衡是指这串数列以升序排列。而从一串无序
2016-12-22 16:55:39
725
原创 骑士旅行 ssl 1456
题目：Description 在一个n m 格子的棋盘上，有一只国际象棋的骑士在棋盘的左下角 (1;1)(如图1)，骑士只能根据象棋的规则进行移动，要么横向跳动一格纵向跳动两格，要么纵向跳动一格横向跳动两格。 例如， n=4，m=3 时，若骑士在格子(2;1) (如图2), 则骑士只能移入下面格子：(1;3),(3;3) 或 (4;2)；对于给定正整数n，m，I，j值 (m,n<=50,I<=n,j
2016-12-22 16:40:55
524
原创 电子老鼠闯迷宫 SSL1455
题目：如下图12×12方格图，找出一条自入口（2，9）到出口（11，8）的最短路径。 Sample Input 12 //迷宫大小 2 9 11 8 //起点和终点 1 1 1 1 1 1 1 1 1 1 1 1 //邻接矩阵，0表示通，1表示不通 1 0 0 0 0 0 0 1 0 1 1 1 1 0 1 0 1 1 0 0 0 0 0 1 1 0 1 0 1 1 0 1 1 1
2016-12-21 17:30:45
534
原创 黑白棋子的移动(normal) ssl 1310
这道题本质上是递归n=7 step 0：ooooooo*******– step 1：oooooo–*****o step 2：oooooo******–o* step 3：ooooo–****o*o step 4：ooooo*****–o*o* step 5：oooo–***o*o*o step 6：oooo****–o*o*o* step 7：ooo–**o*o*o*o ste
2016-12-20 16:51:50
719
原创 小车问题 SSL1668
甲、乙同时从A地出发要尽快到达B地。出发时A地有带一人的小车。可是这辆车除了驾驶员外只能带一个人。又知甲、乙两人步行速度相同。问怎样得用小车才能使两个尽快同时到达。var l,a,b,x:double;begin readln(l,a,b); x:=(a+b)*l/(b+3*a); writeln((x/b+(l-x)/a):0:4)end.
2016-12-17 09:49:39
570
原创 取余运算 SSL1422
题目：输入b,p,k的值，求b^p mod k 的值，其中b,p,k*k都是长整形。这道题的难点是这几个数都是longint，如果硬算一定会超时。但A*B mod K=(a mod k)*(b mod k) mod k.我们把它转二进制，a[i]=1 则*b。代码如下：var a:array[0..2501] of integer; b,p,k,t,r
2016-12-17 08:36:41
549
原创 麦森数 SSL1030
这道题用公式输出位数分治做乘方var n:longint; i,j:longint; b:array[1..500] of longint; a:array[1..1000] of longint;procedure solve(n:longint);begin if n=0 then exit; solve(n div 2); for i
2016-12-16 19:45:50
397
原创 求逆序对数 SSL 1198
这道题用归并排序改一下就行了var a:array[1..40000]of longint; ans,i,n:longint;procedure gb(l,mid,r:longint);var m,n:array[1..20000]of longint; i,j,k:longint;begin for k:=l to mid do m[k-l+1]:
2016-12-15 17:06:38
417
原创 归并排序（自上向下）
var i:integer;begin readln(n); for i:=1 to n do read(a[i]);end;procedure print;var i:integer;begin for i:=1 to n do write(a[i],' ');end;procedure gb(l,mid,r:longint);
2016-12-14 16:44:00
416
原创 美元汇率
var ans:real; n,i:longint; a:array[0..101] of longint;begin read(n); for i:=1 to n do read(a[i]); ans:=100; for i:=1 to n-1 do if a[i]>a[i+1] then ans:=ans*a[i]/a[i+1]; write(an
2016-12-08 15:39:06
671
原创 零件分组
var l,w,fz:array [0..10010] of longint; n,i,j,t,ans:longint;begin readln(n); for i:=1 to n do read(l[i],w[i]); for i:=1 to n-1 do for j:=i+1 to n do if (l[i]>l[j]) or (l[i]=l[j])
2016-12-08 15:34:39
1721
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人