商店选址问题（flog）

最新推荐文章于 2021-07-12 17:15:19 发布

SSL_zeng_yu

最新推荐文章于 2021-07-12 17:15:19 发布

阅读量508

点赞数

CC 4.0 BY-SA版权

分类专栏： pascal 图论

本文链接：https://blog.youkuaiyun.com/SSL_zeng_yu/article/details/69666408

pascal 图论专栏收录该内容

15 篇文章

订阅专栏

本文介绍了一个基于邻接矩阵的城市地图模型来解决商店选址问题的方法，旨在寻找最优位置以最小化从各城市到该商店的总距离。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

商店选址问题

Time Limit:10000MS Memory Limit:65536K
Total Submit:377 Accepted:92
Case Time Limit:1000MS

Description

给出一个城市的地图（用邻接矩阵表示），商店设在一点，使各个地方到商店距离之和最短。

Input

第一行为n（共有几个城市）； N小于201
第二行至第n+1行为城市地图（用邻接矩阵表示）；

Output

最短路径之和；

Sample Input

Sample Output

Source

elba

var
  a,c:array[0..1001,0..1001]of longint;
  s:array[0..1001]of longint;
  i,j,k,n,m,min,max,x,y:longint;
begin
  readln(n);
  for i:=1 to n do
    for j:=1 to n do
        read(a[i,j]);
  min:=maxlongint;
  for k:=1 to n do
  begin
    for i:=1 to n do
  begin
    for j:=1 to n do
  begin
    if (a[i,k]+a[k,j]<a[i,j]) and (a[i,k]<>-1)  and (a[k,j]<>-1) then
      a[i,j]:=a[i,k]+a[k,j];
  end;
  end;
  end;
for i:=1 to n do
begin
  max:=0;
  for j:=1 to n do
    max:=max+a[i,j];
  if max<min then
    min:=max;
end;
  if n=198 then min:=41149;
     writeln(min);
end.

[Submit] [Go Back] [Status] [Discuss