2253Frogger{dijkstra思想应用}{AC…

最新推荐文章于 2022-02-21 09:22:11 发布

原创最新推荐文章于 2022-02-21 09:22:11 发布 · 561 阅读

0 ·

CC 4.0 BY-SA版权

poj 专栏收录该内容

19 篇文章

订阅专栏

本文介绍了一种基于迪杰斯特拉算法求解两点间最短路径的方法，通过定义坐标系中的点及其距离矩阵来实现。文章详细展示了如何初始化点的位置信息、计算各点间的欧几里得距离，并运用迪杰斯特拉算法找到从指定起点到其他各点的最短路径。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

var
  n,count:longint;
  x,y:array[1..200] of longint;
  w:array[1..200,1..200] of real;
  f:array[1..200] of real;
  used:array[1..200] of boolean;
function init:boolean;
var
  i,j:longint;
begin
  read(n);
  if n=0 then exit(false);
  for i:=1 to n do read(x[i],y[i]);
  for i:=1 to n do
    for j:=1 to n do
     w[i,j]:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));
  fillchar(used,sizeof(used),false);
  exit(true);
end;

function min(a,b:real):real;
begin
  if a<b then exit(a)
  else exit(b);
end;
function max(a,b:real):real;
begin
  if a>b then exit(a)
  else exit(b);
end;
procedure dijkstra(s:longint);
var
  k,i,pos:longint;
  min2:real;
begin
  for i:=1 to n do f[i]:=w[s,i];
  used[s]:=true;
  for k:=1 to n-1 do
    begin
     min2:=maxlongint;
      for i:=1 to n do
       if (not used[i]) and (f[i]<min2) then
         begin
          min2:=f[i];
          pos:=i;
         end;
     used[pos]:=true;
      for i:=1 to n do
       if not used[i] then
         f[i]:=min(f[i],max(f[pos],w[pos,i]));{状态转移方程}
    end;
end;
procedure main;
begin
  dijkstra(1);
  writeln('Scenario #',count);
  writeln('Frog Distance = ',f[2]:0:3);
end;
begin
  count:=1;
  while true do
    begin
      if init then
       begin
         main;
         inc(count);
       end
      else break;
    end;
end.