2001 - ĐẾM SỐ Ô VUÔNG(DÀNH CHO HỌC SINH THCS VÀ PTTH)USES CRT;C...

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

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

Readln(f2);

for j:=1 to n do

If (a[j] and b[j] and c[j] and c[j+1]) then

inc(count);

a:=b;

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)