027.Ada语言中的decimal type

最新推荐文章于 2025-08-05 10:12:53 发布

原创最新推荐文章于 2025-08-05 10:12:53 发布 · 159 阅读

0 ·

CC 4.0 BY-SA版权

Ada语言程序设计基础专栏收录该内容

105 篇文章

订阅专栏

本文展示了一个使用Ada语言进行程序设计的示例，通过定义两种货币类型DOLLAR和DIMES，演示了如何使用Ada.Text_IO包进行输入输出操作。程序通过循环增加金额并输出，体现了Ada语言在数值计算和IO操作上的应用。

with Ada.Text_IO;
use Ada.Text_IO;

procedure Decimal is

   type DOLLAR is delta 0.01 digits 8 range 0.00..1_000.00;
   type DIMES  is delta 0.1  digits 6;
   Amount : DOLLAR := 3.00;
   Coins  : DIMES  := 1.20;

   package Dec_IO is new Ada.Text_IO.Decimal_IO(DOLLAR);
   use Dec_IO;
   package Dime_IO is new Ada.Text_IO.Decimal_IO(DIMES);
   use Dime_IO;

begin

   for Index in 1..8 loop
      Amount := Amount + 1.23;
      Put(Amount);
      Coins := Coins + 3.70;
      Put(Coins);
      New_Line;
   end loop;

end Decimal;