中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »
作者:
标题: 运用递归法一例源程序(转铁) 上一主题 | 下一主题
QB45
高级用户




积分 677
发帖 194
注册 2003-9-13
状态 离线
『楼 主』:  运用递归法一例源程序(转铁) 使用 LLM 解释/回答一下

SCREEN 12
DIM SHARED J
DRAW "BM320,460": CALL tree(440)
END
SUB JIAO (JAO) '此程序用来将画笔转一定角度。
J = J + JAO
IF J > 360 THEN J = J - 360
IF J < -360 THEN J = J + 360
DRAW "TA=" + VARPTR$(J)
PLAY "T255P64" '此句仅为放慢速度。
END SUB
SUB tree (C) '画树子程序。
IF C < 18 THEN DRAW "C2NU=" + VARPTR$(C): EXIT SUB'画完树叶后返回。
C3 = C / 3
DRAW "C4U=" + VARPTR$(C3)
CALL JIAO(45): CALL tree(C / 2)'逆时针转45度后画左子树。
CALL JIAO(-45): CALL tree(2 * C / 3)'顺时针转45度后画中子树。
CALL JIAO(-45): CALL tree(C / 2)'顺时针转45度后画右子树。
CALL JIAO(45) '逆时针转45度后回到原方向。
DRAW "C7D=" + VARPTR$(C3)
END SUB




我(QB45)的照片与简历
http://www.programfan.com/club/showbbs.asp?id=197280
2003-10-10 00:00
查看资料  发送邮件  发短消息  网志  OICQ (406930019)  编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: