计算机猜拳游戏
这里是wyjzxczxc读者提供创意和基础程序，由林老师修改后的计算机猜拳游戏。 注意！这个程序已经更新！
编写好的计算机程序如下：
这个程序总体看起来并不难，也没有什么“递归”计算。可贵的是LOGO语言编程的基本技巧这里面都有了。程序的注解已经够清楚了。编写程序附加注解是一种好习惯。现在有些人编写程序老长的一大段，什么说明也没有。这样不仅别人不容易看懂，时间久了可能自己也会莫名其妙。林老师看到过的许多编程高手的程序都有各种形式的程序注解，以增加程序的可读性。
这里面最最重要的技巧是：用RC读键盘命令读到计算机中的1、2、3、Q都是“字符串”，而不可能是数字。这可能是LOGO系统内部的一个重大的“毛病”。但是我们也不是没有办法：我们可以把字符串的ASCII值转换成数字嘛。例如字符串“1”的ASCCII值是49,减去48不久得到数字1了吗？而Q的ASCII值是81。
编写程序要养成读程序的习惯。见到别人较好的程序最好认真地读一读，彻底读懂它。这样时间积累久了自己的编程能力也就提高了。
还有，那就是编程序的“巧招数”都是人想出来的。多思出智慧，就是这个道理。
TO SZJDB
;石子剪刀布
TS ;进入全文本状态窗口
PR[欢迎进入石头剪子布游戏!]
LABEL
"A ;进入下一轮游戏的循环返回点
PR[] ;产生两次猜测显示之间的空行
PR[请输入数字，3是石头,2是剪刀,1是布,退出按Q。]
PR[您猜猜计算机将会出什么...]
MAKE "MM
RC ;从键盘上读取按键
MAKE "M (ASCII :MM)-48 ;检测按键的ASCII值
IF :M=(81-48) THEN[PR[]PR[您选择了结束游戏!]STOP]
;停止游戏的处理
IF (OR :M>3 :M<1)
THEN[PR[]PR[输入错误!请重新输入!]GO "A]
PR[]TYPE[您出的是]CC :M TYPE[,] ;显示人出的内容
MAKE "C RANDOM
3 ;计算机随机输出内容
TYPE[计算机出的是:]CC :C TYPE[。] ;显示计算机出的内容
IF :M = :C PR [比赛结果:平局!] GO "A
IF (AND :M = 1 :C = 3) THEN[PR[恭喜你!你赢了!]GO
"A
IF (AND :C = 1 :M = 3) THEN[PR[对不起,你输了!]GO
"A
IF :M > :C THEN[PR[恭喜你!你赢了!]GO
"A] IF :C > :M THEN[PR[对不起,你输了!]GO
"A]
END
TO CC :A ;猜测内容显示的公共程序
IF :A=3 THEN TYPE[石头]
IF :A=2 THEN TYPE[剪刀]
IF :A=1 THEN TYPE[布]
END
SZJDB
欢迎进入石头剪子布游戏!
请输入数字，3是石头,2是剪刀,1是布,退出按Q。
您猜猜计算机将会出什么...
2
您出的是剪刀,计算机出的是布。恭喜你!你赢了!
请输入数字，3是石头,2是剪刀,1是布,退出按Q。
您猜猜计算机将会出什么...
2
您出的是剪刀,计算机出的是石头。对不起,你输了!
请输入数字，3是石头,2是剪刀,1是布,退出按Q。
您猜猜计算机将会出什么...
6
输入错误!请重新输入!
请输入数字，3是石头,2是剪刀,1是布,退出按Q。
您猜猜计算机将会出什么...
1
您出的是布,计算机出的是石头。恭喜你!你赢了!
请输入数字，3是石头,2是剪刀,1是布,退出按Q。
您猜猜计算机将会出什么...
1
您出的是布,计算机出的是剪刀。对不起,你输了!
请输入数字，3是石头,2是剪刀,1是布,退出按Q。
您猜猜计算机将会出什么...
3
您出的是石头,计算机出的是石头。比赛结果 :平局!
请输入数字，3是石头,2是剪刀,1是布,退出按Q。
您猜猜计算机将会出什么...
3
您出的是石头,计算机出的是布。对不起，你输了!
请输入数字，3是石头,2是剪刀,1是布,退出按Q。
您猜猜计算机将会出什么...
Q
您选择了结束游戏!
?
你可能喜欢玩的计算机游戏
这里是新颖有趣的LOGO语言之家
欢迎评论 欢迎转载
查阅林老师最新发表文章的链接：
快速检索数百篇博客提高阅读效率的链接：
因网络拥挤“纸条”常不能及时打开查阅。有信息尽量使用“评论”或邮件。
需要LOGO系统文件、常用表格及工具程序文件的可以发邮件给林老师
声明：
林正山老师发表的文章及照片，媒体、网站或出版物未经本人许可谢绝进行任何形式的删节、改编、重组及转载。
允许个人博客按原文(含图片及附注)进行完整转载，转载时敬请注明本博作者姓名、文章原始出处，并以链接形式标明来源。
《LOGO语言竞赛教程·习题集》共有超过1000道的LOGO编程实例，由福建省科学技术出版社正式出版发行。凡查询购买这两本书的，请自己和福州市安泰图书城一楼源泉书店0591-87547909联系。为保证书款安全，建议外地读者使用“支付宝”等第三方转交担保付款，避免直接汇款购买。林老师不再一一回函，敬请见谅。