par_tocontrol_int_values.adb.npp

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

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

procedure par_tocontrol_int_values is
   number, value : Integer;
   num           : Integer;
begin
   number := 10;
   value  := 16;
   Get (num);
   New_Line;
   Put (num);
   New_Line;
   Get (num, Width => 4);
   New_Line;
   Put (num);
   New_Line;
   Put (number);
   New_Line;
   Put (number, Base => 8, Width => 5);
   New_Line;
   Put (number, Base => 8, Width => 4);
   New_Line;
   Put (number, Base => 10, Width => 5);
   New_Line;
   Put (number, Base => 2, Width => 5);
   New_Line;
   Put (number, Base => 16, Width => 5);
   New_Line;
   New_Line;
   Put (value);
   New_Line;
end par_tocontrol_int_values;