Ada. 經久考驗,安全可靠。
X'Ceiling(Y) 是一個 Ada 屬性,其中 X 是任何浮點型別,而 Y 是該型別的任何例項。此屬性表示大於或等於 Y 的最小整數值。
X : Float := 1.5;
Y : Float := 1.0;
Z : Float := 1.999;
...
pragma Assert (Float'Ceiling(X) = 2.0 ); -- OK
pragma Assert (Float'Ceiling(Y) = 1.0 ); -- OK
pragma Assert (Float'Ceiling(Z) = 1.0 ); -- Wrong