2014noip复赛模拟练习29..docx

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