Bài 6: Thuật toán loang trên ma trận

int cld[8]={1,-1,0,0}; int clc[8]={0,0,1,-1};

res = 0; for (int i=1; i<=r; i++) for (int j=1; j<=c; j++) if (chưa duyệt ô i,j) { res++; bfs(i,j); }

const fi='; nmax=50; cld:array[1..4] of shortint=(1,-1,0,0); clc:array[1..4] of shortint=(0,0,1,-1); type data=longint; var f:text; A,B:array[0..nmax+1,0..nmax+1] of data; n,m:data; kt,free:array[0..nmax+1,0..nmax+1] of boolean; sl:data; procedure docfile; var i,j:data; begin assign(f,fi); reset(f); readln(f,m,n); for i:=0 to m+1 do for j:=0 to n+1 do b[i,j]:=2; for j:=0 to n+1 do begin Free[0,j]:=true; Free[m+1,j]:=true; kt[0,j]:=true; kt[m+1,j]:=true; B[0,j]:=0; B[m+1,j]:=0; end; for i:=0 to m+1 do begin free[i,0]:=true; free[i,n+1]:=true; kt[i,0]:=true; kt[i,n+1]:=true; B[i,0]:=0; B[i,n+1]:=0; end; for i:=1 to m do for j:=1 to n do read(f,a[i,j]); close(f); end; procedure xuat; var i,j:data; begin for i:=1 to m do begin for j:=1 to n do if b[i,j]=2 then write('. ') else write(b[i,j],' '); writeln; end; end; procedure dem(i,j:data; var khong,mot,trong:data); var k,x,y:data; begin khong:=0; mot:=0; for k:=1 to 4 do begin x:=i+cld[k]; y:=j+clc[k]; if B[x,y]=0 then inc(khong) else if b[x,y]=1 then inc(mot); end; trong:=4-khong-mot; end; procedure fill(i,j,c:data); var k,x,y:data; begin kt[i,j]:=true; for k:=1 to 4 do begin x:=i+cld[k]; y:=j+clc[k]; if B[x,y]=2 then begin B[x,y]:=c; inc(sl); end; end; end; procedure update; var i,j,khong,mot,trong:data; begin for i:=1 to m do for j:=1 to n do if kt[i,j]=false then begin dem(i,j,khong,mot,trong); if (a[i,j]=trong) and(khong=4-trong) then fill(i,j,1) else if trong+mot=a[i,j] then fill(i,j,1) else if (mot=khong+trong) and (mot=a[i,j]) then fill(i,j,0) else if (mot=a[i,j]) then fill(i,j,0) else if 4-khong=a[i,j] then fill(i,j,1); end; end; procedure duyet; var i,j:data; count:data; begin sl:=0; repeat count:=sl; update; until count=sl; if sl=m*n then xuat else writeln('KHONG THE'); end; begin docfile; duyet; end.