modular_mod_arthimetic.adb

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

with Text_IO;             use Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
with Ada.Float_Text_IO;   use Ada.Float_Text_IO;
procedure modular_mod_arthimetic is
   type byte is mod 256;
   count : byte := 255;
   -- package instantiation
   --package by_io is new text_io.enumeration_io(byte);
  -- package int_io is new text_io.integer_io(integer); --for integer
begin
   count := count + 1;
   New_Line;
   Put (byte'Image (count));
   New_Line;
   --count := count + 2;-- here 0+2 =2
   --by_io.put(count);
end modular_mod_arthimetic;