取余数问题

986440293

大佬们 我现在有一组数字 0.1 0.5 1 3.7
我需要把0.5分成5个0.1 3.7换成3个1和7个0.1   比如3.4就是3个1和4个0.1 请问怎么让他自动去识别拆分

zainex

修改自 文心 给出的算法:

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
拆分数字			将数字拆分为1和0.1的组合
参数名	类 型	参考	可空	数组	备 注
数字	小数型
结果	小数型

变量名	类 型	静态	数组	备 注
整数部分	整数型
小数部分	整数型
数	整数型

清除数组 (结果)
整数部分 ＝ 取整 (数字)
小数部分 ＝ 取整 ( (数字 － 整数部分) × 10)
计次循环首 (整数部分, 数)
加入成员 (结果, 1)
计次循环尾 ()
计次循环首 (小数部分, 数)
加入成员 (结果, 0.1)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
数组	小数型		0
数	整数型
结果	小数型		0
文本	文本型
值	整数型

数组 ＝ { 0.1, 0.5, 1, 3.7 }
计次循环首 (取数组成员数 (数组), 数)
拆分数字 (数组 [数], 结果)
' 调试输出 (结果)
文本 ＝ “{ ”
计次循环首 (取数组成员数 (结果), 值)
文本 ＝ 文本 ＋ 到文本 (结果 [值]) ＋ “, ”
计次循环尾 ()
文本 ＝ 取文本左边 (文本, 取文本长度 (文本) － 2) ＋ “ }”
调试输出 (到文本 (数组 [数]) ＋ 字符 ( #Tab键 ) ＋ “ 拆分为: ” ＋ 文本)
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 拆分数字, , , 将数字拆分为1和0.1的组合<br /> .参数 数字, 小数型<br /> .参数 结果, 小数型, 数组<br /> .局部变量 整数部分, 整数型<br /> .局部变量 小数部分, 整数型<br /> .局部变量 数, 整数型<br /> <br /> 清除数组 (结果)<br /> 整数部分 ＝ 取整 (数字)<br /> 小数部分 ＝ 取整 ((数字 － 整数部分) × 10)<br /> .计次循环首 (整数部分, 数)<br />     加入成员 (结果, 1)<br /> .计次循环尾 ()<br /> .计次循环首 (小数部分, 数)<br />     加入成员 (结果, 0.1)<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 数组, 小数型, , "0"<br /> .局部变量 数, 整数型<br /> .局部变量 结果, 小数型, , "0"<br /> .局部变量 文本, 文本型<br /> .局部变量 值, 整数型<br /> <br /> 数组 ＝ { 0.1, 0.5, 1, 3.7 }<br /> .计次循环首 (取数组成员数 (数组), 数)<br />     拆分数字 (数组 [数], 结果)<br />     ' 调试输出 (结果)<br />     文本 ＝ “{ ”<br />     .计次循环首 (取数组成员数 (结果), 值)<br />         文本 ＝ 文本 ＋ 到文本 (结果 [值]) ＋ “, ”<br />     .计次循环尾 ()<br />     文本 ＝ 取文本左边 (文本, 取文本长度 (文本) － 2) ＋ “ }”<br />     调试输出 (到文本 (数组 [数]) ＋ 字符 (#Tab键) ＋ “ 拆分为: ” ＋ 文本)<br /> .计次循环尾 ()

开始运行被调试程序
* “0.1   拆分为: { 0.1 }”
* “0.5   拆分为: { 0.1, 0.1, 0.1, 0.1, 0.1 }”
* “1     拆分为: { 1 }”
* “3.7   拆分为: { 1, 1, 1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1 }”
被调试易程序运行完毕

苗哥

  

子程序名	返回值类型	公开	备 注
取余数2
参数名	类 型	参考	可空	数组	备 注
数值	小数型

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

整数 ＝ 取整 (数值)
小数 ＝ 数值 － 整数
调试输出 (整数, 小数)
判断循环首 (整数 ＞ 0)
整数 ＝ 整数 － 1
调试输出 (“1”)
判断循环尾 ()
判断循环首 (小数 ＞ 0)
小数 ＝ 小数 － 0.1
调试输出 (“0.1”)
判断循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 取余数2<br /> .参数 数值, 小数型<br /> .局部变量 整数, 整数型<br /> .局部变量 小数, 小数型<br /> <br /> 整数 ＝ 取整 (数值)<br /> 小数 ＝ 数值 － 整数<br /> 调试输出 (整数, 小数)<br /> .判断循环首 (整数 ＞ 0)<br />     整数 ＝ 整数 － 1<br />     调试输出 (“1”)<br /> .判断循环尾 ()<br /> .判断循环首 (小数 ＞ 0)<br />     小数 ＝ 小数 － 0.1<br />     调试输出 (“0.1”)<br /> .判断循环尾 ()