pascal 作业
文章平均质量分 52
SSL_zeng_yu
这个人很懒什么都没留下
展开
-
P1803 凌乱的yyy 洛谷
题目背景快noip了,yyy很紧张!题目描述现在各大oj上有n个比赛,每个比赛的开始、结束的时间点是知道的。yyy认为,参加越多的比赛,noip就能考的越好(假的)所以,他想知道他最多能参加几个比赛。由于yyy是蒟蒻,如果要参加一个比赛必须善始善终,而且不能同时参加2个及以上的比赛。输入输出格式输入格式:第一行是一个整数n原创 2017-02-03 19:11:14 · 478 阅读 · 1 评论 -
控制公司
题目描述有些公司是其他公司的部分拥有者,因为他们获得了其他公司发行的股票的一部分。(此处略去一句废话)据说,如果至少满足了以下三个条件之一,公司A就可以控制公司B了:公司A = 公司B。公司A拥有大于50%的公司B的股票。公司A控制K(K >= 1)个公司,记为C1, ..., CK,每个公司Ci拥有xi%的公司B的股票,并且x1+ .... + xK > 50原创 2017-02-11 14:41:04 · 342 阅读 · 0 评论 -
花生采摘
题目描述鲁宾逊先生有一只宠物猴,名叫多多。这天,他们两个正沿着乡间小路散步,突然发现路边的告示牌上贴着一张小小的纸条:“欢迎免费品尝我种的花生!――熊字”。鲁宾逊先生和多多都很开心,因为花生正是他们的最爱。在告示牌背后,路边真的有一块花生田,花生植株整齐地排列成矩形网格(如图1)。有经验的多多一眼就能看出,每棵花生植株下的花生有多少。为了训练多多的算术,鲁宾逊先生说:“你先找出花生原创 2017-01-12 21:06:16 · 229 阅读 · 0 评论 -
乒乓球
题目背景国际乒联现在主席沙拉拉自从上任以来就立志于推行一系列改革,以推动乒乓球运动在全球的普及。其中11分制改革引起了很大的争议,有一部分球员因为无法适应新规则只能选择退役。华华就是其中一位,他退役之后走上了乒乓球研究工作,意图弄明白11分制和21分制对选手的不同影响。在开展他的研究之前,他首先需要对他多年比赛的统计数据进行一些分析,所以需要你的帮忙。题目描述华华通过以下方原创 2017-01-12 19:02:15 · 590 阅读 · 0 评论 -
均分纸牌
题目描述有 N 堆纸牌,编号分别为 1,2,…, N。每堆上有若干张,但纸牌总数必为 N 的倍数。可以在任一堆上取若于张纸牌,然后移动。移牌规则为:在编号为 1 堆上取的纸牌,只能移到编号为 2 的堆上;在编号为 N 的堆上取的纸牌,只能移到编号为 N-1 的堆上;其他堆上取的纸牌,可以移到相邻左边或右边的堆上。现在要求找出一种移动方法,用最少的移动次数使每堆上纸牌数都一样原创 2017-01-12 19:00:38 · 348 阅读 · 0 评论 -
进制转换 pascal.
题目描述我们可以用这样的方式来表示一个十进制数: 将每个阿拉伯数字乘以一个以该数字所处位置的(值减1)为指数,以10为底数的幂之和的形式。例如:123可表示为 1*10^2+2*10^1+3*10^0这样的形式。与之相似的,对二进制数来说,也可表示成每个二进制数码乘以一个以该数字所处位置的(值-1)为指数,以2为底数的幂之和的形式。一般说来,任何一个正整数R或一个负整数-R都可以被原创 2017-01-12 15:40:40 · 981 阅读 · 0 评论 -
P1200 [USACO1.1]你的飞碟在这儿Your Ride Is He…
题目描述众所周知,在每一个彗星后都有一只UFO。这些UFO时常来收集地球上的忠诚支持者。不幸的是,他们的飞碟每次出行都只能带上一组支持者。因此,他们要用一种聪明的方案让这些小组提前知道谁会被彗星带走。他们为每个彗星起了一个名字,通过这些名字来决定这个小组是不是被带走的那个特定的小组(你认为是谁给这些彗星取的名字呢?)。关于如何搭配的细节会在下面告诉你;你的任务是写一个程序,通过小组名和原创 2017-02-08 10:53:47 · 435 阅读 · 0 评论 -
P2142 高精度减法
题目描述高精度减法输入输出格式输入格式:两个数(第二个可能比第一个大)输出格式:结果(是负数要输出负号)输入输出样例输入样例#1:21输出样例#1:1说明无const maxn=10000;var i,j,k,n,m,l原创 2017-02-08 10:52:29 · 416 阅读 · 0 评论 -
装载问题ACC pascal程序
2001年分区联赛普级组之四 装箱问题Time Limit:1000MS Memory Limit:65536KTotal Submit:391 Accepted:213 Description 有一个箱子容量为V(正整数,0<=V<=20000),同时有n个物品(0<n<=30=,每个物品有一个体积(正整数)。 要求n个物品中,任取若干个装入箱内,使箱子的剩余空间为最小。原创 2016-12-02 20:14:44 · 534 阅读 · 0 评论 -
宇宙总统 洛谷p1781
题目背景宇宙总统竞选题目描述地球历公元6036年,全宇宙准备竞选一个最贤能的人当总统,共有n个非凡拔尖的人竟选总统,现在票数已经统计完毕,请你算出谁能够当上总统。输入输出格式输入格式:president.in第一行为一个整数n,代表竞选总统的人数。接下来有n行,分别为第一个候选人到第n个候选人的票数。输出格式:原创 2017-01-13 10:39:16 · 242 阅读 · 0 评论 -
分数线划定
题目描述世博会志愿者的选拔工作正在 A 市如火如荼的进行。为了选拔最合适的人才,A 市对所有报名的选手进行了笔试,笔试分数达到面试分数线的选手方可进入面试。面试分数线根据计划录取人数的150%划定,即如果计划录取m名志愿者,则面试分数线为排名第m*150%(向下取整)名的选手的分数,而最终进入面试的选手为笔试成绩不低于面试分数线的所有选手。现在就请你编写程序划定面试分数线,并输出所有进入面试的选手原创 2017-01-13 11:49:53 · 555 阅读 · 0 评论 -
P1101 单词方阵
题目描述给一nXn的字母方阵,内可能蕴含多个“yizhong”单词。单词在方阵中是沿着同一方向连续摆放的。摆放可沿着8个方向的任一方向,同一单词摆放时不再改变方向,单词与单词之间[color=red]可以[/color]交叉,因此有可能共用字母。输出时,将不是单词的字母用“*”代替,以突出显示单词。例如:输入: 8 输出: qyi原创 2017-02-03 20:54:32 · 242 阅读 · 0 评论 -
排队接水 洛谷p1223
题目描述有n个人在一个水龙头前排队接水,假如每个人接水的时间为Ti,请编程找出这n个人排队的一种顺序,使得n个人的平均等待时间最小。输入输出格式输入格式:输入文件共两行,第一行为n;第二行分别表示第1个人到第n个人每人的接水时间T1,T2,…,Tn,每个数据之间有1个空格。输出格式:输出文件有两行,第一行为一种排队顺序,即1到n的原创 2017-01-26 12:42:06 · 520 阅读 · 0 评论 -
纪念品分组
题目描述元旦快到了,校学生会让乐乐负责新年晚会的纪念品发放工作。为使得参加晚会的同学所获得 的纪念品价值相对均衡,他要把购来的纪念品根据价格进行分组,但每组最多只能包括两件纪念品, 并且每组纪念品的价格之和不能超过一个给定的整数。为了保证在尽量短的时间内发完所有纪念品,乐乐希望分组的数目最少。你的任务是写一个程序,找出所有分组方案中分组数最少的一种,输出最少的分组数目。输入原创 2017-01-25 22:02:38 · 357 阅读 · 0 评论 -
翻币问题 1457
翻币问题Time Limit:1000MS Memory Limit:65536KTotal Submit:223 Accepted:118 Description 有N个硬币(6Input 从键盘输入一个正整数N(6Output 第1行:一个整数,表示最少步数 第2行至最后一行:先是一个整数,表示步骤序号(从0开始编号),后接一个":",再接当前硬币的状态(用一个整数表示正面朝上的硬币原创 2016-12-23 20:54:30 · 375 阅读 · 0 评论 -
泽泽在英国 程序
var a:array[1..100000]of longint; n,i,j,x,s,m:longint;begin read(n); for i:=1 to n do begin read(a[i]); if a[i]>m then m:=a[i]; end; for i:=1 to m do begin s:=0; for原创 2017-01-11 15:20:43 · 623 阅读 · 0 评论 -
泽泽在英国
泽泽在英国Time Limit:10000MS Memory Limit:65536KTotal Submit:142 Accepted:89 Case Time Limit:1000MS Description 泽泽用了100000000000000000000 mod 10天的时间爬出了长城。长城的另一端是一条隧道,泽泽走了进去…… 泽泽不小心又到了英国。原创 2017-01-11 15:20:00 · 1321 阅读 · 0 评论 -
2年分区联赛提高组第一天第一题 Vigenère密码 程序
var k,s,ans:ansistring; len1,len2,num,i,sum:longint; f:array[1..1000] of boolean;begin reset(input); rewrite(output); readln(k); readln(s); len1:=length(k); len2:=length(s); num:=0原创 2017-01-11 15:29:09 · 269 阅读 · 0 评论 -
图的m着色问题ACC PASCAL
图的m着色问题Time Limit:10000MS Memory Limit:65536KTotal Submit:53 Accepted:46 Case Time Limit:1000MS Description 图的m 着色问题描述如下:给定无向连通图G 和m 种不同的颜色。用这些颜色为图G的各顶点着色,每个顶点着一种颜色。如果有一种着色法使G 中每条边的2 个顶点着不同颜色,则称这原创 2016-12-03 09:51:47 · 430 阅读 · 0 评论 -
光荣的梦想 2323
光荣的梦想Time Limit:10000MS Memory Limit:65536KTotal Submit:110 Accepted:45 DescriptionPrince对他在这片大陆上维护的秩序感到满意,于是决定启程离开艾泽拉斯。在他动身之前,Prince决定赋予King_Bette最强大的能量以守护世界、保卫这里的平衡与和谐。在那个时代,平衡是个梦想。因为有很多奇原创 2016-12-23 19:26:56 · 1083 阅读 · 0 评论 -
A+B Problem(高精)
题目描述高精度加法,x相当于a+b problem,[b][color=red]不用考虑负数[/color][/b]输入输出格式输入格式:分两行输入a,b输出格式:输出只有一行,代表A+B的值输入输出样例输入样例#1:11var x,y,ans:string; i,原创 2017-02-07 22:22:21 · 641 阅读 · 0 评论 -
P1057 传球游戏 洛谷
题目描述上体育课的时候,小蛮的老师经常带着同学们一起做游戏。这次,老师带着同学们一起做传球游戏。游戏规则是这样的:n个同学站成一个圆圈,其中的一个同学手里拿着一个球,当老师吹哨子时开始传球,每个同学可以把球传给自己左右的两个同学中的一个(左右任意),当老师在此吹哨子时,传球停止,此时,拿着球没有传出去的那个同学就是败者,要给大家表演一个节目。聪明的小蛮提出一个有趣的问题原创 2017-02-07 21:52:21 · 308 阅读 · 0 评论 -
八皇后
题目意:检查一个如下的6 x 6的跳棋棋盘,有六个棋子被放置在棋盘上,使得每行、每列有且只有一个,每条对角线(包括两条主对角线的所有平行线)上至多有一个棋子。上面的布局可以用序列2 4 6 1 3 5来描述,第i个数字表示在第i行的相应位置有一个棋子,如下:行号 1 2 3 4 5 6列号 2 4 6 1 3 5这只是跳棋放置的一个解。请编一个程序找原创 2017-01-13 21:17:11 · 228 阅读 · 0 评论 -
A*B Problem
题意:求两数的积。输入输出格式输入格式:两个数输出格式:积输入输出样例输入样例#1:1 2输出样例#1:2说明需用高精const maxn=2600;var a,b:array[-1..maxn原创 2017-01-13 20:17:28 · 280 阅读 · 0 评论 -
拼数
题目描述设有n个正整数(n≤20),将它们联接成一排,组成一个最大的多位整数。例如:n=3时,3个整数13,312,343联接成的最大整数为:34331213又如:n=4时,4个整数7,13,4,246联接成的最大整数为:7424613输入输出格式输入格式:第一行,一个正整数n。第二行,n个正整数。输出格式:一原创 2017-01-13 16:10:59 · 286 阅读 · 0 评论 -
奖学金
题目描述某校的惯例是在每学期的期末考试之后发放奖学金。发放的奖学金共有五种,获取的条件各自不同:1) 院士奖学金,每人8000元,期末平均成绩高于80分(>80),并且在本学期内发表1篇或1篇以上论文的学生均可获得;2) 五四奖学金,每人4000元,期末平均成绩高于85分(>85),并且班级评议成绩高于80分(>80)的学生均可获得;3) 成绩优秀奖,每人2000元原创 2017-01-13 16:09:48 · 424 阅读 · 0 评论 -
谁拿了最多奖学金
题目描述某校的惯例是在每学期的期末考试之后发放奖学金。发放的奖学金共有五种,获取的条件各自不同:1) 院士奖学金,每人8000元,期末平均成绩高于80分(>80),并且在本学期内发表1篇或1篇以上论文的学生均可获得;2) 五四奖学金,每人4000元,期末平均成绩高于85分(>85),并且班级评议成绩高于80分(>80)的学生均可获得;3) 成绩优秀奖,每人2000元原创 2017-01-13 14:56:34 · 239 阅读 · 0 评论 -
魔法照片
题目描述一共有n(n≤20000)个人(以1--n编号)向佳佳要照片,而佳佳只能把照片给其中的k个人。佳佳按照与他们的关系好坏的程度给每个人赋予了一个初始权值W[i]。然后将初始权值从大到小进行排序,每人就有了一个序号D[i](取值同样是1--n)。按照这个序号对10取模的值将这些人分为10类。也就是说定义每个人的类别序号C[i]的值为(D[i]-1) mod 10 +1,显然类别序号的取原创 2017-01-13 14:52:26 · 496 阅读 · 0 评论 -
奖学金
题目描述某小学最近得到了一笔赞助,打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金。期末,每个学生都有3门课的成绩:语文、数学、英语。先按总分从高到低排序,如果两个同学总分相同,再按语文成绩从高到低排序,如果两个同学总分和语文成绩都相同,那么规定学号小的同学 排在前面,这样,每个学生的排序是唯一确定的。任务:先根据输入的3门课的成绩计算总分,然后按上述规则排序,最后按排名顺序输出前五名名学生的原创 2017-01-13 14:42:48 · 1008 阅读 · 0 评论 -
笨小猴
题目描述笨小猴的词汇量很小,所以每次做英语选择题的时候都很头疼。但是他找到了一种方法,经试验证明,用这种方法去选择选项的时候选对的几率非常大!这种方法的具体描述如下:假设maxn是单词中出现次数最多的字母的出现次数,minn是单词中出现次数最少的字母的出现次数,如果maxn-minn是一个质数,那么笨小猴就认为这是个Lucky Word,这样的单词很可能就是正确的答案。输入原创 2017-01-11 15:19:00 · 899 阅读 · 0 评论 -
车厢重组 程序
var n,i,t,k,j:longint; a:array[0..10000]of longint;begin readln(n); for i:=1 to n do read(a[i]); for j:=1 to n do for i:=1 to n-j do if a[i]>a[i+1] then begin原创 2017-01-11 15:32:20 · 1035 阅读 · 0 评论 -
洛谷 P1605 迷宫
题目背景迷宫 【问题描述】给定一个N*M方格的迷宫,迷宫里有T处障碍,障碍处不可通过。给定起点坐标和终点坐标,问: 每个方格最多经过1次,有多少种从起点坐标到终点坐标的方案。在迷宫中移动有上下左右四种方式,每次只能移动一个方格。数据保证起点上没有障碍。输入样例 输出样例【数据规模】1≤N,M≤5题目描述输入输出格式输入格式原创 2017-02-05 20:40:15 · 652 阅读 · 0 评论 -
P1192 台阶问题
题目描述有N级的台阶,你一开始在底部,每次可以向上迈最多K级台阶(最少1级),问到达第N级台阶有多少种不同方式。输入输出格式输入格式:输入文件的仅包含两个正整数N,K。输出格式:输入文件stair.out仅包括1个正整数,为不同方式数,由于答案可能很大,你需要输出mod 100003后的结果。输入输出样例原创 2017-02-06 17:26:54 · 275 阅读 · 0 评论 -
P1403 [AHOI2005]约数研究
题目描述科学家们在Samuel星球上的探险得到了丰富的能源储备,这使得空间站中大型计算机“Samuel II”的长时间运算成为了可能。由于在去年一年的辛苦工作取得了不错的成绩,小联被允许用“Samuel II”进行数学研究。小联最近在研究和约数有关的问题,他统计每个正数N的约数的个数,并以f(N)来表示。例如12的约数有1、2、3、4、6、12。因此f(12)=6。下表给出了一原创 2017-02-06 14:55:42 · 411 阅读 · 0 评论 -
P1029 最大公约数和最小公倍数问题
题目描述输入二个正整数x0,y0(2条件:1.P,Q是正整数2.要求P,Q以x0为最大公约数,以y0为最小公倍数.试求:满足条件的所有可能的两个正整数的个数.输入输出格式输入格式:二个正整数x0,y0输出格式:一个数,表示求出满足条件的P,Q的个数输入输出样例输入样例原创 2017-02-06 11:56:53 · 718 阅读 · 0 评论 -
P1908 逆序对
题目描述猫猫TOM和小老鼠JERRY最近又较量上了,但是毕竟都是成年人,他们已经不喜欢再玩那种你追我赶的游戏,现在他们喜欢玩统计。最近,TOM老猫查阅到一个人类称之为“逆序对”的东西,这东西是这样定义的:对于给定的一段正整数序列,逆序对就是序列中ai>aj且i输入输出格式输入格式:第一行,一个数n,表示序列中有n个数。第二行n个数,表示给定的序列。原创 2017-02-05 21:36:58 · 428 阅读 · 0 评论 -
货员的难题 程序
var n,ans:longint; f:array[1..30] of boolean; a:array[1..40,1..40] of longint;procedure init;var i,j:longint;begin readln(n); for i:=1 to n do begin for j:=1 to n do read(a[i,j]);原创 2017-01-11 15:30:30 · 295 阅读 · 0 评论 -
货员的难题
货员的难题Time Limit:10000MS Memory Limit:65536KTotal Submit:214 Accepted:124 Case Time Limit:5000MS Description 某乡有 n 个村庄( 1 < n <40 ),有一个售货员,他要到各个村庄去售货,各村庄之间的路程 s(0<s<1000) 是已知的,且 A 村与 B 村与原创 2017-01-11 15:29:42 · 394 阅读 · 0 评论 -
P1226 取余运算||快速幂
题目描述输入b,p,k的值,求b^p mod k的值。其中b,p,k*k为长整型数。输入输出格式输入格式:三个整数b,p,k.输出格式:输出“b^p mod k=s”s为运算结果输入输出样例输入样例#1:2 10 9输出样例#1:2^10 mod 9=7va原创 2017-02-05 21:25:53 · 1216 阅读 · 0 评论 -
洛谷 P1443 马的遍历
题目描述有一个n*m的棋盘(1输入输出格式输入格式:一行四个数据,棋盘的大小和马的坐标输出格式:一个n*m的矩阵,代表马到达某个点最少要走几步(左对齐,宽5格,不能到达则输出-1)输入输出样例输入样例#1:3 3 1 1输出样例#1:0 3 2 3 -1 1 2 1 4 const dx:array[1..8] of longin原创 2017-02-05 21:19:23 · 405 阅读 · 0 评论