模块名称：分数运算模块
版本：1.0
2008.7.27
易语言我吃了 制作
------------------------------
.版本 2
.子程序 带分数到分数, 分数型, 公开, 将带分数化为假分数，错误返回空分数。
.参数 带分数, 带分数
.子程序 带分数到数值, 双精度小数型, 公开, 将带分数化为数值。
.参数 欲转换的带分数, 带分数
.子程序 带分数到文本, 文本型, 公开, 将带分数变量转化为形如“A&X/Y”的文本。
.参数 欲转换的带分数, 带分数
.参数 是否约分, 逻辑型, 可空, 为真约分，为假不约分，默认为真。
.子程序 带分数负号移分子, 带分数, 公开, 将带分数型变量为负数的负号移到分子，方便操作；将整数部分、分子母其中一对同为负的去掉负号。
.参数 被修改带分数, 带分数
.子程序 带分数约分, 带分数, 公开, 将带分数化为最简，分数无意义原样返回。
.参数 欲化简的带分数, 带分数
.子程序 分数到带分数, 带分数, 公开, 将假分数化为带分数，提供的分数为真分数则返回整数部分为0的带分数，错误返回空带分数。
.参数 欲转换的分数, 分数型
.子程序 分数到数值, 双精度小数型, 公开, 将分数化为数值。
.参数 欲转换的分数, 分数型
.子程序 分数到文本, 文本型, 公开, 将分数变量转化为形如“X/Y”的文本。
.参数 欲转换的分数, 分数型
.参数 是否约分, 逻辑型, 可空, 为真约分，为假不约分，默认为真。
.子程序 分数负号移分子, 分数型, 公开, 将分数型变量为负数的负号移到分子，方便操作；将分子母同为负的去掉负号。
.参数 被修改分数, 分数型
.子程序 分数是否有意义, 逻辑型, 公开, 分母为0则无意义，返回假。
.参数 欲检查的分数, 分数型, 可空
.参数 欲检查的带分数, 带分数, 可空, 两个参数选其一。
.子程序 分数运算, 分数型, 公开, 将两个分数执行运算，连续调用可实现连续运算，分数无意义返回为分子母皆为0的分数。
.参数 分数1, 分数型, , 如果想让整数或小数参加运算，请先使用“数值到分数”转换数据类型；想让带分数进行运算请用“带分数到分数”。
.参数 运算规则, 整数型, , 1、#加 2、#减 3、#乘 4、#除
.参数 分数2, 分数型
.子程序 求分数次方, 分数型, 公开, 求一个分数的次方，分数无意义原样返回。
.参数 欲求次方的分数, 分数型
.参数 欲求次方数, 整数型, , 只能是整数，如果输入小数，乘方后得到的结果不是整数的话将会被四舍五入。
.子程序 求分数平方根, 分数型, 公开, 求一个分数的平方根，分数无意义原样返回。
.参数 欲求其根的数, 分数型
.子程序 取分数符号, 整数型, 公开, 返回一个数，如果小于零，表明给定数值为负；如果等于零，表明给定数值为零或无意义；如果大于零，表明给定数值为正。
.参数 欲取其符号的分数, 分数型
.子程序 取z大公约数, 整数型, 公开
.参数 数1, 整数型
.参数 数2, 整数型
.子程序 取最小公倍数, 整数型, 公开
.参数 数1, 整数型
.参数 数2, 整数型
.子程序 是否为真分数, 逻辑型, 公开, 为真分数返回真，假分数返回假。
.参数 分数, 分数型, 可空, 两个参数选其一。
.参数 带分数, 带分数, 可空, 如果带分数的整数部分为0，且分子的绝对值小于分母的绝对值则为真。
.子程序 数值到带分数, 带分数, 公开, 将数值化为带分数。
.参数 欲转换的数值, 双精度小数型
.子程序 数值到分数, 分数型, 公开, 将数值化为分数，这样可以使整数或者小数变成分数参与分数运算。
.参数 欲转换的数值, 双精度小数型
.子程序 通分, , 公开, 将两个分母不同的分数化为同分母，带分数约分可先将带分数化为假分数后再通分。
.参数 分数1, 分数型
.参数 分数2, 分数型
.参数 通分后分数, 分数型, 参考 数组, 用来接收通分后的分数数组，失败返回两个原分数。
.子程序 文本到带分数, 带分数, 公开, 将形如“A&X/Y”(A为整数部分，XY皆为整数的分子和分母)的文本转化为分数型变量。
.参数 欲转化为分数的文本, 文本型
.参数 是否约分, 逻辑型, 可空, 为真约分，为假不约分，默认为真。
.子程序 文本到分数, 分数型, 公开, 将形如“X/Y”(XY为整数)或整数的文本转化为分数型变量，这样可以使整数或者小数变成分数参与分数运算。
.参数 欲转化为分数的文本, 文本型
.参数 是否约分, 逻辑型, 可空, 为真约分，为假不约分，默认为真。
.子程序 约分, 分数型, 公开, 将分数化为最简，分数已为最简或无意义原样返回。
.参数 分数, 分数型
.子程序 约分到整数, 整数型, 公开, 将可以约尽的分数变成整数形式，不能约尽的四舍五入取整数。如将"6/3"变为2，"0/4"变为0，“9/4”变为2，带分数要执行此操作要先转化成假分数。
.参数 要约分的分数, 分数型
.数据类型 带分数, 公开, 比如"三又二分之一"，三为整数部分，二为分母，一为分子。文本在本模块中写做"3&1/2"
.成员 整数部分, 整数型
.成员 分子, 整数型
.成员 分母, 整数型
.数据类型 分数型, 公开, 比如"二分之一"，一为分子，二为分母，文本在本模块中写做"1/2"
.成员 分子, 整数型
.成员 分母, 整数型
.常量 乘, "3", 公开
.常量 除, "4", 公开
.常量 加, "1", 公开
.常量 减, "2", 公开
22541102210[下载].rar
|
收藏
