百度作业网pascal题目源程序和思路
来源：学生作业帮 编辑：百度作业网作业帮 分类：综合作业 时间：2024/04/26 23:35:57
pascal题目源程序和思路
描述
农民John 的农场里有很多牧区.有的路径连接一些特定的牧区.一片所有连通的牧区
称为一个牧场.但是就目前而言,你能看到至少有两个牧区通过任何路径都不连通.这样,
Farmer John 就有多个牧场了.John 想在牧场里添加一条路径(注意,恰好一条).对
这条路径有以下限制：一个牧场的直径就是牧场中最远的两个牧区的距离(本题中所提到
的所有距离指的都是最短的距离).考虑如下的有5 个牧区的牧场,牧区用“*”表示,路径
用直线表示.每一个牧区都有自己的坐标：D E
*-------*
| _/|
| _/ |
| _/ |
|/ |
*--------*-------*
A B C
(10,10) (15,10) (20,10)
这个牧场的直径大约是12.07106,最远的两个牧区是A 和E,它们之间的最短路径是
A-B-E.
这里是另一个牧场：
*F(30,15)
/
_/
_/
/
*------*
G H
(25,10) (30,10)
在目前的情景中,他刚好有两个牧场.John 将会在两个牧场中各选一个牧区,然后用一条
路径连起来,使得连通后这个新的更大的牧场有最小的直径.注意,如果两条路径中途相
交,我们不认为它们是连通的.只有两条路径在同一个牧区相交,我们才认为它们是连通的.
输入文件包括牧区、它们各自的坐标,还有一个如下的对称邻接矩阵：
A B C D E F G H
A 0 1 0 0 0 0 0 0
B 1 0 1 1 1 0 0 0
C 0 1 0 0 1 0 0 0
D 0 1 0 0 1 0 0 0
E 0 1 1 1 0 0 0 0
F 0 0 0 0 0 0 1 0
G 0 0 0 0 0 1 0 1
H 0 0 0 0 0 0 1 0(15,15) (20,15)
其他邻接表中可能直接使用行列而不使用字母来表示每一个牧区.输入数据中不包括牧区的
名字.输入文件至少包括两个不连通的牧区.请编程找出一条连接两个不同牧场的路径,
使得连上这条路径后,这个更大的新牧场有最小的直径.输出那个最小可能的直径.
INPUT FORMAT:
第1 行:一个整数N (1
描述
农民John 的农场里有很多牧区.有的路径连接一些特定的牧区.一片所有连通的牧区
称为一个牧场.但是就目前而言,你能看到至少有两个牧区通过任何路径都不连通.这样,
Farmer John 就有多个牧场了.John 想在牧场里添加一条路径(注意,恰好一条).对
这条路径有以下限制：一个牧场的直径就是牧场中最远的两个牧区的距离(本题中所提到
的所有距离指的都是最短的距离).考虑如下的有5 个牧区的牧场,牧区用“*”表示,路径
用直线表示.每一个牧区都有自己的坐标：D E
*-------*
| _/|
| _/ |
| _/ |
|/ |
*--------*-------*
A B C
(10,10) (15,10) (20,10)
这个牧场的直径大约是12.07106,最远的两个牧区是A 和E,它们之间的最短路径是
A-B-E.
这里是另一个牧场：
*F(30,15)
/
_/
_/
/
*------*
G H
(25,10) (30,10)
在目前的情景中,他刚好有两个牧场.John 将会在两个牧场中各选一个牧区,然后用一条
路径连起来,使得连通后这个新的更大的牧场有最小的直径.注意,如果两条路径中途相
交,我们不认为它们是连通的.只有两条路径在同一个牧区相交,我们才认为它们是连通的.
输入文件包括牧区、它们各自的坐标,还有一个如下的对称邻接矩阵：
A B C D E F G H
A 0 1 0 0 0 0 0 0
B 1 0 1 1 1 0 0 0
C 0 1 0 0 1 0 0 0
D 0 1 0 0 1 0 0 0
E 0 1 1 1 0 0 0 0
F 0 0 0 0 0 0 1 0
G 0 0 0 0 0 1 0 1
H 0 0 0 0 0 0 1 0(15,15) (20,15)
其他邻接表中可能直接使用行列而不使用字母来表示每一个牧区.输入数据中不包括牧区的
名字.输入文件至少包括两个不连通的牧区.请编程找出一条连接两个不同牧场的路径,
使得连上这条路径后,这个更大的新牧场有最小的直径.输出那个最小可能的直径.
INPUT FORMAT:
第1 行:一个整数N (1
Floyd出全图两两距离
然后算出每个牧区到自己牧场内的最长距离.
然后算出每个牧场的直径.
然后枚举两个牧区（保证Floyd出的结果是inf）计算连起来以后的直径（采用两个牧场的直径以及“两个牧区到自己牧场内的最长距离与两个牧场直线距离之和”中的最大值,加快运算）.
……代码实在不想敲了,纯拼凑的程序没意思（其实是Floyd不会用）.
再问： 还是给我源程序吧！！！
再答： 块注释是需要补的，包括部分读入和Floyd算法；行注释是真正的解释用注释。……对了，这玩意的总定价25所以……你下载的话就好了。有注释的都超字数了。
然后算出每个牧区到自己牧场内的最长距离.
然后算出每个牧场的直径.
然后枚举两个牧区（保证Floyd出的结果是inf）计算连起来以后的直径（采用两个牧场的直径以及“两个牧区到自己牧场内的最长距离与两个牧场直线距离之和”中的最大值,加快运算）.
……代码实在不想敲了,纯拼凑的程序没意思（其实是Floyd不会用）.
再问： 还是给我源程序吧！！！
再答： 块注释是需要补的，包括部分读入和Floyd算法；行注释是真正的解释用注释。……对了，这玩意的总定价25所以……你下载的话就好了。有注释的都超字数了。