'猜动物游戏,程序设计:刘红石.这个程序可不断向你学习,变得越来越聪明 '回答问题时按Y是“是”,按其它任意键是“否” '以下是我与它的一段对话: ' ***** 猜动物游戏 ***** ' 请在心里想好一种动物,让我来猜一猜 ' 它会飞 ' ? y ' 它是鸟 ' ? n ' 请问这是什么动物 ' ? 蚊子 ' 请键入一个问题,便得通过此问题可以将鸟 和蚊子 区分开. ' ? 叮人 ' 对于鸟 上述问题的回答是(Y/N) ' ? N ' 噢,我明白了 ' 退出游戏吗? N TYPE zs s AS STRING * 10 yes AS INTEGER no AS INTEGER END TYPE ' 一开始它只知道会飞的是鸟,不会飞的是鱼 DIM dw(100) AS zs dw(0).s = "会飞": dw(0).yes = 1: dw(0).no = 2 dw(1).s = "鸟": dw(2).s = "鱼" j = 3 ' 在这个循环中,它不断问你想的是什么动物,当猜不对时向你学习这种动物的知识 DO CLS PRINT "***** 猜动物游戏 *****" PRINT "请在心里想好一种动物,让我来猜一猜" i = 0 DO WHILE dw(i).yes <> 0 AND dw(i).no <> 0 PRINT "它"; dw(i).s INPUT a$ wen = i IF a$ = "y" OR a$ = "Y" THEN i = dw(i).yes: da = 1 ELSE i = dw(i).no: da = 0 END IF LOOP PRINT "它是"; dw(i).s INPUT a$ IF a$ = "y" OR a$ = "Y" THEN PRINT "怎么样,我够聪明吧!" ELSE PRINT "请问这是什么动物" INPUT b$ dw(j).s = b$: xin = j: j = j + 1 PRINT "请键入一个问题,便得通过此问题可以将"; dw(i).s; "和"; dw(xin).s; "区分开." INPUT c$ dw(j).s = c$: wt = j: j = j + 1 PRINT "对于"; dw(i).s; "上述问题的回答是(Y/N)" INPUT a$ IF a$ = "y" OR a$ = "Y" THEN dw(wt).yes = i: dw(wt).no = xin ELSE dw(wt).no = i: dw(wt).yes = xin END IF IF da = 1 THEN dw(wen).yes = wt ELSE dw(wen).no = wt PRINT "噢,我明白了" END IF INPUT "退出游戏吗"; a$ LOOP UNTIL a$ = "y" OR a$ = "Y" PRINT "再见!"