0FOR"I15[MAKE"X(:X1+:X2)*2MAKE"X1:X2MAKE"X2:X]TYPE[X=]PR:XEND下面过程,键入S8命令后将输出什么图形?TOS:KCSHTREPEAT:K[LT90REPEAT18[RT5FD5RT5]]END请画出下面过程所产生的图形。TOPCSPUSETXY[-60-60]PDREPEAT4[SETX(XCOR+20)SETY(YCOR+20)]HTEND下面过程当键入L1后将输出什么?TOL:XIF:X>5[STOP]TYPE:XL:X+1TYPE:XEND下面过程当键入:A4906后。分析运行结果。TOA:BC:JD:ZL?IF:BC>40[STOP]?FD:BCRT:JD?A:BC+:ZL:JD:ZL?TYPE:BCEND分析下面过程,将画出什么图形?请画出当键入A40后画出的图形。TOA:BCIF:BC<10[STOP]REPEAT2[FD:BC/2RT90FD:BC/2]RT180A:BC/2REPEAT2[BK:BC/2RT90BK:BC/2]RT180END分析下面过程,将画出什么图形?请分别画出当键入P240和P340后输出的图形。TOP:N:RIF:N<1THENSTOPREPEAT4[REPEAT9[FD0.174*:RRT10]RT180P:N-1:R/3RT180]END三、编写程序(6+8+8+8=30分)定义一个画两条直角边分别为120与86的直角三角形的过程。定义一个过程:当运行此过程后使海龟画出如下彩色图形,颜色是随机的(颜色码0至14)。第2题第3题请定义一个名为TREE:B过程,要求当输入TREE20后,画出上面图形,并要求在编程时采用中间递归。定义过程解决问题:母鸡170文钱13只,公鸡160文钱13只,小鸡150文钱13只。有人用130文钱鸡,可以买到各种鸡多少只(要求每种鸡至少买1只)?
全文预览
