package body Bit_Szintu_Muveletek is procedure Bitenkent_Kiir(Mit : Tipus; Hossz_Bitekben : Natural := Tipus'Size) is type Bit_Tipus is new Natural range 0..1; for Bit_Tipus'Size use 1; type Vektor_Tipus is array(1 .. Mit'Size) of Bit_Tipus; pragma Pack(Vektor_Tipus); Bitkep : Vektor_Tipus; for Bitkep'Address use Mit'Address; begin for i in reverse 1 .. Hossz_Bitekben loop if i mod 8 = 0 and i /= 0 then Kiir(" |"); end if; Kiir(Bit_Tipus'Image(Bitkep(i))); end loop; end Bitenkent_Kiir; end Bit_Szintu_Muveletek;