Ada 编程/库/Ada.Decimal

计算 » 计算机科学 » 计算机编程 » Ada 编程

---

此语言特性从 Ada 95 开始可用。

Ada.Decimal 是自 Ada 95 以来 预定义语言环境 的一个单元。

规范

--                     Standard Ada library specification
--   Copyright (c) 2003-2018 Maxim Reznik <[email protected]>
--   Copyright (c) 2004-2016 AXE Consultants
--   Copyright (c) 2004, 2005, 2006 Ada-Europe
--   Copyright (c) 2000 The MITRE Corporation, Inc.
--   Copyright (c) 1992, 1993, 1994, 1995 Intermetrics, Inc.
--   SPDX-License-Identifier: BSD-3-Clause and LicenseRef-AdaReferenceManual
-- -------------------------------------------------------------------------

package Ada.Decimal is

   pragma Pure (Decimal);

   Max_Scale : constant := implementation_defined;
   Min_Scale : constant := implementation_defined;

   Min_Delta : constant := 10.0**(-Max_Scale);
   Max_Delta : constant := 10.0**(-Min_Scale);

   Max_Decimal_Digits : constant := implementation_defined;

   generic
      type Dividend_Type is delta <> digits <>;
      type Divisor_Type is delta <> digits <>;
      type Quotient_Type is delta <> digits <>;
      type Remainder_Type is delta <> digits <>;

   procedure Divide (Dividend  : in     Dividend_Type;
                     Divisor   : in     Divisor_Type;
                     Quotient  :    out Quotient_Type;
                     Remainder :    out Remainder_Type);
   pragma Convention (Intrinsic, Divide);

end Ada.Decimal;

另请参阅

维基教科书

• Ada 编程/库/Ada

外部示例

• 在以下位置搜索 Ada.Decimal 的示例：Rosetta 代码、GitHub (gists)、任何 Alire 包 或 本维基教科书。
• 在以下位置搜索与 Ada.Decimal 相关的帖子：Stack Overflow、comp.lang.ada 或 任何与 Ada 相关的页面。

Ada 语言参考手册

Ada 95

• F.2：Decimal 包 ^[注释]

Ada 2005

• F.2：Decimal 包 ^[注释]

Ada 2012

• F.2：Decimal 包 ^[注释]

开源实现

FSF GNAT

• 规范：a-decima.ads
• 主体：a-decima.adb

drake

• 规范：a-decima.ads