程序：

var i,j,k,n,m,time:longint; u,v,w:array[0..55]of longint; t:array[0..55,1..2]of longint; f:array[0..10010,0..55]of longint;beginreadln(n,time,m);for i:=1 to m dobeginreadln(u[i],v[i],t[i,1],t[i,2],w[i]);inc(t[i,2],t[i,1]+1);end;for i:=0 to time+1 dofor j:=0 to n-1 dof[i,j]:=maxlongint;f[0,0]:=0;for i:=0 to time dofor j:=0 to n-1 dobeginif f[i,j]=maxlongint then continue;for k:=1 to m doif (u[k]=j)and(t[k,1]=i)and(t[k,2]<=time+1) thenif f[i,j]+w[k]<f[t[k,2],v[k]] then f[t[k,2],v[k]]:=f[i,j]+w[k];if f[i,j]<f[i+1,j] then f[i+1,j]:=f[i,j];end;if f[time+1,n-1]=maxlongint then writeln(-1) else writeln(f[time+1,n-1]); end.

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

總結

以上是生活随笔為你收集整理的2017年10月08日 上学的全部內容，希望文章能夠幫你解決所遇到的問題。

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