E4A – 带小数取等于
函数 加入数组(数组 为 文本型(),数据 为 文本型) 为 文本型()
如果 数组=空 则
变量 返回数组 为 文本型(1)
返回数组(0)=数据
加入数组=返回数组
否则
变量 返回数组x 为 文本型(取数组成员数(数组)+1)
变量 循环 为 整数型 =0
判断循环首 循环<取数组成员数(数组)
返回数组x(循环)=数组(循环)
循环=循环+1
判断循环尾
返回数组x(取数组成员数(数组))=数据
加入数组=返回数组x
结束 如果
结束 函数
函数 取小数等于(输入 为 文本型,等值 为 双精度小数型)为 文本型
变量 x 为 文本型()
变量 i 为 整数型 = 0
变量 结果 为 文本型()
变量 数组 为 文本型()
如果 输入 = "" 则
弹出提示("函数 取等于:请输入参数")
否则
数组 = 分割文本(输入,"\n")
i = 0
判断循环首 i < 取数组成员数(数组)
变量 x 为 文本型()=分割文本(数组(i),"出现:")
如果 取数组成员数(x) = 2 则
如果 到数值(x(1)) > 到数值(等值 - 0.0001) 且 到数值(x(1)) < 到数值(等值 + 0.09999) 则
结果 = 加入数组(结果,x(0))
结束 如果
结束 如果
i = i +1
判断循环尾
取小数等于 = 连接数组成员(结果,"")
结束 如果
结束 函数
1,272 Views