023.Ada语言的整数类型中的不是很有用的属性

原创于 2020-04-29 18:10:19 发布 · 123 阅读

0 ·

CC 4.0 BY-SA版权

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

105 篇文章

订阅专栏

本文通过一个Ada语言程序示例，展示了如何对整数进行各种操作，包括赋值、转换、递增和递减。示例代码使用了Ada.Text_IO包进行输入输出，并详细演示了整数的Pos、Val、Succ、Pred方法及加一操作。

with Ada.Text_IO;
use Ada.Text_IO;

procedure IncrInt is
   
   Index : Integer;
   
begin
   
   Index:=13;
   Index:=Integer'Pos(Index); -- Still 13
   Index:=Integer'Val(Index); -- Still 13
   Index:=Integer'Succ(Index); -- Incremented to 14
   Index:=Integer'Pred(Index); -- Decremented to 12
   
   Index:=Index+1;-- preferred method of incrementing

end IncrInt;