中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS开发编程 & 发展交流（开发室） » 运用递归法一例源程序(转铁)

QB45
高级用户

积分 677
发帖 194
注册 2003-9-13
状态离线

『楼主』: 运用递归法一例源程序(转铁)

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

(406930019)

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

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

论坛跳转: