Ada 编程/属性/'Machine Emin

描述

X'Machine_Emin 是 Ada 属性，其中 X 是任何浮点类型。

浮点类型表示为

sign\times mantissa\times radix^{exponent}

其中

sign 是 1 或 -1

mantissa 是以 radix 为基数的 fractions

radix 是硬件基数 (通常为 2)

exponent 是一个整数

'Machine_Emin 返回最小的指数。

示例

with Ada.Text_IO;

procedure Machine_Emin is

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

end Machine_Emin;

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

Emin of Float type       =        -125
Emin of Long_Float type  =       -1021

参见

维基教科书

Ada 参考手册