Zadání:
Function MyOdd(Nr:word):boolean;
begin {MyOdd}
MyOdd:=(Nr and 1)=1;
end; {MyOdd}
Seznam algoritmů
Zadání:
Function Div2(Nr:word):word;
begin {Div2}
Div2:=Nr shr 1;
end; {Div2}
Seznam algoritmů
Zadání:
Function Mul2(Nr:word):word;
begin {Mul2}
Mul2:=Nr shl 1;
end; {Mul2}
Seznam algoritmů
Zadání:
{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.
Seznam algoritmů
|
|
13. 2. 2000 |
|
|
||
|
|