029.用户自定义类型以及派生类型

Ada类型与变量操作

最新推荐文章于 2021-02-21 11:36:46 发布

原创最新推荐文章于 2021-02-21 11:36:46 发布 · 139 阅读

0 ·

CC 4.0 BY-SA版权

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

105 篇文章

订阅专栏

本文通过Ada编程语言演示了不同类型变量的定义与使用，包括范围指定的整数类型及派生类型。展示了变量间的数学运算，类型转换以及如何在程序中进行输出。深入理解Ada中的类型系统对于确保代码的健壮性和类型安全性至关重要。

如果没有程序员明确说明的正确类型转换，这些类型的变量就不能以任何方式混合

with Ada.Text_IO,Ada.Integer_Text_IO;
use Ada.Text_IO,Ada.Integer_Text_IO;

procedure DerTypes is
   
   type LITTLE_INT is range -24..17;
   type TINY_INT is range -3..2;
   type POS_INT is range 25..38;
   type TINY_POS is new POS_INT range 25..30; -- Derived types.
   type SALAD_INT is new Integer; -- Derived types.
   type ANIMAL_INT is new Integer; -- Derived types.
   type TREE_INT is new Integer range -557..1098; -- Derived types.
   
   Salad :SALAD_INT;
   Lettuce :SALAD_INT :=22;
   Tomatoes :SALAD_INT :=14;
   Animals :ANIMAL_INT;
   Dogs :ANIMAL_INT:=3;
   Cats :ANIMAL_INT :=4;
   Trees :TREE_INT;
   Oak :TREE_INT :=12;
   Coconut:TREE_INT :=8;
   Count :INTEGER;
   
begin
   
   Salad :=Lettuce+Tomatoes;
   Animals:=Dogs+Cats;
   Trees:=Oak+Coconut+TREE_INT(Animals);
   Count:=Integer(Trees)+Integer(Salad);
   Salad:=SALAD_INT(Dogs)*Tomatoes+
          SALAD_INT(Cats)*SALAD_INT(Oak)+
          SALAD_INT(Count);
   Put("The 1st Salad calculation is :");
   Put(INTEGER(Salad));
   New_Line;
   
   Salad:=SALAD_INT(Dogs*ANIMAL_INT(Tomatoes)+
          Cats*ANIMAL_INT(Oak)+
          ANIMAL_INT(Count));
   
   
   Put("The 2nd Salad calculation is :");
   Put(INTEGER(Salad));
   New_Line;
   
end Dertypes;