SSL1615Frogger
来源:互联网 发布:贸易数据库 编辑:程序博客网 时间:2024/06/15 07:39
SSL1615Frogger
题目
有一只叫做Freddy的青蛙坐在湖中央的一块石头上,突然间他发现另一只青蛙(她的名字是Fiona)坐在另一颗石头上。他想要过去找她,但是因为湖水很脏,到处充满着游客的防晒油,所以他决定用跳的,而不要用游的。
不妙的是Fiona的石头离他的距离超出他所能跳的范围。因此Freddy考虑利用其它的一些石头当作中继站,因此他就可以跳比较小的距离(或许要跳许多次)去找Fiona。要这样子连续的跳,很明显的Freddy一次能跳的距离必须至少和这一串石头间的距离最大的距离一样。因此,介于石头间的蛙跳距离(frog distance,人类也称之为minmax distance)定义为要从Freddy所在的石头要跳到Fiona所在的石头的路径中,最小必须要跳的距离。给你Freddy所在的石头、Fiona所在的石头,以及湖中所有其它石头的坐标,你的任务是算出介于Freddy和Fiona所在石头间的蛙跳距离。
题意
有n个点,要从点1到点2,求最短的最长路径。
题解
用类似Floyd的方法求出从点1到点2的最短最长路径
if (a[i,j]>a[i,k])and(a[i,j]>a[k,j]) then
if a[i,k]>a[k,j] then
a[i,j]:=a[i,k] else
a[i,j]:=a[k,j];
代码
var n,i,j,t,k,p:longint; a:array[1..200,1..200] of real; x,y,l:array[1..200] of longint; d:array[1..200] of real;begin readln(n); while n<>0 do begin inc(p); readln(x[1],y[1]); readln(x[n],y[n]); for i:=2 to n-1 do readln(x[i],y[i]); fillchar(a,sizeof(a),$7); for i:=1 to n do for j:=1 to n do a[i,j]:=sqrt(sqr(abs(x[i]-x[j]))+sqr(abs(y[i]-y[j]))); for k:=1 to n do for i:=1 to n do for j:=1 to n do if (a[i,j]>a[i,k])and(a[i,j]>a[k,j]) then if a[i,k]>a[k,j] then a[i,j]:=a[i,k] else a[i,j]:=a[k,j]; writeln('Scenario #',p); writeln('Frog Distance = ',a[1,n]:0:3); writeln; readln(n); end;end.
1 0