DÂY CHUYỀN THƠNG BÁO READ(F,NEXT[I]); USES CRT; END; WR...

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);