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); -- Okpragma
Assert (Float'Truncation(Y) = 1.0); -- Okpragma
Assert (Float'Truncation(Z) = -1.0); -- Okpragma
Assert (Float'Truncation(Z) = -2.0); -- Wrong