主题：换车问题
怜丹欣∮
[专家分：120] 发布于 2007-07-10 16:42:00
一个城市有n个车站，已知m 条连接这些车站的公共汽车[color=800000]单向[/color]航线。求站1至站n的[color=000080]最少[/color]换车数。
输入： n,m
以下m行依次列出每条线路的车站序号。
输出： 最少换车数。
最后更新于：2007-07-10 16:43:00
回复列表 （共13个回复）
沙发
Matodied [专家分：7560] 发布于 2007-07-10 21:04:00
我不会做。太难了。
板凳
怜丹欣∮ [专家分：120] 发布于 2007-07-11 08:50:00
如果你都不会做,那还有谁会啊!
介绍几个会做的朋友行吗?
谢谢!
3 楼
abcwuhang [专家分：1840] 发布于 2007-07-11 20:20:00
program huanche;
var BEST:array [1..1000,1..1000] of longint;
n,m,x,y,i,j:longint;
begin
readln(n,m);
for i:=1 to m do
begin
readln(x,y);
BEST[x,y]:=1;
for j:=1 to i-1 do
begin
if BEST[j,y]>0 then if BEST[j,x]+BEST[x,y]<BEST[j,y] then
BEST[j,y]:=BEST[j,x]+BEST[x,y];
if BEST[j,y]=0 then BEST[j,y]:=BEST[j,x]+BEST[x,y];
end;
end;
writeln(BEST[1,n]);
end.
未加修改,并且这里的位置太狭窄,请多包涵!!!
（ＰＳ：不知范围是否合适？？）
4 楼
怜丹欣∮ [专家分：120] 发布于 2007-07-12 10:00:00
谢谢大家了!
5 楼
Matodied [专家分：7560] 发布于 2007-07-12 13:31:00
2楼的，我可是PASCAL的初学者！
这么难的题目我还是等几年……再做吧！
6 楼
abcwuhang [专家分：1840] 发布于 2007-07-12 13:45:00
PS:5楼真谦虚...?!
7 楼
abcwuhang [专家分：1840] 发布于 2007-07-12 13:46:00
不过5楼的专家分为什么会如此高???
借鉴一下经验..
8 楼
Matodied [专家分：7560] 发布于 2007-07-12 21:45:00
PS：7楼，这还叫高？
你把我和C论坛上的人比一比，他们的专家分高得吓人。几万分的都有。
（最大的捷径：同时会很多种语言的人，分一定高，要是同时会C和VB……那你就等着瞧吧！保证一个月至少3000分！！！
唉！QBasic和PASCAL都是人气不好的论坛……）
9 楼
abcwuhang [专家分：1840] 发布于 2007-07-13 12:23:00
严重同意!!!
10 楼
007bond [专家分：540] 发布于 2007-07-16 09:43:00
偶不同意,想多得专家分有一条终南捷径,就是用两个用户名,自己给自己加分,偶也用过,不过被人数落了一番后,就没这样干过了
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 换车问题