|
发表于 2018-8-15 11:08:59
|
显示全部楼层
广东省广州市
.版本 2
.子程序 判断胜负
.参数 颜色, 整数型
.参数 xx, 整数型
.参数 yy, 整数型
.参数 执子, 文本型
.局部变量 xxx
.局部变量 yyy
.局部变量 i
xxx = xx
yyy = yy
.判断开始 (颜色 = 0)
.计次循环首 (4, i)
.如果真 (i = 1)
单次判断 (xxx, yyy, 执子, “-”, )
xxx = xx
yyy = yy
计数 = 计数 - 1
单次判断 (xxx, yyy, 执子, “+”, )
.如果真结束
.如果真 (i = 2)
单次判断 (xxx, yyy, 执子, , “-”)
xxx = xx
yyy = yy
计数 = 计数 - 1
单次判断 (xxx, yyy, 执子, , “+”)
.如果真结束
.判断开始 (i = 3)
单次判断 (xxx, yyy, 执子, “+”, “-”)
xxx = xx
yyy = yy
计数 = 计数 - 1
单次判断 (xxx, yyy, 执子, “-”, “+”)
.默认
.判断结束
.如果真 (i = 4)
单次判断 (xxx, yyy, 执子, “+”, “+”)
xxx = xx
yyy = yy
计数 = 计数 - 1
单次判断 (xxx, yyy, 执子, “-”, “-”)
.如果真结束
.如果真 (计数 = 5)
.判断开始 (执子 = “0”)
信息框 (“黑棋获胜”, 0, , )
.默认
信息框 (“白棋获胜”, 0, , )
.判断结束
.如果真结束
计数 = 0
.计次循环尾 ()
.默认
.判断结束
.子程序 单次判断
.参数 xxx, 整数型
.参数 yyy, 整数型
.参数 执子, 文本型
.参数 运算符1, 文本型, 可空
.参数 运算符2, 文本型, 可空
.判断循环首 (棋谱 [xxx] [yyy].标记 = 执子)
计数 = 计数 + 1
.判断开始 (运算符1 = “+”)
xxx = xxx + 1
.判断 (运算符1 = “-”)
xxx = xxx - 1
.默认
.判断结束
.判断开始 (运算符2 = “+”)
yyy = yyy + 1
.判断 (运算符2 = “-”)
yyy = yyy - 1
.默认
.判断结束
.如果真 (xxx = 0 或 yyy = 0)
跳出循环 ()
.如果真结束
.判断循环尾 ()
|
|