找最佳通路 - CAX_CPG - 62122

记录编号	62122	评测结果	AAAAAAAAAA
题目名称	找最佳通路	最终得分	100
用户昵称	CAX_CPG	是否通过	通过
代码语言	Pascal	运行时间	0.004 s
提交时间	2013-06-20 09:59:12	内存使用	0.20 MiB

显示代码纯文本

var a:array[1..100,1..100]of longint;
    n,m,x,y,sx,sy,i,j,k:longint;

begin
 assign(input,'city.in');reset(input);
 assign(output,'city.out');rewrite(output);
 readln(n,m,sx,sy);
 filldword(a,sizeof(a)>>2,100000);
 for i:=1 to n do a[i,i]:=0;
 for i:=1 to m do
  begin
   readln(x,y);
   a[x,y]:=1;
  end;close(input);
 for k:=1 to n do
  for i:=1 to n do
   for j:=1 to n do
    if a[i,k]+a[k,j]<a[i,j]then a[i,j]:=a[i,k]+a[k,j];
 writeln(a[sx,sy]+1);close(output);
end.