点击或拖拽改变大小

Functions.Frac 方法

X#
返回数字的小数部分。

命名空间:  XSharp.RT
程序集:  XSharp.RT (在 XSharp.RT.dll 中) 版本:2.22 GA
语法
 FUNCTION Frac(
	fValue AS FLOAT
) AS FLOAT
查看代码

参数

fValue
类型:__Float
要返回其小数部分的数字。

返回值

类型:__Float
备注
一个数字可能在其整数部分后包含小数部分。
此函数仅返回小数部分。
示例
此示例使用 Frac() 实现自动售货机或找零机的逻辑:
X#
 1FUNCTION GiveChange(fMoney AS FLOAT) AS VOID PASCAL
 2LOCAL fChange AS FLOAT
 3? "美元: $", Integer(fMoney)
 4fChange := Frac(fMoney)
 5// 当还有一分钱时
 6DO WHILE fChange >= 0.01
 7    // 必须先检查小额:
 8    DO CASE
 9    CASE fChange < 0.05
10        ? "支付一分钱"
11        fChange -= 0.01
12    CASE fChange < 0.10
13        ? "支付一个五分硬币"
14        fChange -= 0.05
15    CASE fChange < 0.25
16        ? "支付一个十分硬币"
17        fChange -= 0.10
18    CASE fChange < 0.5
19        ? "支付一个二十五分硬币"
20        fChange -= 0.25
21    OTHERWISE
22        ? "支付半美元"
23        fChange -= 0.50
24    ENDCASE
25ENDDO
参见