attributes_value_n_position.adb

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

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 attributes_value_n_position;