定点类型（普通）

定点类型定义指定增量和范围。它们共同描述了实际值应该如何精确地近似，因为它们由 2 的幂表示，而不是使用浮点硬件。

Shoe_Ounce : constant := 2.54 / 64.0;
type Thickness is delta Shoe_Ounce range 0.00 .. 1.00;

Strop : Thickness := 0.1;  -- could actually be 0.09375