玩家和电脑,轮流在九宫格上画0 或 * ,谁先摆成三个连续的(包括两条对角线)谁就赢。玩家用输入坐标的方式摆放棋,程序输出每下一步的棋盘布局。并输出谁赢
世界第一难的free pascal题,井字游戏。高分
每个格子有3种状态玩家占有\\电脑占有\\空 做记忆化搜索一定可以的
pascal 井字游戏
i,j,x,y,k:longint;t:array[0..1] of char=('*','0');a:array[1..3,1..3] of char;function win(n1:longint):boolean; \/\/判断是否有人已经赢了 var j,l:longint;begin win:=false;l:=n1 mod 2; \/\/由第几次下判断赢的人是谁 for j:=1 to 3 do begin if (a[j...