dj 模板
来源:互联网 发布:日本购物必买清单知乎 编辑:程序博客网 时间:2024/05/15 21:51
var
a:array[0..100,0..100] of integer;
b,c,h:array[0..100] of integer;
i,j,n,m,x,y,z:integer;
qwq:integer;
procedure DJ(k:integer);
var
i,q,t,s:integer;
w:boolean;
begin
s:=maxint;
for i:=1 to n do if b[i]<s then begin s:=b[i];t:=i;end;
w:=false;
for i:=1 to n do
begin
q:=a[t,i]+b[t];
if (a[t,i]>0)and(q<b[i]) then begin b[i]:=q;end;
end;
if w then DJ(t);
end;
begin
qwq:=32767;
readln(n,m);
for i:=1 to 100 do b[i]:=qwq;
for i:=1 to m do
begin
readln(x,y,z);
a[x,y]:=z;
if x=1 then b[y]:=z;
end;
h[1]:=1;
DJ(1);
for i:=1 to n do write(b[i],' ');
writeln(b[n]);
end.
a:array[0..100,0..100] of integer;
b,c,h:array[0..100] of integer;
i,j,n,m,x,y,z:integer;
qwq:integer;
procedure DJ(k:integer);
var
i,q,t,s:integer;
w:boolean;
begin
s:=maxint;
for i:=1 to n do if b[i]<s then begin s:=b[i];t:=i;end;
w:=false;
for i:=1 to n do
begin
q:=a[t,i]+b[t];
if (a[t,i]>0)and(q<b[i]) then begin b[i]:=q;end;
end;
if w then DJ(t);
end;
begin
qwq:=32767;
readln(n,m);
for i:=1 to 100 do b[i]:=qwq;
for i:=1 to m do
begin
readln(x,y,z);
a[x,y]:=z;
if x=1 then b[y]:=z;
end;
h[1]:=1;
DJ(1);
for i:=1 to n do write(b[i],' ');
writeln(b[n]);
end.
3 0
- dj 模板
- DJ WebApplication模板jQuery的DatePicker控件
- 嘿嘿 DJ
- 自制DJ
- TJU_2146_Computer DJ
- GOD is a DJ
- 回复DJ的游戏
- 可视化dj 绿色
- 好听的DJ
- DJ的由来
- 求巨星DJ台词
- dj的交流
- DJ舞曲网站推荐
- 如果你是dj
- 美国DJ - 兆丰三栏
- DJ Jazzy Jeff
- DJ Jazzy Jeff
- dj的邻接矩阵实现
- 正则表达式-整理
- Linux系统乱码问题
- jquery zTree 同步异步树结合应用 sping mvc
- 27、SSH框架-Ajax+SpringMVC+Spring+Mybatis+MySql+js用户注册实例(2)
- Liferay7.0自定义主题
- dj 模板
- 数据结构实验之数组二:稀疏矩阵
- 软键盘挡住输入框问题的终极解决方案
- Java之节点流
- 【CSDN英雄会】囯炬CEO张代浩:做写架构的人,做制定游戏规则的人
- linux下程序员装逼神器atom activate-power-mode 安装
- 编写一个C函数,将”I am from shanghai ”倒置为”shanghai from am I”,及将句子中的单词位置倒置,而不改变单词内部结构.
- 仿百度糯米/美团二级菜单
- java基础线程-LockSupport