尾递归与非尾部递归习题.pptVIP

尾递归与非尾部递归习题 福州实验小学 吴贻小 尾递归习题 使用命令random2产生随机数1和2，其中1表示硬币正面，2表示硬币反面。编写递归过程模拟掷硬币实验，按任意键终止并输出掷币总次数、正面出现次数以及正面次数与总次数之比（即频率）。 to tg3_18 make “m 0 ;m用来累加硬币正面次数 make “n 0 ;n用来累加硬币反面次数 tg3_18_gc (pr :m+:n [ ] :m/(:m+:n)) ;m＋n为正、反面总次数 End to tg3_18_gc if key? then stop make “k random 2 if :k=1 then make “m :m+1 if :k=2 then make “n :n+1 tg3_18_gc end 尾递归习题 如图所示，A处堆放三个木块，小块在上，大块在下。要求将A处木块借助C处搬到B处，一次只允许移动一个木块，且小块必须在大块上面。画图演示搬木块过程。 步骤： （1）小块由A移到B； （2）中块由A移到C； （3）小块由B移到C； （4）大块由A移到B； （5）小块由C移到A； （6）中块由C移到B； （7）小块由A移到B； 尾递归习题 如图，ABCD是正方形，依次以A、B、C、D（循环）为圆心画90度弧DE、EF、FG、GH、HK、…并依次相连。 请编写递归过程并画图。 说明：在全屏作图状态下，先画四条轴线，然后依次画四分之一的圆弧。 to tg3_23 :s draw fs repeat 4[pd fd 237 pu bk 237 fd :s lt 90] ;画四条轴线 fd :s rt 90 pd tg3_23_gc :s :s end to tg3_23_gc :r :s ;r为弧半径，s为AD边长 if key? then stop rhu :r 90 ;画半径为r的90度弧 wait 50 tg3_23_gc :r+:s :s ;r增加固定长度s end ? tg3_23 10 尾递归习题 已知屏幕上有一个黑球和一个白球，其坐标分别为（120，60）与（40，40）。 （1）打击黑球，使黑球经x轴弹回后击中白球。 （2）打击黑球，使黑球经x轴弹回到y轴，再弹回击中白球。 请分别编程画出黑球所经过的路线。 (1) to tg3_25_1 tg3_25_1_1 seth towards[40 －40] tg3_25_1_2 setxy[40 40] ;连接点（40，40） end to tg3_25_1_1 draw ht fd 100 bk 130 fd 30 ;画y轴 rt 90 fd 150 bk 220 fd 70 ;画x轴 pu setxy[40 40] pd (stampoval 5 5 “true) ;画白球 pu setxy[120 60] pd stampoval 5 5 ;画黑球 end to tg3_25_1_2 if ycor=0 then stop ;当海龟前进到x轴 （即点p）时返回