摘要: inc(i) 使i:=i+1; inc(i,b) 使i:=i+b; dec(i) 使i:=i-1; dec(I,b) 使I:=I-b; abs(x) 求x的绝对值 例:abs(-3)=3 chr(x) 求编号x对应的字符。例:chr(65)=’A’ chr(97)=’a’ chr(48... 阅读全文
posted @ 2015-10-01 14:36 Kairos2000 阅读(267) 评论(0) 推荐(0) 编辑
摘要: 题目描述 Description恶魔猎手尤迪安野心勃勃,他背叛了暗夜精灵,率领深藏在海底的娜迦族企图叛变。守望者在与尤迪安的交锋中遭遇了围 杀,被困在一个荒芜的大岛上。为了杀死守望者,尤迪安开始对这个荒岛施咒,这座岛很快就会沉下去。到那时,岛上的所有人都会遇难。守望者的跑步速度为 17m/s,以这样... 阅读全文
posted @ 2015-09-05 19:47 Kairos2000 阅读(336) 评论(0) 推荐(0) 编辑
摘要: 题目描述 DescriptionHanks 博士是BT (Bio-Tech,生物技术) 领域的知名专家。现在,他正在为一个细胞实验做准备工作:培养细胞样本。Hanks 博士手里现在有N 种细胞,编号从1~N,一个第i 种细胞经过1 秒钟可以分裂为Si 个同种细胞(Si 为正整数)。现在他需要选取某种... 阅读全文
posted @ 2015-09-05 19:39 Kairos2000 阅读(382) 评论(0) 推荐(0) 编辑
摘要: 题目描述Description给定A、B、C三根足够长的细柱,在A柱上放有2n个中间有孔的圆盘,共有n个不同的尺寸,每个尺寸都有两个相同的圆盘,注意这两个圆盘是不加区分的(下图为n=3的情形)。现要将这些圆盘移到C柱上,在移动过程中可放在B柱上暂存。要求:(1)每次只能移动一个圆盘;(2)A、B、C... 阅读全文
posted @ 2015-09-05 16:02 Kairos2000 阅读(389) 评论(0) 推荐(0) 编辑
摘要: 题目描述Description给定一个正整数k(3≤k≤15),把所有k的方幂及所有有限个互不相等的k的方幂之和构成一个递增的序列,例如,当k=3时,这个序列是:1,3,4,9,10,12,13,…(该序列实际上就是:3^,3^1,3^0+3^1,3^2,3^0+3^2,3^1+3^2,3^0+3^... 阅读全文
posted @ 2015-09-05 16:00 Kairos2000 阅读(153) 评论(0) 推荐(0) 编辑
摘要: 题目描述DescriptionJam是个喜欢标新立异的科学怪人。他不使用阿拉伯数字计数,而是使用小写英文字母计数,他觉得这样做,会使世界更加丰富多彩。在他的计数法中,每个数字的位数都是相同的(使用相同个数的字母),英文字母按原先的顺序,排在前面的字母小于排在它后面的字母。我们把这样的“数字”称为Ja... 阅读全文
posted @ 2015-09-05 15:54 Kairos2000 阅读(247) 评论(0) 推荐(0) 编辑
摘要: 题目描述Description辰辰是个天资聪颖的孩子,他的梦想是成为世界上最伟大的医师。为此,他想拜附近最有威望的医师为师。医师为了判断他的资质,给他出了一个难题。医师把他带到一个到处都是草药的山洞里对他说:“孩子,这个山洞里有一些不同的草药,采每一株都需要一些时间,每一株也有它自身的价值。我会给你... 阅读全文
posted @ 2015-09-05 15:50 Kairos2000 阅读(244) 评论(0) 推荐(0) 编辑
摘要: 题目描述Description在n×n格的棋盘上放置彼此不受攻击的n个皇后。按照国际象棋的规则,皇后可以攻击与之处在同一行或同一列或同一斜线上的棋子。n后问题等价于再n×n的棋盘上放置n个皇后,任何2个皇后不妨在同一行或同一列或同一斜线上。输入描述Input Description给定棋盘的大小n ... 阅读全文
posted @ 2015-09-05 15:44 Kairos2000 阅读(167) 评论(0) 推荐(0) 编辑
摘要: 深度优先搜索(90分)var n,m,k,S,T,i,j,u,v,d,now,res:longint; c,vt,vc:array[0..100]of longint; a,dist:array[0..100,0..100]of longint;procedure DFS(i:lo... 阅读全文
posted @ 2015-09-05 15:39 Kairos2000 阅读(282) 评论(0) 推荐(0) 编辑
摘要: 非常有用的一些代码//求阶乘function fac(n:longint):longint;var i:longint;begin fac:=1; for i:=2 to n do fac:=fac*i;end;//素数判断function prime(a:longint):boolea... 阅读全文
posted @ 2015-09-05 15:29 Kairos2000 阅读(271) 评论(0) 推荐(0) 编辑