小薩的煩惱

題目：

description

聖誕節又要到了！小薩希望和自己心儀的mm一起出去度過乙個浪漫的的聖誕節。他進行了詳盡的準備，找到了n個很適合他們去約會的好地方，但無奈小薩和他的mm都是初三學校，晚上必須回學校上晚修，沒有足夠的時間讓他們走遍每乙個地方。迫於無奈，小薩選擇了乙個最合適的地方s。小薩打算和他的mm一起步行到那個地方，那樣他們就有很多時間來聊天玩樂，但是無奈時間有限，小薩決定坐公共汽車過去。然而，小薩發覺，自己的錢只夠買一張公共汽車車票了！小薩該怎麼辦呢？他找到了你……

【題目描述】

小薩將給出一張地圖，它可以看做乙個有n（n<=100）個結點的圖。這張地圖有n個公共汽車站，小薩只可以在這n個汽車站上公共汽車。有些車站之間存在一條雙向通路，無論是公共汽車還是小薩，都只能走這些通路。若兩個車站之間的距離為d，步行所需要的時間為2*d秒，坐公共汽車所需要的時間為d秒。小薩他們只有t秒的時間，他希望你求出他和他的mm出去約會後能否及時趕回來，若不能，則輸出「you are day dreaming!」，否則輸出他們所需要花費的最少時間。

注意：一張公共汽車車票可以使用兩次（只可以搭乘同一輛公共汽車），即可以認為小薩去約會地點的時間和回來的時間相等。

input

第一行有三個整數n、t、s

接下來是乙個n*n的鄰接矩陣。兩兩車站之間的距離不超過10^9。a[i,j]為0表示i和j車站不連通。

output

若小薩他們不能在限定時間內趕回學校，那麼輸出「you are day dreaming!」（不包括引號）

否則，輸出乙個整數，為他們所需要花費的最少時間。

sample input

4 5 4

0 1 1 1

1 0 1 1

1 1 0 1

1 1 1 0

sample output

hint

【資料範圍】

20%的資料：n<=10

100%的資料：n<=70 t<=10^9

作者思路：先用dij求出每個點的最短路徑，在列舉每條公車的邊。

**：

var a:array[0..101,0..101] of longint;
b:array[0..101] of longint;
n,t,s:longint;
procedure
init;
var i,j:longint;
begin
read(n,t,s);
for i:=1
to n do
for j:=1
to n do
begin
read(a[i,j]);
if a[i,j]=0
then a[i,j]:=maxlongint else a[i,j]:=a[i,j]*2;
end;
end;
procedure
dij;
var i,j,c,min:longint;
f:array[0..101] of boolean;
begin
for i:=1
to n do b[i]:=a[1,i];
fillchar(f,sizeof(f),true);
f[1]:=false;
for i:=1
to n-1
dobegin
min:=maxlongint;
for j:=1
to n do
if f[j] and(b[j]then
begin
min:=b[j];
c:=j;
end;
f[c]:=false;
for j:=1
to n do
if f[j] and(a[c,j]<>maxlongint)and(b[c]+a[c,j]then
b[j]:=b[c]+a[c,j];
end;
end;
procedure
main;
var i,j,min:longint;
begin
min:=maxlongint;
for i:=1
to n do
for j:=1
to n do
if a[i,j]<>maxlongint then
begin
a[i,j]:=a[i,j] div
2; dij;
if b[s]then min:=b[s];
a[i,j]:=a[i,j]*2;
end;
if min*2>t then
write('you are day dreaming!') else
write(min*2);
end;
begin
init;
dij;
main;
end.

小薩的煩惱

小薩的煩惱題解

SSL1624小薩的煩惱

SSL ZYC 1624 小薩的煩惱

小薩的煩惱

小薩的煩惱 題解

SSL1624小薩的煩惱

SSL ZYC 1624 小薩的煩惱

相關推薦

小薩的煩惱題解