跳转到内容

Ada 编程/属性/'截断

来自维基教科书,开放的书籍,开放的世界

Ada. Time-tested, safe and secure.
Ada. 经久考验,安全可靠。

X'Truncation(Y) 是一个 Ada 属性,其中 X 是任何浮点类型,Y 是该类型的任何实例。此属性表示将 Y 截断为整数。

如果 Y 为负数,则截断等效于 X'Ceiling(Y)。如果 Y 为正数,则截断等效于 X'Floor(Y).

X : Float :=  1.5;
Y : Float :=  1.0;
Z : Float := -1.999;
 
pragma Assert (Float'Truncation(X) =  1.0);  -- Ok
pragma Assert (Float'Truncation(Y) =  1.0);  -- Ok
pragma Assert (Float'Truncation(Z) = -1.0);  -- Ok
pragma Assert (Float'Truncation(Z) = -2.0);  -- Wrong

另请参阅

[编辑 | 编辑源代码]

维基教科书

[编辑 | 编辑源代码]

Ada 参考手册

[编辑 | 编辑源代码]
华夏公益教科书