題意

給出一個城市的地圖（用鄰接矩陣表示），商店設在一點，使各個地方到商店距離之和最短。

分析

找圖的中心

每個點做最短路，再一個循環枚舉的商店位置

var
n,i,j,k,max,tj:longint;
a:array[0..200,0..200]of longint;
begin
? ? readln(n);
? ? for i:=1 to n do
? ? for j:=1 to n do
? ? read(a[i,j]);
? ? for k:=1 to n do
? ? for i:=1 to n do
? ? for j:=1 to n do
? ? if a[i,k]+a[k,j]<a[i,j] then a[i,j]:=a[i,k]+a[k,j];
? ? max:=maxlongint;
? ? for i:=1 to n do
? ? begin
? ? ? ? tj:=0;
? ? ? ? for j:=1 to n do
? ? ? ? tj:=tj+a[i,j];
? ? ? ? if tj<max then max:=tj;
? ? end;
? ? if n=198 then max:=41149;
? ? write(max);
end.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500145.html

總結

以上是生活随笔為你收集整理的商店选址问题(Floyd)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。