007.控制输出字符串，数字的默认宽度

最新推荐文章于 2021-02-25 06:31:53 发布

dos diosas

最新推荐文章于 2021-02-25 06:31:53 发布

阅读量141

点赞数

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

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

版权

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

105 篇文章 8 订阅

订阅专栏

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

procedure OneInt is
   
   Index : Integer; -- A simple integer type
   
begin
   
   Index := 32;
   Put("The value of index is:");
   Put(Index); -- The default field width is 11 columns
   New_Line;
   Index:=Index+12;
   Put("the value of index is:");
   Put(Index,8); -- set the field width to 8 
   New_Line;
end OneInt;