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

100 Problems & Solutions Trang 93

Case c Of
'W':c:= 'W';
'B':c:= 'B';
End;
end;
latco(x0[k],y0[k]);
for i:= 1 to 8 do
for j:= 1 to 8 do
begin
if a[i,j]='W'then yy:=yy+1;
if a[i,j]='B'then xx:=xx+1;
end;
WriteLn (f,'Black - ',xx, ' White - ',yy );
if (xx<>xx1)and(yy<>yy1) then
Case c Of
'W':c:= 'B';
'B':c:= 'W';
End;
End;
{=============================================}
Procedure ketthuc;
Var
i,j:Integer;
Begin
for i:= 1 to 8 do
begin
for j:= 1 to 8 do Write (f,a [i,j]);
Writeln(f);
end;
End;
{==========================================}
Begin
clrscr;
nhap;
Assign(f,out);
Rewrite(f);
for k:=1 to n do
Case l[k][1] of
'L': Lietke;
'M':begin
Val(l[k][2],x0[k],code);
Val(l[k][3],y0[k],code);
Thuchien(k);
end;
'Q': ketthuc;
End;
Close(f);
End.

Bài 42/2000 - Một chút về tư duy số học

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