1 gui ti nha tai lam lo do tren truong Fri Jun 15, 2012 11:03 am
Beokaka
Vip
[code]PROGRAM kttlt;
VAR i,j,n,d:BYTE;
b:ARRAY[1..100,1..100]OF BYTE;
a:ARRAY[1..100]OF BOOLEAN;
PROCEDURE tinh(i:BYTE);
VAR j:BYTE;
BEGIN
i:=1;
FOR j:=1 TO n DO
IF (b[i,j]=1)AND a[j]=FALSE THEN
BEGIN
a[j]:=TRUE;
tinh(j);
END;
END;
PROCEDURE doctep;
VAR i,j:BYTE;
f:TEXT;
BEGIN
assign(f,'c1d1.txt');
reset(f);
readln(f,n);
FOR i:=1 TO n DO
BEGIN
FOR j:=1 TO n DO
read(f,b[i,j]);
readln(f);
END;
END;
BEGIN
doctep;
tinh(i);
d:=0;
FOR j:=1 TO n DO
IF a[j]=FALSE THEN inc(d);
IF d>0 THEN write('khong lien thong')
ELSE write('lien thong');
readln;
END./[code]
VAR i,j,n,d:BYTE;
b:ARRAY[1..100,1..100]OF BYTE;
a:ARRAY[1..100]OF BOOLEAN;
PROCEDURE tinh(i:BYTE);
VAR j:BYTE;
BEGIN
i:=1;
FOR j:=1 TO n DO
IF (b[i,j]=1)AND a[j]=FALSE THEN
BEGIN
a[j]:=TRUE;
tinh(j);
END;
END;
PROCEDURE doctep;
VAR i,j:BYTE;
f:TEXT;
BEGIN
assign(f,'c1d1.txt');
reset(f);
readln(f,n);
FOR i:=1 TO n DO
BEGIN
FOR j:=1 TO n DO
read(f,b[i,j]);
readln(f);
END;
END;
BEGIN
doctep;
tinh(i);
d:=0;
FOR j:=1 TO n DO
IF a[j]=FALSE THEN inc(d);
IF d>0 THEN write('khong lien thong')
ELSE write('lien thong');
readln;
END./[code]