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