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
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;
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;
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小游戏 井字棋的更多相关文章
- 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 ...
随机推荐
- Linux终端(terminal)清屏命令
windows CMD终端的清屏命令是cls Linux终端中的清屏命令有 1) clear 2) reset
- AttributeError: module 'requests' has no attribute 'get' 遇到了这个错误，是因为我把python关键字做了包名。。。
初学者总会犯各种低级错误,这是其一,特此记录.
- IOS 制作动画代码和 设置控件透明度
方式1: //animateWithDuration用1秒钟的时间,执行代码 [UIView animateWithDuration:1.0 animations:^{ //存放需要执行的动画代码 s ...
- C#后台unxi时间戳转换为前台JS时间的方法
后台返回的时间是一个格式为 /Date(1530153274362)/ 的unxi时间戳前台转换代码:var matchResult = data.match(/(\d+)/);if (matchRe ...
- springmvc--jsp页面乱码
最近想做一个平台,花时间学习springmvc.现在把零散的问题做总结 A页面写数据,一个post请求,B页面负责数据接收和显示,但是在B页面中输入中文确乱码了 A页面如下 B页面展示如下 B页面的j ...
- Family Gathering at Christmas（思维题）
Family Gathering at Christmas 时间限制: 1 Sec 内存限制: 128 MB提交: 13 解决: 4[提交] [状态] [讨论版] [命题人:admin] 题目描述 ...
- Linux查看CPU和内存使用情况[转］
在系统维护的过程中,随时可能有需要查看 CPU 使用率,并根据相应信息分析系统状况的需要.在 CentOS 中,可以通过 top 命令来查看 CPU 使用状况.运行 top 命令后,CPU 使用状态会 ...
- 移动端定制软键盘样式 配置input属性的type属性
1.当你的input输入的数据为链接地址时type属性可改为 type=url 最下面一栏就会出现.com 提高用户体验 2.当你的input输入的数据为email时type属性可改为 type=em ...
- java基础1.5版后新特性 自动装箱拆箱 Date SimpleDateFormat Calendar.getInstance()获得一个日历对象 抽象不要生成对象 get set add System.arrayCopy()用于集合等的扩容
8种基本数据类型的8种包装类 byte Byte short Short int Integer long Long float Float double Double char Character ...
- 【学时总结】◆学时·VIII◆ 树形DP
◆学时·VIII◆ 树形DP DP像猴子一样爬上了树……QwQ ◇ 算法概述 基于树的模型,由于树上没有环,满足DP的无后效性,可以充分发挥其强大统计以及计算答案的能力. 一般来说树形DP的状态定义有 ...