002：Ada自定义类型

最新推荐文章于 2023-06-12 09:09:19 发布

dos diosas

最新推荐文章于 2023-06-12 09:09:19 发布

阅读量135

点赞数

分类专栏： # Ada语言程序设计基础

本文链接：https://blog.csdn.net/dosdiosas_/article/details/105717068

版权

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

105 篇文章 8 订阅

订阅专栏

-- putwage.adb
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure Putwage is
   subtype Age is Integer range 1 .. 100;
   subtype Wage is Integer;
   Bill_Age : Age :=56;
   Bill_Wage : Wage :=56;
begin Put (" Total Wage Is ");
   Put(Integer(Bill_Wage)*Integer(Bill_Age));
   New_Line;
end Putwage;