标题:pascal信息学邀请之塞
只看楼主
笨闹钟
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2015-2-22
结帖率:0
已结贴  问题点数:20 回复次数:1 
pascal信息学邀请之塞
信息学邀请赛(2.22比赛)(500分)
1.pas    2.pas    3.pas    4.pas    5.pas
精挑细选    V&T    树的统计    1058    Number
100分    100分    100分    100分    100分
说明:1.试卷每题100分,总共500分;
      2.评分标准:运行程序,输入测试数据,答案正确,才能得分;竞赛规定用Pascal语言,可用WIN32版本FPC编译运行。
2.请在E:\ 盘建立好个人文件夹(用你的姓名作为文件夹名称),每做完一题,应及时用按题目要求命名存入个人文件夹中。
第一题文件输入输出样例:
。。。程序头部。。。
Begin
   Assign(input,’a.in’);reset(input);
   Assign(output,’a.out’);rewrite(output);
……..你的主程序。。。。
   Close(input);close(output);
End.


1、【题目】精挑细选 (1.pas)
Description
小王是公司的仓库管理员,一天,他接到了这样一个任务:从仓库中找出一根钢管。这听起来不算什么,但是这根钢管的要求可真是让他犯难了,要求如下:
1、 这根钢管一定要是仓库中最长的;
2、 这根钢管一定要是最长的钢管中最细的;
3、 这根钢管一定要是符合前两条的钢管中编码最大的(每根钢管都有一个互不相同的编码,越大表示生产日期越近)。
相关的资料到是有,可是,手工从几百份钢管材料中选出符合要求的那根……要不,还是请你编写个程序来帮他解决这个问题吧。
Input
文件第一行为一个整数(),表示仓库中所有钢管的数量。
之后行,每行三个整数,分别表示一根钢管的长度(以毫米为单位)、直径(以毫米为单位)和编码(一个9位整数)。
Output
文件中只有一个9位整数,表示选出的那根钢管的编码。
Sample Input  Copy
4
3000 50 872198442
3000 45 752498124
2000 60 765128742
3000 45 652278122
Sample Output  Copy
752498124






2、【题目】 V&T  (2.pas)
Description
电影《速度与激情》系列男主角保罗•沃克因车祸身亡。谨以此题告诫那些喜欢飙车的人!
一辆车在公路上行驶,在一定时间内处于匀速状态,也即速度是固定不变的,但之后将发生改变。现按行驶顺序给出其M个时间段的速度,问这辆车能否在T分钟内行驶完S米的路程。
Input
第1行:三个空格隔开的整数:T S M(1 <= T <= 10000,1000 <= S <= 20000000 ,1 <= M <= 1000)
之后的M行,每行两个整数tm(1 <= tm <= 10)和v(500 <= v <= 2000),表示在tm分钟内,车子的速度是每分钟v米。
数据保证M个时间段的总时间>=T。

Output
两行。
第1行:能在规定的T分钟里行驶S米的路程,则输出"Yes",否则输出"No";
第2行:输出T分钟行驶的路程与S的差的绝对值。
Sample Input  Copy
5 18000 2
3 2000
2 1000
Sample Output  Copy
No
10000






3、【题目】树的统计 (3.pas)
Description
某条街边上有长度为L的马路上有一排树,每两棵相邻的树之间的间隔都是1米。我们可以把马路看成一个数轴,马路的一端在数轴0的位置,另一端在L的位置;数轴上的每个整数点,即0,1,2,……,L,都种有一棵树。 由于马路上有一些地方要进行改造,需要改造的地方用它们在数轴上的起始点和终止点表示。已知任一范围的起始点和终止点在数轴上的位置都是整数,各范围之间可能有重合的部分。现在要把给定范围中的树(包括范围的端点处的两棵树)移走。你的任务是计算将这些树都移走后,马路上还有多少棵树。 如下图中,L=12,有4个范围要改造,分别是2—5, 3—6, 6—8, 7—11 则马路上还有3棵树。分别是第0、1、12位置上的树,其他树都被移走了。
Input
从文件tongji.in读入数据,文件中的第一行有两个整数L(1 <= L <= 10000)和 M(1 <= M <= 100),L代表马路的长度,M代表区域范围的数目,L和M之间用一个空格隔开。接下来的M行每行包含两个不同的整数,用一个空格隔开,表示一个区域范围的起始点和终止点在数轴上的值。

Output
结果输出到文件tongji.out中,只有一个整数,表示马路上剩余的树的数目。
Sample Input  Copy
12  4
2  5
3  6
6  8
7  11
Sample Output  Copy
3
4、【题目】1058(4.pas)
Description
我住的街道的门牌号范围是13~1300,一天小明问我的门牌号码是多少。 下面是我和小明的对话: 小明问:“你的门牌号码小于500吗?” 我回答的话是假话。 小明再问:“你的门牌号码是平方数吗?” 我回答的话是假话。 小明接着问:“你的门牌号码是立方数吗?” 这次我回答的话是真话。 小明接着问:“你的门牌左起第二位是1吗?” 这次我回答的话也是真话。 这时小明把他确定的门牌号告诉了我。 我说:“小明你猜错了” 请问,我的门牌号码是多少呢? 提示:小明不会问无聊的问题,他问的问题一定是价值的^_^ 请问我的门牌号码是多少?
Input
这道题没有输入
Output
你只需要根据以上对话,计算出我的门牌号码,然后输出就可以了。 比如你计算到我的门牌号码是13,那么你就writeln(13)就可以了。注意了,我的门牌号当然不是13啦哈哈Sample Input  Copy
这道题没有输入
Sample Output  Copy
你只需要根据以上对话,计算出我的门牌号码,然后输出就可以了。
比如你计算到我的门牌号码是13,那么你就writeln(13)就可以了。注意了,我的门牌号当然不是13啦哈哈











5、【题目】Number(5.pas)
Description
给定一个整数,请将该数各个位上数字反转得到一个新数。新数也应满足整数的常见形式,即除非给定的原数为零,否则反转后得到的新数的最高位数字不应为零
Input
输入共 1 行,一个整数 N。(-1,000,000,000 ≤ N≤1,000,000,000。)
Output
输出共 1 行,一个整数,表示反转后的新数。
Sample Input  Copy
123
Sample Output  Copy
321


Sample Input2  Copy
-380
Sample Output2  Copy
-83


HINT
代码过长不给分!!!
搜索更多相关主题的帖子: 运行程序 pascal 信息学 文件夹 命名 
2015-02-22 20:08
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
得分:20 
移这
2015-02-22 20:22



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-442149-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.257393 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved