排序:
默认
按更新时间
按访问量

noip2014

noip2014珠心算试题一(count.pas) 【问题描述】 珠心算是一种通过在脑中模拟算盘变化来完成快速运算的一种计算技术。珠心算训练,既能够开发智力,又能够为日常生活带来很多便利,因而在很多学校得到普及。 某学校的珠心算老师采用一种快速考察珠心算加法能力的测验方法。他随机生成一个正 ...

2015-07-10 11:31:35

阅读数:410

评论数:0

问题 C: 求最小公倍数

题目描述 输入两个正整数a和b,求a、b的最小公倍数。 输入 输入只有一行,两个正整数a、b(09)。 输出 输出只有一行,为a、b的最小公倍数。 样例输入 2 5 样例输出 10 提示 注意数据的范围!! var m,n:longint;...

2015-07-10 09:47:38

阅读数:242

评论数:0

问题 B: 求最大公约数

题目描述 求两个正整数m、n的最大公约数。 输入 输入只有一行,为两个正整数m,n(09)。 输出 输出只有一行,为m和n的最大公约数。 样例输入 3 6 样例输出 3 提示 求最大公约数一般用辗转相除法:在数学中,辗转相除法,又称欧几里得算法,辗转...

2015-07-10 09:47:36

阅读数:312

评论数:0

问题 A: 分解质因数(Primefac) [1*]

题目描述 分解质因数Prime factor(Primefac) 【问题】求正整数n的质因子,输出如下形式: 100=2*2*5*5 【输入】一个【输出】按题目要求的形式输出n的质因子 输入 输出 样例输入 样例输出 Const max=32000;var a:array...

2015-07-10 09:47:33

阅读数:431

评论数:0

问题 H: Frog青蛙的约会【浙江省选2002】

题目描述 Frog青蛙的约会 两只青蛙在网上相识了,它们聊得很开心,于是觉得很有必要见一面。它们很高兴地发现它们住在同一条纬度线上,于是它们约定各自朝着对方那里跳,直到碰面为止。可是它们出发之前忘记了一件很重要的事情,既没有问清楚对方的特征,也没有约定见面的具体位置。不过青蛙们都是很乐观...

2015-07-10 09:47:30

阅读数:324

评论数:0

问题 B: 排队打水问题(water) [2*]

题目描述 排队打水问题(water) 【问题】 有n个人排队到m个水龙头去打水,他们装满水桶的时间t1, t2 , ……, tn为整数且各不相同,应如何安排他们的打水顺序才能使他们花费的总时间最少? 【输人样例】4 2 ( n m ) 【输出样例】23(所有人的花费时间总和) 2 6 4 5 (...

2015-07-10 09:47:28

阅读数:441

评论数:0

问题 G: 均分纸牌

有 N 堆纸牌,编号分别为 1,2,…, N。每堆上有若干张,但纸牌总数必为 N 的倍数。可以在任一堆上取若于张纸牌,然后移动。  移牌规则为:在编号为 1 堆上取的纸牌,只能移到编号为 2 的堆上;在编号为 N 的堆上取的纸牌,只能移到编号为 N-1 的堆上;其他堆上取的纸牌,可以移到相邻左边或...

2015-07-10 09:47:25

阅读数:287

评论数:0

问题 A: [贪心算法]删数问题

删数问题 delete.pas/c/cpp 输入一个高精度的正整数n(【输入样例】1754384【输出样例】13 var s:string; i,n,j,k:longint;begin readln(s); readln(n); i:=1; for j:= 1 to n do  for i:...

2015-07-10 09:47:22

阅读数:368

评论数:0

2015年07月06日

var s:string; i,n,j:longint;begin readln(s); readln(n); i:=1; for j:= 1 to n do  for i:= 1 to length(s) do   if i=length(s) then    begin     delete(...

2015-07-10 09:47:20

阅读数:162

评论数:0

NOIP2010提高组复赛试题

1.机器翻译 (translate.pas/c/cpp) 【问题描述】 小晨的电脑上安装了一个机器翻译软件,他经常用这个软件来翻译英语文章。 这个翻译软件的原理很简单,它只是从头到尾,依次将每个英文单词用对应的中文含义来替换。对于每个英文单词,软件会先在内存中查找这个单词的中文含义,如果内存中有,...

2015-07-10 09:47:17

阅读数:295

评论数:0

问题 A: 银河英雄传说--并查集训练T2

题目描述2.银河英雄传说(galaxy.pas)【问题描述】   公元五八○一年,地球居民迁移至金牛座α第二行星,在那里发表银河联邦创立宣言,同年改元为宇宙历元年,并开始向银河系深处拓展。   宇宙历七九九年,银河系的两大军事集团在巴米利恩星域爆发战争。泰山压顶集团派宇宙舰队司令莱因哈特率领十万余...

2015-07-10 09:47:14

阅读数:404

评论数:0

问题 B: 亲戚

题目描述        或许你并不知道,你的某个朋友是你的亲戚。他可能是你的曾祖父的外公的女婿的外甥女的表姐的孙子。如果能得到完整的家谱,判断两个人是否亲戚应该是可行的,但如果两个人的最近公共祖先与他们相隔好几代,使得家谱十分庞大,那么检验亲戚关系实非人力所能及。在这种情况下,最好的帮手就是计算机...

2015-07-10 09:47:11

阅读数:204

评论数:0

分治求最大最小

var x:array[1..1000]of integer;    i,n,maxx,minn:integer;procedure pd(r1, r2:integer;var maxx,minn:integer);  var max1,min1,max2,min2,d:integer;begin...

2015-07-10 09:47:09

阅读数:148

评论数:0

高精乘

vari,j,la,lb,len:integer;s1,s2:string;m:longint;a,b,c:array[1..250] of integer;beginreadln(s1);la:=length(s1);readln(s2);lb:=length(s2);for i:=1 to l...

2015-07-10 09:47:06

阅读数:194

评论数:0

高精减

代码一:const max=200;var  s,sa,sb:string;  a,b:array[1..max] of integer;  len,la,lb, i:integer;  fh:char;begin   readln(sa);   readln(sb);   if sa=sb th...

2015-07-10 09:47:03

阅读数:263

评论数:0

高精度加法

代码一:program gaojingjia;const max=200;var  sa,sb:string;  b:array[1..max] of integer;  a:array[1..max+1] of integer;  len,la,lb, i:integer;beginreadln...

2015-07-10 09:47:00

阅读数:194

评论数:0

问题 D: 合唱队形

题目描述N位同学站成一排,音乐老师要请其中的(N-K)位同学出列,使得剩下的K位同学排成合唱队形。  合唱队形是指这样的一种队形:设K位同学从左到右依次编号为1, 2, …, K,他们的身高分别为T1, T2, …, TK,则他们的身高满足T1 Ti+1 > … > TK (1≤i≤...

2015-07-10 09:46:57

阅读数:204

评论数:0

最后一题

program problem_f;type int=longint;const inf='f.in'; outf='f.out'; mapxy1=5; maxn=mapxy1*mapxy1; maxrinhp=16; maxt=34; dx:array[0..3] of int=(-1,0,1,...

2015-07-10 09:46:54

阅读数:184

评论数:0

问题 C: 求最长上升序列

题目描述      设有由n个不相同的整数组成的数列,记为:b(1)、b(2)、……、b(n)且b(i)j),若存在i1       例如13,7,9,16,38,24,37,18,44,19,21,22,63,15。例中13,16,18,19,21,22,63就是一个长度为7的不下降序列,同时也...

2015-07-10 09:46:54

阅读数:232

评论数:0

最后一题

program problem_f;type int=longint;const inf='f.in'; outf='f.out'; mapxy1=5; maxn=mapxy1*mapxy1; maxrinhp=16; maxt=34; dx:array[0..3] of int=(-1,0,1,...

2015-07-10 09:46:52

阅读数:135

评论数:0

提示
确定要删除当前文章?
取消 删除
关闭
关闭