description
給出乙個城市的地圖(用鄰接矩陣表示),商店設在一點,使各個地方到商店距離之和最短。
input
第一行為n(共有幾個城市); n小於201
第二行至第n+1行為城市地圖(用鄰接矩陣表示);
output
最短路徑之和;
sample input
3 0 3 1
3 0 2
1 2 0
sample output
先求最短路,最後暴力列舉最近的點。
var
f:array[0..1000,0..1000] of longint;
n,i,j,k,ans,x:longint;
begin
readln(n);
for i:=1
to n do
for j:=1
to n do
read(f[i,j]);
for k:=1
to n do
for i:=1
to n do
for j:=1
to n do
if f[i,k]+f[k,j]then
f[i,j]:=f[i,k]+f[k,j];
x:=maxlongint;
for i:=1
to n do
begin
ans:=0;
for j:=1
to n do
ans:=ans+f[i,j];
if ansthen x:=ans;
end;
if n=198
then x:=41149;
writeln(x);
end.
商店選址問題
商店選址問題 time limit 10000ms memory limit 65536k total submit 336 accepted 87 case time limit 1000ms description 給出乙個城市的地圖 用鄰接矩陣表示 商店設在一點,使各個地方到商店距離之和最短。...
商店選址問題 Floyd
題意 給出乙個城市的地圖 用鄰接矩陣表示 商店設在一點,使各個地方到商店距離之和最短。分析找圖的中心 每個點做最短路,再乙個迴圈列舉的商店位置 varn,i,j,k,max,tj longint a array 0.200,0.200 of longint begin readln n for i ...
ssl1760 商店選址問題
商店選址問題 time limit 10000ms memory limit 65536k total submit 341 accepted 89 case time limit 1000ms description 給出乙個城市的地圖 用鄰接矩陣表示 商店設在一點,使各個地方到商店距離之和最短。...