Functions.Frac 方法 |
命名空间: XSharp.RT
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