作业帮一道poj上的题目求poj2253 的pascal程序
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/28 15:27:13
一道poj上的题目求poj2253 的pascal程序
一道poj上的题目
求poj2253 的pascal程序
一道poj上的题目求poj2253 的pascal程序
floyd 01 type ty=record x,y:longint; end; 02 var 03 p:array[1..200,1..200] of extended; 04 t:array[1..200] of ty; 05 m,n,i,j,k:longint; 06 function dist(a,b:ty):extended; 07 begin 08 exit(sqrt(sqr(a.x-b.x)+sqr(a.y-b.y))); 09 end; 10 function max(a,b:extended):extended; 11 begin 12 if a>b then exit(a) else exit(b); 13 end; 14 procedure floyd; 15 var 16 i,j,k:longint; 17 begin 18 for k:=1 to n do 19 for i:=1 to n do 20 for j:=1 to n do 21 if p[i,j]>max(p[i,k],p[k,j]) then p[i,j]:=max(p[i,k],p[k,j]); 22 writeln(p[1,2]:0:3); 23 end; 24 begin 25 j:=0; 26 while true do 27 begin 28 read(n); 29 if n=0 then halt; 30 inc(j); 31 for i:=1 to n do 32 read(t[i].x,t[i].y); 33 for i:=1 to n do 34 for k:=i+1 to n do 35 begin 36 p[i,k]:=dist(t[i],t[k]); 37 p[k,i]:=p[i,k]; 38 end; 39 writeln('Scenario #',j); 40 write('Frog Distance = '); 41 floyd; 42 writeln; 43 end; 44 end.友情提醒：oi的题目最好不要在问问上提问,最好去csdn或者名校的bbs