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

辉辉、姗姗和佳佳是好朋友，他们一起参加了在湖南长沙长郡中学举办的第二十一届全国青少年信息学奥林匹克竞赛（NOI2004）。他们很早就来到了长沙，可是报名还没有开始。怎么办呢？他们决定分头出去玩一天，晚上回到宿舍以后给大家说说自己这一天做了什么有意义的事情。 你一定想不到辉辉干嘛去了——他睡了一天。他想：“比赛前几天老是写程序到深夜，头晕晕的……没关系，好好睡一觉，然后我会精神抖擞。醒了之后，我要做有意义的事情。”这一睡可不得了，辉辉从早上a点b分c秒一直睡到了下午d点e分f秒。他睡了多少秒钟呢？ 六个非负整数a, b, c, d, e, f(1=a, d=11, 0=b, c, e, f=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,……n个字符,按顺时针方向排成一圈，然后从任意位置开始按顺时针方向连续取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新： 对某个i，我们有：对所有j i, ai bi 和aj = bj； 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 exi