end;
end;
end;
end;
begin
for i:=1 to n do
for j:=1 to n do
c[i,j]:=true;
case a[m,n] of
1,2,3,4,5,6,7,8,9: b[m,n]:=true;
0: begin
c[i,j]:=false;
digui(a,b,m,n);
end;
end;
for i:=1 to n do
for j:=1 to n do
c[i,j]:=false;
end;
begin
writeln('Do you want to exit? Input "Y" OR "N".');
readln(str);
if str='Y' then
exit;
writeln('"!" or "#" ?');
readln(str);
writeln('Input where you want to click!');
readln(i,j);
case str of
'#': begin
if b[i,j]=true then
shuru(a,b)
else
if a[i,j]=10 then
begin
writeln('Your inputting is wrong!');
exit;
end
else
dakai(a,b,i,j);
end;
'!': begin
if b[i,j]=true then
shuru(a,b)
else
if a[i,j]=10 then
b[i,j]:=true
else
begin
writeln('Your inputting is wrong!');
exit;
end;
end;
end;
end;
function ifend(a:abcdefg;b:booleanabcdefg):boolean;
var
i,j,s:integer;
begin
for i:=1 to n do
for j:=1 to n do
if (a[i,j]=10) and (b[i,j]=true) then
s:=s+1;
if s=n then
begin
writeln('You are the winner!');
ifend:=true;
end;
if s<n then
ifend:=false;
if s>n then
begin
writeln('There are any error in the program.');
exit;
end;
end;
begin {------------------------------------------------------main program}
flag:=false;
chushihua1(qipan);
chushihua2(qipan);
while not flag do
begin
print(qipan,fuzhu);
shuru(qipan,fuzhu);
flag:=ifend(qipan,fuzhu);
end;
end. {---------------------------------------------end of the main program}
end;
end;
end;
begin
for i:=1 to n do
for j:=1 to n do
c[i,j]:=true;
case a[m,n] of
1,2,3,4,5,6,7,8,9: b[m,n]:=true;
0: begin
c[i,j]:=false;
digui(a,b,m,n);
end;
end;
for i:=1 to n do
for j:=1 to n do
c[i,j]:=false;
end;
begin
writeln('Do you want to exit? Input "Y" OR "N".');
readln(str);
if str='Y' then
exit;
writeln('"!" or "#" ?');
readln(str);
writeln('Input where you want to click!');
readln(i,j);
case str of
'#': begin
if b[i,j]=true then
shuru(a,b)
else
if a[i,j]=10 then
begin
writeln('Your inputting is wrong!');
exit;
end
else
dakai(a,b,i,j);
end;
'!': begin
if b[i,j]=true then
shuru(a,b)
else
if a[i,j]=10 then
b[i,j]:=true
else
begin
writeln('Your inputting is wrong!');
exit;
end;
end;
end;
end;
function ifend(a:abcdefg;b:booleanabcdefg):boolean;
var
i,j,s:integer;
begin
for i:=1 to n do
for j:=1 to n do
if (a[i,j]=10) and (b[i,j]=true) then
s:=s+1;
if s=n then
begin
writeln('You are the winner!');
ifend:=true;
end;
if s<n then
ifend:=false;
if s>n then
begin
writeln('There are any error in the program.');
exit;
end;
end;
begin {------------------------------------------------------main program}
flag:=false;
chushihua1(qipan);
chushihua2(qipan);
while not flag do
begin
print(qipan,fuzhu);
shuru(qipan,fuzhu);
flag:=ifend(qipan,fuzhu);
end;
end. {---------------------------------------------end of the main program}