De thi Toan Tin hoc trong nha truong Bai 59

<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>

<b>Bài 59/2001 - Đếm số ô vuông</b>
(Dành cho học sinh THCS và PTTH)
<b>Uses crt;</b>

<b>Const Ngang = ‘ngang.inp’;</b>
Doc = ‘doc.inp’;
Max = 100;
n: integer = 0;
count: integer =0;
<b>Var f1,f2:text;</b>
o,i,j:integer;

a,b,c:array[1..max] of boolean;
<b>BEGIN</b>

clrscr;

Assign(f1,ngang); Assign(f2,doc);
Reset(f1); Reset(f2);

<b> While not eoln(f1) do </b>
begin

Read(f1,o);
Inc(n);

<b> If o=1 then a[n]:=true </b>
else a[n]:=false
<b> end;</b>

Readln(f1);

<b> for i:= 1 to n do </b>
begin

<b> for j:= 1 to n do </b>
begin

Read(f1,o);

<b> If o=1 then b[j]:=true </b>
else b[j]:=false;
<b> end;</b>

Readln(f1);

<b> for j:=1 to n+1 do </b>
begin

Read(f2,o);

<b> If o=1 then c[j]:=true </b>
else c[j] := false
<b> end;</b>

Readln(f2);
<b> for j:=1 to n do </b>
begin

<b>If (a[j] and b[j] and c[j] and c[j+1]) then </b>
inc(count);

</div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>

Close(f1); Close(f2);

Write('Co', count, ‘hinh vuong!’);
Readln;

<b>END.</b>

</div>

<!--links-->