商店選址問題

2021-07-25 03:18:34 字數 915 閱讀 4098

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 給出乙個城市的地圖 用鄰接矩陣表示 商店設在一點,使各個地方到商店距離之和最短。...