Bài 2 - Dây chuyền thơng báo
read(f,next[i]);
uses crt;
end;
writeln(f,k,’ ’,finish);
tt[next[i]]:=1;
const max=10001;
fi=’thongbao.inp’;
fo=’thongbao.out’;
close(f);
fu=’thongbao.luu’;
assign(f,fu);
procedure main;
var next:array[1..max] of integer;
rewrite(f);
var i,j:integer;
tt,ok:array[1..max] of byte;
count:=0;
begin
count,n:integer;
fillchar(ok,sizeof(ok),0);
f,g:text;
for i:=1 to n do
if tt[i]=0 then get_tree(i); {cay}
procedure get_tree(k:integer);
procedure init;
var i,finish:integer;
if ok[i]=0 then get_tree(i);{chu
trinh}
inc(count);
assign(f,fi);
i:=k;
reset(f);
while ok[i]=0 do
fillchar(tt,sizeof(tt),0);
readln(f,n);
ok[i]:=1;
procedure show;
finish:=i;
var start,finish,store_start,i:integer;
i:=next[i];
readln(f,finish);
read(f,start);
assign(g,fo);
writeln(g,finish,’ ’,start);
rewrite(g);
init;
writeln(g,count);
main;
read(f,store_start);
writeln(g,finish,’ ’,store_start);
show;
for i:=1 to count-1 do
end.
close(g);
Bạn đang xem bài 2 - - DE THI HSG TIN 11 CO DAP AN