Page 115 - C:\Users\Admin\Desktop\Sach mem upweb\

100 Problems & Solutions Trang 115

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.

Tin học & Nhà trường 100 Đề Toán - Tin học