E4A – 取小数等于

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
		判断循环尾
		取小数等于 = 连接数组成员(结果,"")
	结束 如果
结束 函数
269 Views
分享你的喜爱
linwute
linwute

我要像梦一样自由,像大地一样宽容;
在艰辛放逐的路上,点亮生命的光芒;
我要像梦一样自由,像天空一样坚强;
在曲折蜿蜒的路上,体验生命的意义;

留下评论

您的电子邮箱地址不会被公开。