市青少年计算机程序设计竞赛试题

‘96上海市青少年计算机程序设计竞赛试题
竞赛注意事项：
1．上机竞赛在2小时内完成，可以不经书编程，直接输入计算机调试。

2．试题一~五的程序完成后，分别以A、B、C、D、E文件名存入磁盘。

3．每完成一题后即填写完成时间，以备机器故障时给予处理。

4．竞赛的程序以运行结果作为主要评分依据，人为判断、直接打印者不给分。

5．测试数据将有多套，运行速度的快慢将作为评分依据之一。

一、如下图，有I种货物将存放在N个仓库里（I=N，I<=20）。

假设各种货物由同一种车辆
运输，一种货物存放在一个仓库，而且每个仓库都足够大。

现在已知货物1的存储量为M1吨，周转周期为D1天（即在D1天里，有M1吨货物1运进，并运出。

），货物2的存储量为M2吨，周转周期为D2天，…，货物I的存储量为Mi吨，周转周期为Di天。

问怎样安排仓库储存，可使运输的车公里数为最少？（15分）
原始数据由正文文件输入，文件第一行是一个数字I，表示I种货物，第二行为I种货物的存储量，第三行为I种货物的周转周期，同一行中各数字间以空格分隔。

输入数据均不
需判错。

由屏幕打印运行结果，第一行是仓库的编号，第二行为对应货物的编号。

例对右图的正文文件，输入输出格式如下：
Enter file name : TEST1-1.TXT TEST1-1.TXT
7
N1 N2 N3 N4 N5 N6 N7 12 7 38 109 64 580 1088
Ix Ix Ix Ix Ix Ix Ix 30 23 8 14 5 42 113
二、求N！的精确值（N<100。

N！为1*2*3*4*5……*N）。

（15分）
输入输出格式为：
INPUT N = 23
23！= 25852016738884976640000
三、编写一个整理TURBO PASCAL源文件的程序，它先输入要整理的源文件标识符，然
后逐个字符读取该文件的所有内容，经适当改造后再存入目标文件标识符。

程序应能自动地将源文件中的所有TURBO PASCAL 的保留字改成大写，将每个单词的首字母改成大写，
其余的改成小写。

但不影响字符串和注释语句中的大小写。

（20分）
程序运行时输入、输出格式：
Enter source filename ：源文件标识符
Enter target filename ：目标文件标识符
输入数据均不需判错。

附TURBO PASCAL 52 个保留字：
ABSOLUTE AND ARRAY BEGIN CASE CONST CONSTRUCTOR DESTRUCTOR DIV DO DOWNTO ELSE END EXTERNAL FILE FOR
FORWARD FUNCTION GOTO IF IMPLEMENTATION IN INLINE
INTERFACE INTERRUPT LABEL MOD NIL NOT OBJECT OF OR PACKED PROCEDURE PROGRAM RECORD REPEAT SET SHL SHR STRING THEN TO TYPE UNIT UNTIL USES VAR VIRTUAL WHILE WITH XOR
四、在N线×N线的围棋盘上（N为奇数，且6<N<30），布满了黑子与白子。

请编程输出
黑棋与白棋各有几块？每块各有几子？（20分）
原始数据由正文文件输入，文件第一行是一个数字N，表示棋盘的大小，其下N行为该方阵，其中1表示黑子，2表示白子。

同一行中各数字间以空格分隔。

输入数据均不需判
错。

由屏幕打印运行结果，先黑棋，后白棋。

各块棋从大到小排序输出。

例对右图的正文文件，输入输出格式如下：TEST4-1.TXT
Enter file name : TEST4-1.TXT 7
Black： 1 1 1 1 2 2 2
1 ：14 1 1 1 1 1
2 2
2 ：11 2 1 1 1 2 2 2
while： 2 2 2 1 1 2 2
1 ：13
2 2 1 2 2 2 1
2 ：11 2 2 1 1 1 1 1
2 2 2 1 1 1 1
五、如图有一个四阶方阵，每个方格不重复地填有1~16，共16
个自然数之一。

你能以最少的对调次数，使每一行、每一列以及
两条对角线上四个数的和都相等吗？（30分）
输入数据：
由TEST5-1.TXT 文件读入数据，其格式为：
Enter file name ：TEST5-1.TXT
输出数据：
屏幕打印出原始方阵，空行后打印第1次对调，如对以上数据其
输出格式为：
并且输出满屏时有暂停功能。