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