Minimum Transport Cost
Time limit: 1 Seconds Memory limit: 32768K
Total Submit: 1309 Accepted Submit: 260
These are N cities in Spring country. Between each pair of cities there may be one transportation track or none. Now there is some cargo that should be delivered from one city to another. The transportation fee consists of two parts:
The cost of the transportation on the path between these cities, and
a certain tax which will be charged whenever any cargo passing through one city, except for the source and the destination cities.
You must write a program to find the route which has the minimum cost.
Input
First is N, number of cities. N = 0 indicates the end of input.
The data of path cost, city tax, source and destination cities are given in the input, which is of the form:
a11 a12 ... a1N
a21 a22 ... a2N
...............
aN1 aN2 ... aNN
b1 b2 ... bN
c d
e f
...
g h
where aij is the transport cost from city i to city j, aij = -1 indicates there is no direct path between city i and city j. bi represents the tax of passing through city i. And the cargo is to be delivered from city c to city d, city e to city f, ..., and g = h = -1. You must output the sequence of cities passed by and the total cost which is of the form:
Output
From c to d :
Path: c-->c1-->......-->ck-->d
Total cost : ......
......
From e to f :
Path: e-->e1-->..........-->ek-->f
Total cost : ......
Note: if there are more minimal paths, output the lexically smallest one. Print a blank line after each test case.
Sample Input
5
0 3 22 -1 4
3 0 5 -1 -1
22 5 0 9 20
-1 -1 9 0 4
4 -1 20 4 0
5 17 8 3 1
1 3
3 5
2 4
-1 -1
0
Sample Output
From 1 to 3 :
Path: 1-->5-->4-->3
Total cost : 21
From 3 to 5 :
Path: 3-->4-->5
Total cost : 16
From 2 to 4 :
Path: 2-->1-->5-->4
Total cost : 17
Program Zoj_1456_Mpq;
Const Maxn=50;
var
n,Maxlong:longint;
cost:array[1..Maxn] of integer;
ans,father:array[1..Maxn,1..Maxn] of integer;
dist:array[1..Maxn,1..Maxn] of longint;
procedure init;
var
i,j:integer;
begin
fillchar(father,sizeof(father),0);
fillchar(ans,sizeof(ans),0);
fillchar(dist,sizeof(dist),60);
Maxlong:=dist[1,1];
for i:=1 to n do
begin
for j:=1 to n do
begin
read(dist[i,j]);
if dist[i,j]=-1 then dist[i,j]:=Maxlong else father[i,j]:=j;
end;
readln;
end;
for i:=1 to n do read(cost[i]);
end;
procedure Floyd;
var
i,j,k,v:integer;
begin
for k:=1 to n do
for i:=1 to n do
if k<>i then
for j:=1 to n do
if (i<>j) and (j<>k) then
if dist[i,k]+dist[k,j]+cost[k]<dist[i,j] then
begin
dist[i,j]:=dist[i,k]+dist[k,j]+cost[k];
ans[i,j]:=k;
father[i,j]:=father[i,k];
end else
if dist[i,k]+dist[k,j]+cost[k]=dist[i,j] then
begin
v:=i;
while father[v,k]=father[v,j] do v:=father[v,j];
if father[v,j]>father[v,k] then
begin
father[i,j]:=father[i,k];
ans[i,j]:=k;
end;
end;
end;
procedure Print(x,y:integer);
begin
if ans[x,y]=0 then exit;
print(x,ans[x,y]);
write('-->',ans[x,y]);
print(ans[x,y],y);
end;
procedure Main;
var
x,y:integer;
begin
Floyd;
readln(x,y);
while x+y>0 do
begin
writeln('From ',x,' to ',y,' :');
write('Path: ',x);
if x=y then
begin
writeln;
writeln('Total cost : 0');
end else
begin
Print(x,y);
writeln('-->',y);
writeln('Total cost : ',dist[x,y]);
end;
readln(x,y);
writeln;
end;
end;
begin
readln(n);
while n<>0 do
begin
init;
Main;
readln(n);
end;
end.