跳转到内容

Ada 编程/属性/'Machine Emax

来自 Wikibooks,开放的书本,为开放的世界

Ada. Time-tested, safe and secure.
Ada. 经时间考验,安全可靠。

X'Machine_Emax 是一个 Ada 属性,其中 X 是任何浮点类型。

浮点类型表示为

其中

sign 是 1 或 -1
mantissa 是以基数为基数的分数
radix 是硬件基数(通常为 2)
exponent 是一个整数

'Machine_Emax 返回最大指数。

with Ada.Text_IO;

procedure Machine_Emax is

   package T_IO renames Ada.Text_IO;
   package I_IO is new  Ada.Text_IO.Integer_IO (Integer);
begin
   T_IO.Put ("Emax of Float type       = ");
   I_IO.Put (Float'Machine_Emax);
   T_IO.New_Line;
   
   T_IO.Put ("Emax of Long_Float type  = ");
   I_IO.Put (Long_Float'Machine_Emax);
   T_IO.New_Line;

end Machine_Emax;

在 x86-64 架构上使用 GNAT 4.6 的输出为

Emax of Float type       =         128
Emax of Long_Float type  =        1024

另请参阅

[编辑 | 编辑源代码]

Ada 参考手册

[编辑 | 编辑源代码]
华夏公益教科书