软件下载 | 资讯教程 | 最近更新 | 下载排行 | 一键转帖 | 发布投稿
您的位置:最火下载站 > 源码下载 > Delphi源码 > 文件操作 > Delphi 货郎担算法程序,源代码免费下载下载

Delphi 货郎担算法程序,源代码免费下载

  • 资源语言:简体中文
  • 资源类型:国产软件
  • 资源大小:9 KB
  • 资源等级:3星级
  • 相关链接:Home Page
  • 资源性质:免费版
运行环境:windows/delphi7
更新时间:2011-01-21 20:50:21
有无插件:无插件
Delphi货郎担算法程序,源代码免费下载,最开始在毕业设计中发现的,后来又经过了一些修正,现在可直接编译,没使用第三方控件类库,截图大家可以先看下,部分代码释义:
Cities: array of TCity; //城市数组 [1..x]
CitiesDistance: array of array of real; //各个城市间的距离[1..x, 1..x]
CitiesToured: array of integer; //是否已经遍历过
CityNumber: integer; //城市的数目
ShortTestLength: real; //“最短”路径的长度
ShortestDistance: array of real; //最短路径
TouredLength: real; //已经走过的距离
//获取两个城市之间的距离
function GetDistance(a_ACity, a_BCity: TCity): real;
//生成距离矩阵
procedure GetAllDistance;
//遍历城市
procedure CreateCities; //生成城市
procedure FindShortTestPath; //寻找最短路径,获得各个城市之间的距离
//并将其添加到数组CitiesDistance[]
procedure Draw; //对画布进行重画,获得两个城市之间的距离
 报告下载错误
点击链接开始下载
本类最新
相关教程
下载说明
栏目导航
推荐软件