Pascal小游戏井字棋

一个很经典的井字棋游戏 Pascal源码Chaobs奉上

注意：1.有的FP版本不支持汉语，将会出现乱码。2.别想赢电脑了，平手不错了。

井字过三关：

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

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') or (c='7') or (c='8') or (c='9'));

until (a[g,e]<>'x') and (a[g,e]<>'o');

time:=time+1;

if c='1' then b[1,1]:=1;

if c='2' then b[1,2]:=1;

if c='3' then b[1,3]:=1;

if c='4' then b[2,1]:=1;

if c='5' then b[2,2]:=1;

if c='6' then b[2,3]:=1;

if c='7' then b[3,1]:=1;

if c='8' then b[3,2]:=1;

if c='9' then b[3,3]:=1;

clrscr;

for s:=1 to 3 do begin

for h:=1 to 3 do begin

if b[s,h]=1 then write('o');

if b[s,h]=2 then write('x');

if (b[s,h]<>1) and (b[s,h]<>2) then write(' ');

if h<>3 then write(chr(179));

end;

writeln;

if s<>3 then writeln(chr(196),chr(197),chr(196),chr(197),chr(196));

end;

if ((b[1,2]=1) and (b[2,2]=1) and (b[3,2]=1))

or ((b[1,1]=1) and (b[1,2]=1) and (b[1,3]=1))

or ((b[2,1]=1) and (b[2,2]=1) and (b[2,3]=1))

or ((b[3,1]=1) and (b[3,2]=1) and (b[3,3]=1))

or ((b[1,1]=1) and (b[2,1]=1) and (b[3,1]=1))

or ((b[1,3]=1) and (b[2,3]=1) and (b[3,3]=1))

or ((b[1,1]=1) and (b[2,2]=1) and (b[3,3]=1))

or ((b[1,3]=1) and (b[2,2]=1) and (b[3,1]=1))

then begin ch:=1; goto exit1; end;

cal:=0;

for s:=1 to 3 do begin

for h:=1 to 3 do begin

if (b[s,h]=1) or (b[s,h]=2) then cal:=cal+1;

end;

if cal=9 then goto exit1;

writeln('press enter');

readln;

repeat

hc:=0;

ck:=0;

if (((b[1,2]=2) and (b[1,3]=2))

or ((b[2,1]=2) and (b[3,1]=2))

or ((b[2,2]=2) and (b[3,3]=2)))

and (b[1,1]<>1) then

begin

hc:=1;

ck:=ck+1;

r:=1;

end;

if (((b[1,1]=2) and (b[1,3]=2))

or ((b[2,2]=2) and (b[3,2]=2)))

and (b[1,2]<>1) then

begin

hc:=1;

ck:=ck+1;

r:=2;

end;

if (((b[1,1]=2) and (b[1,2]=2))

or ((b[2,3]=2) and (b[3,3]=2))

or ((b[2,2]=2) and (b[3,1]=2)))

and (b[1,3]<>1) then

begin

hc:=1;

ck:=ck+1;

r:=3;

end;

if (((b[1,1]=2) and (b[3,1]=2))

or ((b[2,2]=2) and (b[2,3]=2)))

and (b[2,1]<>1) then

begin

hc:=1;

ck:=ck+1;

r:=4;

end;

if (((b[1,1]=2) and (b[3,3]=2))

or ((b[1,3]=2) and (b[3,1]=2))

or ((b[1,2]=2) and (b[3,2]=2))

or ((b[2,1]=2) and (b[2,3]=2)))

and (b[2,2]<>1) then

begin

hc:=1;

ck:=ck+1;

r:=5;

end;

if (((b[2,1]=2) and (b[2,2]=2))

or ((b[1,3]=2) and (b[3,3]=2)))

and (b[2,3]<>1) then

begin

hc:=1;

ck:=ck+1;

r:=6;

end;

if (((b[1,1]=2) and (b[2,1]=2))

or ((b[3,2]=2) and (b[3,3]=2))

or ((b[1,3]=2) and (b[2,2]=2)))

and (b[3,1]<>1) then

begin

hc:=1;

ck:=ck+1;

r:=7;

end;

if (((b[1,2]=2) and (b[2,2]=2))

or ((b[3,1]=2) and (b[3,3]=2)))

and (b[3,2]<>1) then

begin

hc:=1;

ck:=ck+1;

r:=8;

end;

if (((b[1,1]=2) and (b[2,2]=2))

or ((b[1,3]=2) and (b[2,3]=2))

or ((b[1,1]=2) and (b[2,2]=2)))

and (b[3,3]<>1) then

begin

hc:=1;

ck:=ck+1;

r:=9;

end;

if hc=0 then begin

if time=1 then begin

if c='5' then r:=1;

if c<>'5' then r:=5;

end

else

begin

if (((b[1,2]=1) and (b[1,3]=1))

or ((b[2,1]=1) and (b[3,1]=1))

or ((b[2,2]=1) and (b[3,3]=1)))

and (b[1,1]<>2) then

begin

ck:=ck+1;

r:=1;

hc:=3;

end;

if (((b[1,1]=1) and (b[1,3]=1))

or ((b[2,2]=1) and (b[3,2]=1)))

and (b[1,2]<>2) then

begin

ck:=ck+1;

r:=2;

hc:=3;

end;

if (((b[1,1]=1) and (b[1,2]=1))

or ((b[2,3]=1) and (b[3,3]=1))

or ((b[2,2]=1) and (b[3,1]=1)))

and (b[1,3]<>2) then

begin

ck:=ck+1;

r:=3;

hc:=3;

end;

if (((b[1,1]=1) and (b[3,1]=1))

or ((b[2,2]=1) and (b[2,3]=1)))

and (b[2,1]<>2) then

begin

ck:=ck+1;

r:=4;

hc:=3;

end;

if (((b[1,1]=1) and (b[3,3]=1))

or ((b[1,3]=1) and (b[3,1]=1))

or ((b[1,2]=1) and (b[3,2]=1))

or ((b[2,1]=1) and (b[2,3]=1)))

and (b[2,2]<>2) then

begin

ck:=ck+1;

r:=5;

hc:=3;

end;

if (((b[2,1]=1) and (b[2,2]=1))

or ((b[1,3]=1) and (b[3,3]=1)))

and (b[2,3]<>2) then

begin

ck:=ck+1;

r:=6;

hc:=3;

end;

if (((b[1,1]=1) and (b[2,1]=1))

or ((b[3,2]=1) and (b[3,3]=1))

or ((b[1,3]=1) and (b[2,2]=1)))

and (b[3,1]<>2) then

begin

ck:=ck+1;

r:=7;

hc:=3;

end;

if (((b[1,2]=1) and (b[2,2]=1))

or ((b[3,1]=1) and (b[3,3]=1)))

and (b[3,2]<>2) then

begin

ck:=ck+1;

r:=8;

hc:=3;

end;

if (((b[1,1]=1) and (b[2,2]=1))

or ((b[1,3]=1) and (b[2,3]=1))

or ((b[1,1]=1) and (b[2,2]=1)))

and (b[3,3]<>2) then

begin

ck:=ck+1;

r:=9;

hc:=3;

end;

end;{else}

end;{if}

if ek>1 then writeln('you can be the winner');

if hc=0 then r:=random(9);

if time=1 then begin

if c='5' then r:=1;

if c<>'5' then r:=5;

end;

i:=r mod 3;

case r of

1,2,3:n:=1;

4,5,6:n:=2;

7,8,9:n:=3;

end;

if i=0 then i:=3;

writeln;

until (b[n,i]<>1) and (b[n,i]<>2) and (r<>0);

b[n,i]:=2;

clrscr;

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]);

if ((b[1,2]=2) and (b[2,2]=2) and (b[3,2]=2))

or ((b[1,1]=2) and (b[1,2]=2) and (b[1,3]=2))

or ((b[2,1]=2) and (b[2,2]=2) and (b[2,3]=2))

or ((b[3,1]=2) and (b[3,2]=2) and (b[3,3]=2))

or ((b[1,1]=2) and (b[2,1]=2) and (b[3,1]=2))

or ((b[1,3]=2) and (b[2,3]=2) and (b[3,3]=2))

or ((b[1,1]=2) and (b[2,2]=2) and (b[3,3]=2))

or ((b[1,3]=2) and (b[2,2]=2) and (b[3,1]=2))

then begin ch:=2; goto exit1; end;

goto xh;

exit1:

if cal=9 then writeln('deuce');

if ch=2 then writeln('lost');

if ch=1 then writeln('win');

if ch=3 then

begin

clrscr;

writeln('exited');

end;

writeln('press enter');

readln;

end.

这是《Pascal程序设计》上的一道作业，不知道我是不是想复杂了？管他呢，现在谁还需要这种游戏？

Pascal小游戏井字棋的更多相关文章

Java 小游戏 - 井字棋 v1.0 （初步完成）（2018.4.16更新）
井字棋游戏初步完成实现功能:输入位置数据->打印棋盘->判断是否胜利->继续游戏/退出游戏缺点:没有清屏函数判断胜利方法太过无脑 package MYGAME; ...
C++小游戏——井字棋
#include<cstdio> #include<windows.h> #include<ctime> int main() { srand(time(NULL) ...
python 游戏(井字棋)
1. 游戏思路和流程图实现功能,现实生活中的井字棋玩法游戏流程图 2. 使用模块和游戏提示 import random def game_info(): print('欢迎来到井字棋游戏') pr ...
[HTML5实现人工智能]小游戏《井字棋》发布，据说IQ上200才能赢
一,什么是TicTacToe(井字棋) 本游戏为在下用lufylegend开发的第二款小游戏.此游戏是大家想必大家小时候都玩过,因为玩它很简单,只需要一张草稿纸和一只笔就能开始游戏,所以广受儿 ...
『HTML5实现人工智能』小游戏《井字棋》发布，据说IQ上200才能赢【算法&代码讲解+资源打包下载】
一,什么是TicTacToe(井字棋) 本游戏为在下用lufylegend开发的第二款小游戏.此游戏是大家想必大家小时候都玩过,因为玩它很简单,只需要一张草稿纸和一只笔就能开始游戏,所以广受儿童欢迎. ...
井字棋小游戏（C语言）
最近沉迷于<NetHack>.<DCSS>等字符游戏,对其很感兴趣,于是用C语言写了个字符界面的井字棋小游戏.欢迎大家指教. 编写时遇到了一些问题,我原先准备用循环,直到读取到 ...
井字棋游戏升级版 - TopTicTacToe项目简介
一.游戏简介井字棋是一款世界闻名的游戏,不用我说,你一定知道它的游戏规则. 这款游戏简单易学,玩起来很有意思,不过已经证明出这款游戏如果两个玩家都足够聪明的话, 是很容易无法分出胜负的,即我们得到的 ...
[CareerCup] 17.2 Tic Tac Toe 井字棋游戏
17.2 Design an algorithm to figure out if someone has won a game oftic-tac-toe. 这道题让我们判断玩家是否能赢井字棋游戏, ...
[C++] 井字棋游戏源码
TicTac.h #define EX 1 //该点左鼠标 #define OH 2 //该点右鼠标 class CMyApp : public CWinApp { public: virtual B ...

随机推荐

word文档快速转换为PPT演示文稿
方法一: 访问http://t.im/pdftoppt,点击继续浏览(会跳转至:https://smallpdf.com/cn/pdf-to-ppt): 打开word文档,设置为“横向”,输出为PDF ...
MySQL数据库实验二：单表查询
实验二单表查询一.实验目的理解SELECT语句的操作和基本使用方法. 二.实验环境是MS SQL SERVER 2005的中文客户端. 三.实验示例 1.查询全体学生的姓名.学号.所在系. ...
cocos2d-x推断sprite点击
我们经常须要推断用户的点击操作是否落于某个sprite之上,进而让这个sprite做出响应. 可是假设我们通过继承CCSprite类来实现自己的Sprite类的时候,产生的视图尺寸会充满屏幕.多个Sp ...
神奇的暴力数据结构——ODT
前言 \(ODT\),即珂朵莉树,又称老司机树(\(Old\ Driver\ Tree\)). 它是一个十分暴力的数据结构,可以用于各种乱搞,也非常的实用. 当然,这全要基于一个基本条件:数据随机. ...
转：spring mvc返回json数据格式
转:http://www.cnblogs.com/ssslinppp/p/4675495.html <Spring学习笔记-MVC>系列文章,讲解返回json数据的文章共有3篇,分别为: ...
phpmyadmin 打开数据表较多，数据量较大的数据库时出现超时的解决办法
用phpmyadmin打开数据表较多,数据量较大的数据库时,会出现超时,或者等半天打开了说数据库没有表.并且即便打开了,再进行其他浏览,编辑,sql等操作,页面也是相当慢的,慢等几乎无法忍受.这里慢也 ...
tcp 的编程例子
https://www.cnblogs.com/ylllove/p/6852125.html
sql查询字段值长度判断是否18位
SELECT * FROM 表名 WHERE LENGTH(字段)= OR 字段为null IS NULL OR 字段为空='' SELECT * FROM 表名 WHERE LENGTH(字段)&g ...
io与Nio的区别及实用场景
https://blog.csdn.net/wodeyuer125/article/details/39475207
易语言调用C++写的DLL
直接调用会弹出堆栈错误的信息,原因是VS默认是__cdcel方式,而易语言是__stdcall,所以调用约定不一致导致堆栈错误. 解决方案很简单,易语言声明DLL函数时“在库中对应命令名”函数名前加一 ...

Pascal小游戏 井字棋

一个很经典的井字棋游戏 Pascal源码Chaobs奉上

Pascal小游戏 井字棋的更多相关文章

随机推荐

热门专题

Pascal小游戏井字棋

Pascal小游戏井字棋的更多相关文章