poj 2253
Frogger
Time Limit: 1000MS
Memory Limit: 65536K
Total Submissions: 11751
Accepted: 3932
Description
Freddy Frog is sitting on a stone in the middle of a lake. Suddenly he notices Fiona Frog who is sitting on another stone. He plans to visit her, but since the water is dirty and full of tourists' sunscreen, he wants to avoid swimming and instead reach her by jumping.
Unfortunately Fiona's stone is out of his jump range. Therefore Freddy considers to use other stones as intermediate stops and reach her by a sequence of several small jumps.
To execute a given sequence of jumps, a frog's jump range obviously must be at least as long as the longest jump occuring in the sequence.
The frog distance (humans also call it minimax distance) between two stones therefore is defined as the minimum necessary jump range over all possible paths between the two stones.
You are given the coordinates of Freddy's stone, Fiona's stone and all other stones in the lake. Your job is to compute the frog distance between Freddy's and Fiona's stone.
Input
The input will contain one or more test cases. The first line of each test case will contain the number of stones n (2<=n<=200). The next n lines each contain two integers xi,yi (0 <= xi,yi <= 1000) representing the coordinates of stone #i. Stone #1 is Freddy's stone, stone #2 is Fiona's stone, the other n-2 stones are unoccupied. There's a blank line following each test case. Input is terminated by a value of zero (0) for n.
Output
For each test case, print a line saying "Scenario #x" and a line saying "Frog Distance = y" where x is replaced by the test case number (they are numbered from 1) and y is replaced by the appropriate real number, printed to three decimals. Put a blank line after each test case, even after the last one.
Sample Input
2 0 0 3 4 3 17 4 19 4 18 5 0
Sample Output
Scenario #1 Frog Distance = 5.000 Scenario #2 Frog Distance = 1.414 这个题
传说中有好多好多解法
我用的是floyd变形
虽然有点慢吧...........
View Code
var
n,i,j,num,k:longint;
a:array[1..200,1..200] of real;
x,y:array[1..200] of longint;
function max(xx,yy:real):real;
begin
if xx>yy then exit(xx) else exit(yy);
end;
begin
assign(input,'input.in');
assign(output,'output.out');
reset(input);
rewrite(output);
readln(n);
while n<>0 do
begin
inc(num);
for i:=1 to n do
readln(x[i],y[i]);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));
for i:=1 to n do
for j:=1 to n do
if (a[i,j]=0) then a[i,j]:=maxlongint shr 1;
for k:=1 to n do
for i:=1 to n do
if i<>k then
for j:=1 to n do
if (j<>k) and (j<>i) and (a[i,j]>max(a[i,k],a[k,j])) then
a[i,j]:=max(a[i,k],a[k,j]);
writeln('Scenario #',num);
writeln('Frog Distance = ', a[1,2]:0:3);
writeln;
readln(n);
end;
close(input);
close(output);
end.