比赛 |
20110730 |
评测结果 |
C |
题目名称 |
朦胧之旅 |
最终得分 |
0 |
用户昵称 |
lizhe |
运行时间 |
0.000 s |
代码语言 |
Pascal |
内存使用 |
0.00 MiB |
提交时间 |
2011-07-30 12:53:37 |
显示代码纯文本
program lovetravel;
var
i,j,n,m,s,a,b,c,max:longint;
son:array[1..5000,1..5000]of longint;
map:array[1..5000,0..1000]of longint;
bool:array[1..5000]of boolean;
procedure init;
begin
assign(input,'lovetravel.in');
reset(input);
assign(output,'lovetravel.out');
rewrite(outpu);
read(n,m,s);
for i:=1 to s do
begin
read(a,b,c);
son[a,b]:=c;
son[b,a]:=c;
inc(map[a,0]);
map[a,map[a,0]]:=b;
inc(map[b,0]);
map[b,map[b,0]]:=a
end;
fillchar(bool,sizeof(bool),true)
end;
procedure dfs(num:longint);
var
l:longint;
begin
if num>max then
max:=num;
for l:=1 to n do
if bool[l] then
begin
end
end;