一道poj上的题目求poj2253 的pascal程序

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/05 02:08:06
一道poj上的题目求poj2253 的pascal程序
xSMo@+#qHk;i&9!(i7qfE zĭ4is/0MڔV,7ƻͤ}~=yWGϧ_|8|{mW@,i@Qӗw?v8" WK ! ܋bE L`JH<*%;R-KaLE+,G 07%6EX@ӬLMr[\a4Xu,ijrX2 79nr00{'ֵsJxhۇl ]鍏ę8`dP j1-R R^,ap1H"f[ֿ^An[RtiM{*6lIH ELY%۝uiWUe lψdEs#v$aYjL,:вcACntlux24%W|h|iZqjz)-( (9P]uW(= pd]KsC"`ЂbW]Wholw2:xQ̯/˯˯;)>x{UᩩAwۻO(is9MhD'

一道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

一道poj上的题目求poj2253 的pascal程序 poj上的题目不会做,给个思路吧~ poj 我是一名编程初学者,在做poj上的题目,有些难度较大,希望知道poj中难度较小的题目的序号. 求poj上二叉堆的题目!rt.给题号,不需要解答.越裸的堆越好 poj上的题应该怎么利用? 求POJ上 拓扑排序 北大oj上的一道题,哪位高手有兴趣解答下,感激不尽 http://poj.org/problem?id=1008 POJ的几种结果是什么意思 谁有数据结构的算法跟POJ题目的对应关系其他的OJ也可以,就是像线性表、栈、队列、树、图之类的跟OJ上题目的对应 求poj 1952 考卷上的一道题目 一道求极限的题目 一道求不定积分的题目 求极限的一道题目 求一道方差的题目 求电路的一道题目, poj的2666怎么做,最重要的是解释. 怎么两个POJ的题号不一样啊?