2011福建省信息学奥赛CCF NOIP夏令营(第10天)比赛.docVIP

2011福建省信息学奥赛CCF NOIP夏令营 竞赛时间：8:30 – 11:30 试题名称 电话时间 地铁建设 记分牌 旅行 提交文件 phone subway scoreboard travel 输入文件 phone.in subway.in scoreboard.in travel.in 输出文件 phone.out subway.out scoreboard.out travel.out 时间限制 1s 1s 1s 1s 内存限制 256M 256M 256M 256M 本题分值 100 100 100 100 ? 福建省计算机学会 ? ???????电话时间(phone) ? 【问题描述】 某人总是花很多时间给父母打电话。有一次他记录了打电话的开始时间和结束时刻t1和t2，请你帮他算算此次通话一共用了多少秒。又有一次，他记录了打电话的开始时刻t1和通话的时间长度len，请你帮他计算他在什么时刻结束通话。 已知每次通话时间小于24个小时。 ? 【输入文件】 输入文件phone.in的第一行为一个正整数T，表示了数据组数。 接下来T行，每行第一个数为k： 如果k = 0，接下来包含两个时间t1和t2，表示了打电话的开始时间和结束时刻，用一个空格隔开，时间格式为HH:MM:SS，其中0≤HH≤23,0≤MM,SS≤59。HH、MM和SS都是两位数字，因此0:1:2是不合法的时间（应写作00:01:02）。你应该对这个询问输出通话时间长度，答案一定为区间[0,86400)之内的非负整数。 如果k = 1，接下来包含一个时间t1和一个非负整数len，表示了打电话的开始时刻与通话时间长度，用一个空格隔开，时间格式同为HH:MM:SS，同样时间小于24个小时，即len86400。你应该对这个询问输出结束通话的时刻，同为HH:MM:SS格式。 ? 【输出文件】 输出文件phone.out包含T个整数或者时间，对于每个询问输出对应的答案。 ? 【样例输入】 4 0 01:02:03 04:05:06 0 23:59:59 00:00:00 1 00:00:03 3 1 23:59:58 4 ? 【样例输出】 10983 1 00:00:06 00:00:02 ? 【数据规模与约定】 对于20%的数据，T ≤ 10； 对于40%的数据，T ≤ 100； 对于100%的数据，T?≤ 100000。 ? 题目大意：任务A：给定两个时刻，求时间差。任务B，给定一个时刻和时间差，求另一个时刻。 字符串的处理以及细节的把握。模拟就可以了。 var ?t,k,i:longint; ? procedure cal1; ?var h1,m1,s1,h2,m2,s2,i,t:longint; ?????s:string;??ch1,ch2:char; ? ?begin ??readln(s); ??i:=pos(:,s); ch1:=s[i-2]; ch2:=s[i-1]; ??h1:=(ord(ch1)-ord(0))*10+(ord(ch2)-ord(0)); ??delete(s,1,i); ??i:=pos(:,s); ch1:=s[i-2]; ch2:=s[i-1]; ??m1:=(ord(ch1)-ord(0))*10+(ord(ch2)-ord(0)); ??delete(s,1,i); ??ch1:=s[1]; ch2:=s[2]; ??s1:=(ord(ch1)-ord(0))*10+(ord(ch2)-ord(0)); ??i:=pos(:,s); ch1:=s[i-2]; ch2:=s[i-1]; ??h2:=(ord(ch1)-ord(0))*10+(ord(ch2)-ord(0)); ??delete(s,1,i); ??i:=pos(:,s); ch1:=s[i-2]; ch2:=s[i-1]; ??m2:=(ord(ch1)-ord(0))*10+(ord(ch2)-ord(0)); ??delete(s,1,i); ??ch1:=s[1]; ch2:=s[2]; ??s2:=(ord(ch1)-ord(0))*10+(ord(ch2)-ord(0)); ??t:=0; ??if s2=s1 then inc(t,s2-s1) else begin ???inc(t,s2+60-s1); ???dec(m2); ??end; ??if m2=m1 then inc(t,(m2-m1)*60) else begin ???inc(t,(m2+60-m1)*60); ???dec(h2); ??end; ??if h2=h1 then inc(t,(h2-h1)*3600) else inc(t,(h2+24-h1