井子棋编写伪教程
by 无名蒟蒻
本教程的实现基于Pascal
首先，隐藏光标（CRT.CursorOFF）
然后 我们用一个三行三列的二维数组来表示棋盘（0为空 1为○ 2为×）
把这个二维数组全部赋0
通过批处理文件把标题改为“井子棋”（title）
并把窗口大小改了（MODE)
运行批处理文件用（DOS.Exec）
在批处理里改完窗口大小之后要重绘窗口（CRT.Window）
接着，换背景色为浅灰（CRT.TextBackground)
画“井”字的四条线
画好之后换回黑色背景
开始游戏（用while或repeat循环，或用goto实现也可）
用判断型循环输入一个键（while not(readkey in [*1*..*9*])）
把用户输入的键转换为指定格子（ord后运算，或打表）
计算出指定格子的行和列 判断是否已经有棋子 如果有则返回循环开头
在窗口上画出指定图案（CRT.GotoXY）
给二维数组的指定变量赋值
换玩家
把一个不是“1”到“9”的字符赋给用户输入键的变量
判断 如果有一方胜利或棋盘已满则游戏结束

井字棋居然还需要教程

围观
------------围观是一种态度，围观是为了提高知名度，经验与我同在～～

成品：https://tieba.baidu.com/p/3359484150

人工置顶

太水了，节约点

顶

顶。