易语言邻接图拓扑怎么计算，这个太难了

qazyqs520

地图是我瞎写的 打个比方的

我只能找到一级直达地图

如果没有一级直达地图  
怎么找到每一级的邻接点

小磊哥来了

qazyqs520 发表于 2023-5-11 01:37
这个列子的  城市数组是怎么排的格式  能给个Q吗

q1571377715，加我吧

qazyqs520

大佬们帮帮忙  追加40精币

小磊哥来了

你是要找最短路径吧？

qazyqs520

小磊哥来了 发表于 2023-5-9 14:15
你是要找最短路径吧？

是的 怎么写的  

小磊哥来了

  

子程序名	返回值类型	公开	备 注
新扑拓寻路	文本型		如果找到，就返回找到的路径；否则返回错误信息
参数名	类 型	参考	可空	数组	备 注
起点城市	文本型
终点城市	文本型
城市数组	文本型

变量名	类 型	静态	数组	备 注
旧路径	文本型		0
i	整数型
新路径	文本型		0
是否找到路径	逻辑型
返回值	文本型

如果真 (起点城市 ＝ 终点城市)
返回 (“参数错误：起点城市＝终点城市”)
循环判断首 ()
是否找到路径 ＝ 假
计次循环首 (取数组成员数 (城市数组), i)
如果真 (寻找文本 (城市数组 [i], “-”, , 真) ≤ 0)
删除成员 (城市数组, i, 1)
是否找到路径 ＝ 真
跳出循环 ()
处理事件 ()
计次循环尾 ()
处理事件 ()
循环判断尾 (是否找到路径)  ' 以上是删除掉那些格式不为[城市-城市]的数组
返回值 ＝ “0”
是否找到路径 ＝ 真
计次循环首 (取数组成员数 (城市数组), i)
新路径 ＝ 分割文本 (城市数组 [i], “-”, )
如果真 (新路径 [1] ＝ 起点城市 或 新路径 [2] ＝ 起点城市)
是否找到路径 ＝ 假
如果真 (新路径 [1] ＝ 终点城市 或 新路径 [2] ＝ 终点城市)
返回值 ＝ “”
处理事件 ()
计次循环尾 ()
清除数组 (新路径)
如果真 (是否找到路径)
返回 (“参数错误：起点城市在城市数组中不存在”)
如果真 (返回值 ＝ “0”)
返回 (“参数错误：终点城市在城市数组中不存在”)  ' 以上是确认[城市数组]中存在起点城市和终点城市
' 调试输出 (城市数组)
如果真 (扑拓子寻路 (“”, 起点城市, 终点城市, 城市数组, 旧路径) ＝ 假)  ' 这次是初始化寻路
循环判断首 ()
计次循环首 (取数组成员数 (旧路径), i)  ' 把每个路径的子路径 放置在临时路径里面
如果真 (扑拓子寻路 (旧路径 [i], 取文本右边 (旧路径 [i], 取文本长度 (旧路径 [i]) － 倒找文本 (旧路径 [i], “-”, , 假)), 终点城市, 城市数组, 新路径) ＝ 真)
是否找到路径 ＝ 真  ' 做标记
处理事件 ()
计次循环尾 ()
清除数组 (旧路径)  ' 把旧路径清除
旧路径 ＝ 新路径  ' 新路径放置
清除数组 (新路径)
如果真 (是否找到路径 ＝ 真)  ' 该层次是否已经找到终点。
跳出循环 ()
处理事件 ()
循环判断尾 (真)
' 调试输出 (旧路径)
计次循环首 (取数组成员数 (旧路径), i)  ' 进行路径排除，只采用终点符合的
如果真 (取文本右边 (旧路径 [i], 取文本长度 (旧路径 [i]) － 倒找文本 (旧路径 [i], “-”, , 假)) ＝ 终点城市)
返回值 ＝ 旧路径 [i]
跳出循环 ()
处理事件 ()
计次循环尾 ()
返回 (返回值)

.版本 2<br /> <br /> .子程序 新扑拓寻路, 文本型, , 如果找到，就返回找到的路径；否则返回错误信息<br /> .参数 起点城市, 文本型<br /> .参数 终点城市, 文本型<br /> .参数 城市数组, 文本型, 数组<br /> .局部变量 旧路径, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 新路径, 文本型, , "0"<br /> .局部变量 是否找到路径, 逻辑型<br /> .局部变量 返回值, 文本型<br /> <br /> .如果真 (起点城市 ＝ 终点城市)<br />     返回 (“参数错误：起点城市＝终点城市”)<br /> .如果真结束<br /> .循环判断首 ()<br />     是否找到路径 ＝ 假<br />     .计次循环首 (取数组成员数 (城市数组), i)<br />         .如果真 (寻找文本 (城市数组 <i>, “-”, , 真) ≤ 0)<br />             删除成员 (城市数组, i, 1)<br />             是否找到路径 ＝ 真<br />             跳出循环 ()<br />         .如果真结束<br />         处理事件 ()<br />     .计次循环尾 ()<br />     处理事件 ()<br /> .循环判断尾 (是否找到路径)  ' 以上是删除掉那些格式不为[城市-城市]的数组<br /> 返回值 ＝ “0”<br /> 是否找到路径 ＝ 真<br /> .计次循环首 (取数组成员数 (城市数组), i)<br />     新路径 ＝ 分割文本 (城市数组 <i>, “-”, )<br />     .如果真 (新路径 [1] ＝ 起点城市 或 新路径 [2] ＝ 起点城市)<br />         是否找到路径 ＝ 假<br />     .如果真结束<br />     .如果真 (新路径 [1] ＝ 终点城市 或 新路径 [2] ＝ 终点城市)<br />         返回值 ＝ “”<br />     .如果真结束<br />     处理事件 ()<br /> .计次循环尾 ()<br /> 清除数组 (新路径)<br /> .如果真 (是否找到路径)<br />     返回 (“参数错误：起点城市在城市数组中不存在”)<br /> .如果真结束<br /> .如果真 (返回值 ＝ “0”)<br />     返回 (“参数错误：终点城市在城市数组中不存在”)  ' 以上是确认[城市数组]中存在起点城市和终点城市<br /> .如果真结束<br /> ' 调试输出 (城市数组)<br /> .如果真 (扑拓子寻路 (“”, 起点城市, 终点城市, 城市数组, 旧路径) ＝ 假)  ' 这次是初始化寻路<br />     .循环判断首 ()<br />         .计次循环首 (取数组成员数 (旧路径), i)  ' 把每个路径的子路径 放置在临时路径里面<br />             .如果真 (扑拓子寻路 (旧路径 <i>, 取文本右边 (旧路径 <i>, 取文本长度 (旧路径 <i>) － 倒找文本 (旧路径 <i>, “-”, , 假)), 终点城市, 城市数组, 新路径) ＝ 真)<br />                 是否找到路径 ＝ 真  ' 做标记<br />             .如果真结束<br />             处理事件 ()<br />         .计次循环尾 ()<br />         清除数组 (旧路径)  ' 把旧路径清除<br />         旧路径 ＝ 新路径  ' 新路径放置<br />         清除数组 (新路径)<br />         .如果真 (是否找到路径 ＝ 真)  ' 该层次是否已经找到终点。<br />             跳出循环 ()<br />         .如果真结束<br />         处理事件 ()<br />     .循环判断尾 (真)<br /> .如果真结束<br /> ' 调试输出 (旧路径)<br /> .计次循环首 (取数组成员数 (旧路径), i)  ' 进行路径排除，只采用终点符合的<br />     .如果真 (取文本右边 (旧路径 <i>, 取文本长度 (旧路径 <i>) － 倒找文本 (旧路径 <i>, “-”, , 假)) ＝ 终点城市)<br />         返回值 ＝ 旧路径 <i><br />         跳出循环 ()<br />     .如果真结束<br />     处理事件 ()<br /> .计次循环尾 ()<br /> 返回 (返回值)

小磊哥来了

  

子程序名	返回值类型	公开	备 注
扑拓子寻路	逻辑型
参数名	类 型	参考	可空	数组	备 注
现有路径	文本型
节点城市	文本型
终点城市	文本型
城市数组	文本型
输出路径	文本型

变量名	类 型	静态	数组	备 注
i	整数型
临时路径	文本型		0
城市	文本型		0
下一个城市	文本型
是否有找到终点城市	逻辑型
临时文本数组	文本型		0
j	整数型

是否有找到终点城市 ＝ 假
如果真 (现有路径 ＝ “”)
现有路径 ＝ 节点城市
计次循环首 (取数组成员数 (城市数组), i)
城市 ＝ 分割文本 (城市数组 [i], “-”, )
如果真 (城市 [1] ＝ 节点城市 或 城市 [2] ＝ 节点城市)
判断 (城市 [1] ＝ 节点城市)
下一个城市 ＝ 城市 [2]
下一个城市 ＝ 城市 [1]

如果真 (下一个城市 ＝ 终点城市)
是否有找到终点城市 ＝ 真
判断 (寻找文本 (现有路径, “-”, , 真) ＞ 0)
临时文本数组 ＝ 分割文本 (现有路径, “-”, )
计次循环首 (取数组成员数 (临时文本数组), j)
如果真 (临时文本数组 [j] ＝ 下一个城市)
下一个城市 ＝ “”
跳出循环 ()
处理事件 ()
计次循环尾 ()
如果真 (现有路径 ＝ 下一个城市)
下一个城市 ＝ “”


如果真 (下一个城市 ＝ “”)
到循环尾 ()
加入成员 (临时路径, 现有路径 ＋ “-” ＋ 下一个城市)
' 调试输出 (临时路径)
加入成员 (输出路径, 临时路径)
清除数组 (临时路径)
处理事件 ()
计次循环尾 ()
' 调试输出 (输出路径)
返回 (是否有找到终点城市)

.版本 2<br /> <br /> .子程序 扑拓子寻路, 逻辑型<br /> .参数 现有路径, 文本型<br /> .参数 节点城市, 文本型<br /> .参数 终点城市, 文本型<br /> .参数 城市数组, 文本型, 数组<br /> .参数 输出路径, 文本型, 参考 可空 数组<br /> .局部变量 i, 整数型<br /> .局部变量 临时路径, 文本型, , "0"<br /> .局部变量 城市, 文本型, , "0"<br /> .局部变量 下一个城市, 文本型<br /> .局部变量 是否有找到终点城市, 逻辑型<br /> .局部变量 临时文本数组, 文本型, , "0"<br /> .局部变量 j, 整数型<br /> <br /> 是否有找到终点城市 ＝ 假<br /> .如果真 (现有路径 ＝ “”)<br />     现有路径 ＝ 节点城市<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (城市数组), i)<br />     城市 ＝ 分割文本 (城市数组 <i>, “-”, )<br />     .如果真 (城市 [1] ＝ 节点城市 或 城市 [2] ＝ 节点城市)<br />         .判断开始 (城市 [1] ＝ 节点城市)<br />             下一个城市 ＝ 城市 [2]<br />         .默认<br />             下一个城市 ＝ 城市 [1]<br />         .判断结束<br /> <br />         .如果真 (下一个城市 ＝ 终点城市)<br />             是否有找到终点城市 ＝ 真<br />         .如果真结束<br />         .判断开始 (寻找文本 (现有路径, “-”, , 真) ＞ 0)<br />             临时文本数组 ＝ 分割文本 (现有路径, “-”, )<br />             .计次循环首 (取数组成员数 (临时文本数组), j)<br />                 .如果真 (临时文本数组 [j] ＝ 下一个城市)<br />                     下一个城市 ＝ “”<br />                     跳出循环 ()<br />                 .如果真结束<br />                 处理事件 ()<br />             .计次循环尾 ()<br />         .默认<br />             .如果真 (现有路径 ＝ 下一个城市)<br />                 下一个城市 ＝ “”<br />             .如果真结束<br /> <br />         .判断结束<br /> <br />         .如果真 (下一个城市 ＝ “”)<br />             到循环尾 ()<br />         .如果真结束<br />         加入成员 (临时路径, 现有路径 ＋ “-” ＋ 下一个城市)<br />         ' 调试输出 (临时路径)<br />         加入成员 (输出路径, 临时路径)<br />     .如果真结束<br />     清除数组 (临时路径)<br />     处理事件 ()<br /> .计次循环尾 ()<br /> ' 调试输出 (输出路径)<br /> 返回 (是否有找到终点城市)

小磊哥来了

这两个子程序就可以实现寻找最短路径

qazyqs520

小磊哥来了 发表于 2023-5-10 19:39
这两个子程序就可以实现寻找最短路径

这个列子的  城市数组是怎么排的格式  能给个Q吗