- 1、本文档共12页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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]))
您可能关注的文档
最近下载
- GY5(J1型)半联轴器加工工艺与工装设计-机械设计制造及其自动化.doc VIP
- 应用文写作:申请书.pptx VIP
- 湖北省华中师范大学第一附属中学2024-2025学年高三上学期十月月度检测英语试卷(无答案).docx VIP
- 水利工程造价存在问题及控制措施分析.doc
- 大学生常见心理问题课件.ppt
- 高考语文专题专练:分析小说的叙事特点提升专练(附答案).docx VIP
- 2024年秋季新湘少版三年级上册英语课件 Unit 6 第3课时 .pptx
- 《公共艺术课程(音乐)》教学课件-第二章-美妙的歌声.pptx VIP
- 大学学院重点学科经费管理办法.doc VIP
- 动物寄生虫病学.pptx VIP
文档评论(0)