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