attributes_value_n_position.adb.npp

来自「This contains the following topics and m」· NPP 代码 · 共 10 行

with Ada.Text_Io, Ada.Integer_Text_Io;
use Ada.Text_Io, Ada.Integer_Text_Io;
procedure attributes_value_n_position is
begin
Put("Character 'A' has internal code ");
Put( Character'Pos('A') ); New_Line;
Put("Code 99 represents character ");
Put( Character'Val(99) ); New_Line;
end;