Tin học - Bài 59: Đếm số ô vuông

Bài 59/2001 - Đếm số ô vuông
(Dành cho học sinh THCS và PTTH)
Uses crt;
Const Ngang = ‘ngang.inp’;
 Doc = ‘doc.inp’; 
 Max = 100;
 n: integer = 0;
 count: integer =0;
Var f1,f2:text;
 o,i,j:integer;
 a,b,c:array[1..max] of boolean;
BEGIN
 clrscr;
 Assign(f1,ngang); Assign(f2,doc);
 Reset(f1); Reset(f2);
 While not eoln(f1) do 
 begin
 Read(f1,o);
 Inc(n);
 If o=1 then a[n]:=true 
 else a[n]:=false
 end;
 Readln(f1);
 for i:= 1 to n do 
 begin
 for j:= 1 to n do 
 begin
 Read(f1,o);
 If o=1 then b[j]:=true 
 else b[j]:=false;
 end;
 Readln(f1);
 for j:=1 to n+1 do 
 begin
 Read(f2,o);
 If o=1 then c[j]:=true 
 else c[j] := false
 end;
 Readln(f2);
 for j:=1 to n do 
 begin
If (a[j] and b[j] and c[j] and c[j+1]) then 
 inc(count);
 end;
 a:=b;
 end;
 Close(f1); Close(f2);
 Write('Co', count, ‘hinh vuong!’);
 Readln;
END.
(Lời giải của bạn Nguyễn Chí Thức - Lớp 10A1 - Khối chuyên Toán Tin - ĐH Sư phạm Hà Nội)