055.Ada语言中的记录类型:这里类似于C中的结构体，注意位置参数的赋值方法

最新推荐文章于 2025-10-16 15:06:29 发布

原创最新推荐文章于 2025-10-16 15:06:29 发布 · 147 阅读

0 ·

CC 4.0 BY-SA版权

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

105 篇文章

订阅专栏

本文深入探讨了Ada语言中记录类型的使用方法，包括定义、初始化和操作。通过具体示例展示了如何创建并使用记录类型，如日期记录，以及如何进行赋值和输出。文章还比较了Ada语言中结构类型与C++类的相似之处。

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

procedure Record1 is
   
   type DATE is
      record
         Month:Integer range 1..12;
         Day :Integer range 1..31;
         Year: Integer range 1726..2010;
      end record;
   
   
   Independence_Day:DATE;
   Birth_Day:DATE;
   Today,Pay_Day:DATE:=(5,25,1982);
   
begin
   Independence_Day.Month:=7;
   Independence_Day.Day:=4;
   Independence_Day.Year:=1776;
   
   Birth_Day:=Independence_Day;
   
   Pay_Day.Day:=30;
   -- 结构类型的使用类似于C++语言中的类
   Put("Independence day was on ");
   Put(Independence_Day.Month,2);
   Put("/");
   Put(Independence_Day.Day,2);
   Put("/");
   Put(Independence_Day.Year,4);
   New_Line;
   
   -- 几种结构类型的初始化方式
   Birth_Day:=(Day=>19,Month=>2,Year=>1937);
   Today:=(7,14,1952);
   Pay_Day:=(7,Year=>1954,Day=>17);
   
end Record1;