《精》Pascal 井字过三关游戏.docVIP

井字过三关： program TicTacToe; uses crt; var a:Array [1..3] of Array [1..3] of char; b:Array [1..3] of Array [1..3] of integer; i,n,g,e,p:integer; t:text; c:char; o:integer; r:integer; s,h:integer; ch,cal,ek,ck,hc:integer; time:integer; label xh,exit1; begin randomize; clrscr; writeln(1,chr(179),2,chr(179),3); writeln(chr(196),chr(197),chr(196),chr(197),chr(196)); writeln(4,chr(179),5,chr(179),6); writeln(chr(196),chr(197),chr(196),chr(197),chr(196)); writeln(7,chr(179),8,chr(179),9); writeln(press enter); readln; xh: ek:=0; repeat repeat clrscr; if ek=1 then writeln(wrong); case b[1,1] of 0:a[1,1]:= ; 1:a[1,1]:=o; 2:a[1,1]:=x; end; case b[1,2] of 0:a[1,2]:= ; 1:a[1,2]:=o; 2:a[1,2]:=x; end; case b[1,3] of 0:a[1,3]:= ; 1:a[1,3]:=o; 2:a[1,3]:=x; end; case b[2,1] of 0:a[2,1]:= ; 1:a[2,1]:=o; 2:a[2,1]:=x; end; case b[2,2] of 0:a[2,2]:= ; 1:a[2,2]:=o; 2:a[2,2]:=x; end; case b[2,3] of 0:a[2,3]:= ; 1:a[2,3]:=o; 2:a[2,3]:=x; end; case b[3,1] of 0:a[3,1]:= ; 1:a[3,1]:=o; 2:a[3,1]:=x; end; case b[3,2] of 0:a[3,2]:= ; 1:a[3,2]:=o; 2:a[3,2]:=x; end; case b[3,3] of 0:a[3,3]:= ; 1:a[3,3]:=o; 2:a[3,3]:=x; end; writeln(a[1,1],chr(179),a[1,2],chr(179),a[1,3]); writeln(chr(196),chr(197),chr(196),chr(197),chr(196)); writeln(a[2,1],chr(179),a[2,2],chr(179),a[2,3]); writeln(chr(196),chr(197),chr(196),chr(197),chr(196)); writeln(a[3,1],chr(179),a[3,2],chr(179),a[3,3]); write(press location); c:=readkey; if c=e then begin ch:=3; goto exit1; end; o:=ord(c); p:=o-48; case p of 1,2,3:g:=1; 4,5,6:g:=2; 7,8,9:g:=3; end; e:=o mod 3; if e=0 then e:=3; writeln; ek:=1; until ((c=0) or (c=1) or (c=2) or (c=3) or (c=4) or (c=5) or (c=6