[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!
ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.
https://docs.google.com/file/d/0B6ZIFdVAHwEIeFVJbV9jYnVlRDg/edit .
Lạ nhể. Đề này ghi là THT Hà Tĩnh 2011 mà, sao nó khác hẳn cái đề của bạn thế nhể
var n,i,j,d:integer;
a:array[1..100,1..100]of 0..1;
b:array[1..100,1..4]of integer;
f,g:text;
procedure loang(i,j:integer);
begin
if a[i,j]=1 then
begin
a[i,j]:=0;
b[d,3]:=i;
b[d,4]:=j;
if i>1 then loang(i-1,j);
if j>1 then loang(i,j-1);
if i<n then loang(i+1,j);
if j<n then loang(i,j+1);
end;
end;
BEGIN
assign(f,'hcn.inp'); reset(f);
readln(f,n);
for i:=1 to n do
begin
for j:=1 to n do read(f,a[i,j]);
readln(f);
end;
close(f);
assign(g,'hcn.out'); rewrite(g);
d:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]=1 then
begin
inc(d);
b[d,1]:=i;
b[d,2]:=j;
loang(i,j);
end;
writeln(g,d);
for i:=1 to d do
begin
for j:=1 to 4 do write(g,b[i,j],' ');
writeln(g);
end;
close(g);
END.https://docs.google.com/file/d/0B6ZIFdVAHwEIeFVJbV9jYnVlRDg/edit .
Lạ nhể. Đề này ghi là THT Hà Tĩnh 2011 mà, sao nó khác hẳn cái đề của bạn thế nhể
Bác down về rồi down thêm font VNTime + VNTimeH là được.