Zadání:

Vytvořte predikát lichosti celého čísla s užitím bitových operací

Function MyOdd(Nr:word):boolean;
begin {MyOdd}
  MyOdd:=(Nr and 1)=1;
end; {MyOdd}
  

Zadání:

Vytvořte funkci pro celočíselné dělení 2

Function Div2(Nr:word):word;
begin {Div2}
  Div2:=Nr shr 1;
end; {Div2}
  

Zadání:

Vytvořte funkci pro celočíselné násobení 2

Function Mul2(Nr:word):word;
begin {Mul2}
  Mul2:=Nr shl 1;
end; {Mul2}
  

Zadání:

Vytvořte program, který umožní načíst celé číslo, zjistí hodnoty jednotlivých bitů tohoto čísla a vypíše je na obrazovku.

WORD2BIT.PAS

{Program pro zjisteni hodnot jednotlivych bitu cisla typu WORD.}


uses crt;


const Max=15;   {Pocet bitu: 0 + 15 = 16, word je 16-bitove cislo}


const Mocniny:array[0..Max] of word = (1,2,4,8,16,32,64,128,256,512,1024,
                                       2048,4096,8192,16384,32768);
      {Mocniny 2^0, ... , 2^Max}


type tBity=array[0..Max] of boolean;  {Pole bitu}


var A:word;
    Bity:tBity;


Procedure DejPoleBitu(A:word;var Bity:tBity);
{Procedura vrati hodnoty jednotlivych bitu v poli typu boolean}
var i:byte;
begin {DejPoleBitu}
  for i:=0 to Max do
    Bity[i]:=(A and Mocniny[i])=Mocniny[i];
end; {DejPoleBitu}


Procedure PisPoleBitu(Bity:tBity);
{Procedura vypise hodnoty pole typu boolean, a to jako 0 a 1}
var i:byte;
begin {PisPoleBitu}
  for i:=Max downto 0 do
    write(ord(Bity[i]));
end; {PisPoleBitu}


begin
  clrscr;
  repeat
    write('Zadej cislo A (0 - konec): ');
    readln(A);
    write('Hodnoty jednotlivych bitu cisla A: ');
    DejPoleBitu(A,Bity);
    PisPoleBitu(Bity);
    writeln;
  until a=0;
end.