高难度:求两点的距离(70分不够可再加)

tujie2005 2006-05-03 10:36:18

举例有以下几条路:A,B,C,D,E,F,G,H,I,J,K,L,M
每条路有不同的站,求任意两站的距离,注意路线是固定的.
真心求解!!!
在线等~~~
需要图片的加QQ:348870498

...全文

238 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

tujie2005 2006-05-04

打赏
举报

是这样的,因为不能上传图片,所以表达起来有点困难...
就是有13条高速公路,每条高速公路有7个收费站,试计算一辆车从一个站上高速,从另一个站下高速,车是不能在高速打圈的,只能一站到一站.
初步构思本人认为：不考虑站，先考虑路与路之间的关系.
有点象是树结构那样，图无所谓，多画几条就行.

Herolegend 2006-05-04

打赏
举报

这个应该是图型的结构，不是树型的结构吧？应该考虑多路交叉？

tujie2005 2006-05-04

打赏
举报

当然有所谓，我之前就是以为你的站全都在同一条路线上。。。。。。
不过即使是有分岔，应该都可以用相对距离来解决。。。。不过不知不同路段收费是否一样？？？？？？
=========================================================================
收费可以不考虑
问题是怎么把路与路之间的关系确定,如:A和M,中间隔着B,C,D.

lsftest 2006-05-04

打赏
举报

有点象是树结构那样，图无所谓，多画几条就行.
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
当然有所谓，我之前就是以为你的站全都在同一条路线上。。。。。。
不过即使是有分岔，应该都可以用相对距离来解决。。。。不过不知不同路段收费是否一样？？？？？？

tujie2005 2006-05-03

打赏
举报

数据可任意取

lsftest 2006-05-03

打赏
举报

请给出示例数据。。。。。。。。。。

of123 2006-05-03

打赏
举报

其实，在许多复杂线路的应用中，是事先穷举所有组合，将结果保存在数据库中，运行时做数据库查询即可。

of123 2006-05-03

打赏
举报

这样：
预先将站间各路段里程保存在数组中。各站采用顺序的数字编号。
Dim Miles(11) As Single '13 站间有 12 路段，从基数 0 开始

Miles = Array(12.5, 11.3, 8.9, 3.2, 15.1, 16.6, 8.8, 14.8, 5.9, 7.3, 11.1, 19.0)

Public Function Get_Length(Byval StartStation As Integer, Byval EndStation As Integer) As Single

Dim i As Integer, tmp As Single

For i = StartStation To EndStation - 1
tmp = tmp + Miles(i)
Next i

Get_Length = tmp

End Function

fishmans 2006-05-03

打赏
举报

举例有以下几条路:A,B,C,D,E,F,G,H,I,J,K,L,M
每条路有不同的站,求任意两站的距离,注意路线是固定的
=================================================
其实不是很明白是什么意思
是只判断一条线路上任意两个站的距离还是不同线路任意两个站之间的距离？？

lsftest 2006-05-03

打赏
举报

不会吧,就象是高速公路上有不同的路段,路段中有不同的收费站,求任意路段中两个收费站的距离,站与站的距离都是已知的,但要让程序自己识别并且计算...
===========================
哦，这样就很容易，简单点的基本一个数组再加点运算就可以了。。。。。。。。。。

a（0）="a站"
a(1)="30"
a（2）="b站"
a（3）="22.5"
a（4）="c站"
a（5）="16.8"
a（6）="d站"
a（7）="108"
.
.
.
.

tujie2005 2006-05-03