递归问题

一颗菜

用递归的方式编写一个子程序，子程序用来计算一个数字能否被一系列数字整除。
例如：
计算50能被1-10之间的那些数字整除？
要求输出以下格式：
* 可以被10整除
* 可以被5整除
* 可以被2整除
* 可以被1整除
直接判断能否整除并输出调试文本即可。

Suky

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
被除数	整数型
除数	整数型		0
n	整数型

被除数 ＝ 50
计次循环首 (10, n)
加入成员 (除数, 10 － n ＋ 1)
计次循环尾 ()
循环方式 (被除数, 除数)
递归方式 (被除数, 除数)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
循环方式
参数名	类 型	参考	可空	数组	备 注
被除数	整数型
除数	整数型

变量名	类 型	静态	数组	备 注
n	整数型

计次循环首 (取数组成员数 (除数), n)
如果真 (被除数 ％ 除数 [n] ＝ 0)
调试输出 (“循环方式：” ＋ 到文本 (被除数) ＋ “能被” ＋ 到文本 (除数 [n]) ＋ “整除”)

计次循环尾 ()
返回 ()

子程序名	返回值类型	公开	备 注
递归方式
参数名	类 型	参考	可空	数组	备 注
被除数	整数型
除数	整数型

如果真 (被除数 ％ 除数 [1] ＝ 0)
调试输出 (“递归方式：” ＋ 到文本 (被除数) ＋ “能被” ＋ 到文本 (除数 [1]) ＋ “整除”)
删除成员 (除数, 1, 1)
如果真 (取数组成员数 (除数) ＞ 0)
递归方式 (被除数, 除数)
返回 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 被除数, 整数型<br /> .局部变量 除数, 整数型, , "0"<br /> .局部变量 n, 整数型<br /> <br /> 被除数 ＝ 50<br /> .计次循环首 (10, n)<br />     加入成员 (除数, 10 － n ＋ 1)<br /> .计次循环尾 ()<br /> 循环方式 (被除数, 除数)<br /> 递归方式 (被除数, 除数)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 循环方式<br /> .参数 被除数, 整数型<br /> .参数 除数, 整数型, 数组<br /> .局部变量 n, 整数型<br /> <br /> .计次循环首 (取数组成员数 (除数), n)<br />     .如果真 (被除数 ％ 除数 [n] ＝ 0)<br />         调试输出 (“循环方式：” ＋ 到文本 (被除数) ＋ “能被” ＋ 到文本 (除数 [n]) ＋ “整除”)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 ()<br /> <br /> .子程序 递归方式<br /> .参数 被除数, 整数型<br /> .参数 除数, 整数型, 参考 数组<br /> <br /> .如果真 (被除数 ％ 除数 [1] ＝ 0)<br />     调试输出 (“递归方式：” ＋ 到文本 (被除数) ＋ “能被” ＋ 到文本 (除数 [1]) ＋ “整除”)<br /> .如果真结束<br /> 删除成员 (除数, 1, 1)<br /> .如果真 (取数组成员数 (除数) ＞ 0)<br />     递归方式 (被除数, 除数)<br /> .如果真结束<br /> 返回 ()

两种方式     循环方式更好一些

Suky

这直接用循环   不需要递归吧？

鹏书

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

子程序1 (50, 1, 10)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
数	整数型
范围	整数型
范围1	整数型

如果真 (数 ％ 范围 ＝ 0)
调试输出 (范围)
如果真 (范围 ＝ 范围1)
返回 ()
子程序1 (数, 范围 ＋ 1, 范围1)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> <br /> 子程序1 (50, 1, 10)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 子程序1<br /> .参数 数, 整数型<br /> .参数 范围, 整数型<br /> .参数 范围1, 整数型<br /> <br /> .如果真 (数 ％ 范围 ＝ 0)<br />     调试输出 (范围)<br /> .如果真结束<br /> .如果真 (范围 ＝ 范围1)<br />     返回 ()<br /> .如果真结束<br /> 子程序1 (数, 范围 ＋ 1, 范围1)