054.字符和字符串的属性

dos diosas

于 2020-05-04 11:21:26 发布

阅读量155

点赞数

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

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

版权

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

105 篇文章 8 订阅

订阅专栏

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

procedure CharInt is
   
   Char:Character;
   Index:Integer;
   Stuff:array(0..25)of Character;
begin
   
   Char:='A';
   Index:=5+Character'Pos(Char);
   Put(Index,5);
   Char:=Character'Val(Index);
   Put(Char);
   
   New_Line;
   Stuff(21):='X';
   Index:=2+Character'Pos(Stuff(21));
   Put(Index,5);
   Stuff(0):=Character'Val(Index);
   Put(Stuff(0));
   
end CharInt;