LOGO编程题智猜百家姓_林老师的LOGO_PYTHON_C语言之家

http://blog.sina.com.cn/u/1607750864

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

LOGO编程题智猜百家姓

(2011-02-22 09:03:34)

标签：

林正山

林老师

logo语言

教程

信息学竞赛

分形

科普

趣味数学

杂谈

分类： LOGO语言画图及计算编程题

LOGO编程题智猜百家姓

这个LOGO程序是是个非常聪明的计算机程序。把后面的程序粘贴在“编辑窗口”中，SAVE、LAOD后运行XINGSHI(姓氏的拼音)就能玩猜姓氏游戏了。

不过有一点需要说明，中国的姓氏远超过万个。这个程序仅仅收集了127个姓氏。这是根据最近一段时间进行全国统计人数最多的前127个姓氏（各种不同的统计排序可能有所不同）。所以您的姓氏如果不在其中，请多多谅解——这仅仅是LOGO编程游戏罢了。

玩游戏的方法十分简单：计算机输出7个页面，您只要仔细地看(一定要仔细看，看走眼了计算机就会“猜”错了)这个页面上有没有您想猜的姓氏。您当然可以慢慢看,程序并没有时间限制,不像上面的动画那样快地换版面。您不按键,计算机就耐心地等着。如果看到有——按Y键，没找到——按N键。7个页面都展示之后，计算机就会显示出你所猜的姓氏。

要是这7次您按的全是N呢？计算机程序也很实在，将会输出下面的页面：

在任何一轮猜测之后按B键就开始下一轮游戏；按E键就会结束游戏。

游戏的源程序如下:

注意！程序列表中姓氏表128个姓氏之间必须有1个空格。已经发现博客文章中空格自动消失的现象。如果缺少空格请自己加上去。如果在博客文章上复制的程序不能正常使用，请发邮件给林老师，林老师将发送源程序给大家。

TO XINGSHI ;猜姓氏戏   林正山老师编制
DRAW HT
MAKE "B ARRAY 128
FILLARRAY :B[谷李王张刘陈杨黄赵周吴徐孙朱马胡 \
   郭林何高梁郑罗宋谢唐韩曹许邓萧冯曾程蔡彭 \
   潘袁於董余苏叶吕魏蒋田杜丁沈姜范江傅钟卢 \
   汪戴崔任陆廖姚方金邱夏谭韦贾邹石熊孟秦阎 \
   薛侯雷白龙段郝孔邵史毛常万顾赖武康贺严尹 \
   钱施牛洪龚庞樊兰殷施陶洪翟安顔倪温芦季俞 \
   章鲁葛伍韦申尤毕聂丛焦柳]
MAKE "R ARRAY [8] ASET :R 1 1
FOR "I 2 7[ASET :R :I 2*AGET :R :I-1]MAKE "G ARRAY [128 8]
FOR "I 1 127[FOR "J 1 7[ASET :G SE :I :J 0]]FOR "I 1 127[FJ :I]
LABEL "LOOP
MAKE "N 0
FOR "I 1 7[KJ MAKE "JSQ 0 FOR "J 1 127[XIANSHI :J :I]SHURU :I]
CS K PU SETXY SE -150 100 PD
IF :N>0 THEN[TT[您猜的姓氏是\:]PU SETXY SE 30 100 PD \
    TT AGET :B :N]ELSE[TT[您猜想的姓氏不在列表之中。]]
LABEL "LOOP2
PU SETXY SE -150 60 PD SETPC 9 TT[按B键重新开始。按E键结束。]
MAKE "ZF [] MAKE "ZF RC
IF :ZF="B THEN CS GO "LOOP
IF :ZF="E THEN CS STOP ELSE CS GO "LOOP2
END
TO FJ :I
MAKE "II :I FOR "J 0 6[IF :I>=AGET :R 7-:J THEN[\
    MAKE "I :I-AGET :R 7-:J ASET :G SE :II 7-:J 1]]
END
TO KJ
K PU SETXY SE -150 -10 PD SETPC 4 TT [请按键：有-Y 没有-N]
END
TO XIANSHI :J :I
IF 0=AGET :G SE :J :I THEN GO "END_
SETFONT "楷体 20 1 SETPC 13 MAKE "JSQ :JSQ+1
MAKE "H INT((:JSQ-1)/14) MAKE "L REMAINDER (:JSQ-1) 14
PU SETXY SE :L*35-210 140-:H*27 PD TT AGET :B :J
LABEL "END_
END
TO SHURU :I
MAKE "ZF "N MAKE "ZF RC IF :ZF="Y THEN MAKE "N :N+AGET :R :I
END
TO K
CS PU SETXY SE -210 180 PD SETPC 12 setfont "黑体 20 1
TT [智猜百家姓：看看是否有您想猜的姓氏？]
PU SETXY SE -235 -50 PD SETPC 12 STAMPRECT 535 260
END