比赛 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;