2014noip复赛模拟练习29(答案).docx

  1. 1、本文档共12页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
辉辉、姗姗和佳佳是好朋友, 他们一起参加了在湖南长沙长郡中学举 办的第二十一届全国青少年信息学奥林匹克竞赛( NOI2004 )。他们 很早就来到了长沙, 可是报名还没有开始。 怎么办呢?他们决定分头 出去玩一天,晚上回到宿舍以后给大家说说自己这一天做了什么有意 义的事情。 你一定想不到辉辉干嘛去了 —— 他睡了一天。他想: “比赛前几 天老是写程序到深夜,头晕晕的……没关系,好好睡一觉,然后我会 精神抖擞。醒了之后,我要做有意义的事情。 ”这一睡可不得了,辉 辉从早上 a 点 b 分 c 秒一直睡到了下午 d 点 e 分 f 秒。他睡了多少秒 钟呢? 六个非负整数 a, b, c, d, e, f(1=a, d=11, 0=b, c, e, fv=59)。例如,a=6, b=5, c=4, d=3, e=2, f=1 表示辉辉从 06:05:04 睡到 15:02:01 。 【样例输入】 6 5 4 3 2 1 【样例输出】 32217 var a,b,c,d,e,f:longint; begin readln(a,b,c,d,e,f); d:=d+12; writeln((d*3600+e*60+f)-(a*3600+b*60+c)); readln end. 将a,b,c,……个字符,按顺时针方向排成一圈,然后从任意位置开始 按顺时针方向连续取k个字符组成一个k位字符串。(kn)例如: n=3 k=2 按顺时针方向排成如下一圈: a c b 此时,可组成:ab,bc,ca。当给出n,k后,输出n个k位字符串 输入:n k 输出:n个k位字符串 输入输出样例 :输入: 5 4 输出: abcd bcde cdea deab eabc var n,k,i,j,a,b: longint; begin readln(n,k); for i:=1 to n do begin a:=i;b:=0; for j:=1 to k do begin write(chr(96+a)); if a+1n then a:=(a+1) mod n else a:=n; end; writeln; end; readln; end. 问题描述: 计算机软件版本通常被用来区分某种软件在不同时间的发布。 大部分软件版本号都是用 “.”分隔的非负数的序列。对两个不同的版本 A = a1.a2.a3…an和B = b1.b2.b3…bm,如果 下面两个条件之一成立,我们认为版本 A 要比版本 B 新: 1.对某个i,我们有:对所有j i, ai bi和aj = bj; 2. n 比 m 大,而且对所有 i m, ai = bi 。 (ai 和 bi 都不超过 LONGINT) 在这个问题里,你要对给定的一组版本号,按照上面的定义从旧到新排序。 输入文件( VERSIONS.IN ): 输入文件第一行是一个整数 N (N=20 ),表示要排序的版本数。接下来的 N行每行一 个版本号。每个版本号是长度不超过 50 的字符串。 输出文件( VERSIONS.OUT ): 将排好序的结果以每行一个版本号输出。 输入输出样例: VERSIONS.IN 4 3.0.5 1 2.4 2.4.6 VERSIONS.OUT 1 2.4 2.4.6 3.0.5 var n,i:integer; scan:array [1..30] of string; function check(aa,bb:string):boolean; var a,b:longint; i,j:integer; code:integer; begin aa:=aa+.; bb:=bb+.; i:=pos(.,aa); j:=pos(.,bb); while (i0) and (j0) do begin val(copy(aa,1,i-1),a,code); val(copy(bb,1,j-1),b,code); if ab then exit(true); if ab then exit(false); delete(aa,1,i); delete(bb,1,j); i:=pos(.,aa); j:=pos(.,bb); end; if (i=0) and (j0) then exit(true) else exit(false); end; procedure qsort(l,r:integer); var i,j:integer; t:string; begin if l=r then exit; i:=random(r-l)+l; t:=scan[i];scan[i]:=scan[l]; i:=l;j:=r; repeat while (ij) and (check(t,scan[j]))

文档评论(0)

kunpengchaoyue + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档