作业帮 > 综合 > 作业

易语言如何分解一个数的因数?

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/18 01:33:54
易语言如何分解一个数的因数?
不是质因数,是所有因数
.版本 2
.程序集 窗口程序集1
.程序集变量 因数, 整数型
.程序集变量 变量, 整数型
.子程序 _按钮1_被单击
变量 = 到整数 (编辑框1.内容)
.如果真 (变量 ≤ 1)
信息框 (“你输入的数小于1”, 0, )
返回 ()
.如果真结束
.如果真 (变量 ≠ 到数值 (编辑框1.内容))
信息框 (“你输入的数不是自然数”, 0, )
返回 ()
.如果真结束
标签1.标题 = “1×”
求因子 ()
.子程序 求因子
.变量循环首 (2, 变量, 1, 因数)
.如果真 (变量 % 因数 = 0)
标签1.标题 = 标签1.标题 + 到文本 (因数)
跳出循环 ()
.如果真结束
.变量循环尾 ()
变量 = 变量 ÷ 因数
.如果真 (变量 ≠ 1)
标签1.标题 = 标签1.标题 + “×”
求因子 ()
.如果真结束
再问: 你这个还是求质因数,你输入30试试,因数15不见
再答: .版本 2 .子程序 _按钮1_被单击 .局部变量 因数, 整数型 .局部变量 变量, 整数型 变量 = 到整数 (编辑框1.内容) .如果真 (变量 ≤ 1) 信息框 (“你输入的数小于1”, 0, ) 返回 () .如果真结束 .如果真 (变量 ≠ 到数值 (编辑框1.内容)) 信息框 (“你输入的数不是整数”, 0, ) 返回 () .如果真结束 标签1.标题 = “1” .变量循环首 (2, 变量, 1, 因数) .如果真 (变量 % 因数 = 0) 标签1.标题 = 标签1.标题 + “,” + 到文本 (因数) .如果真结束 .变量循环尾 ()