Kód: Vybrať všetko

program prevod_16_sustava;
uses crt;
var x,q,w:longint;
begin
clrscr;
write('Napis cislo v 10-tkovej sustave: ');
readln(x);
writeln('----------------------------------------------------------------');
write('V 16-tkovej sustave sa cislo zapise (zapis citaj odzadu): ');
repeat
q:=x div 16;
w:=x mod 16;
begin
if w=0 then write('0')
else if w=1 then write('1')
else if w=2 then write('2')
else if w=3 then write('3')
else if w=4 then write('4')
else if w=5 then write('5')
else if w=6 then write('6')
else if w=7 then write('7')
else if w=8 then write('8')
else if w=9 then write('9')
else if w=10 then write('A')
else if w=11 then write('B')
else if w=12 then write('C')
else if w=13 then write('D')
else if w=14 then write('E')
else if w=15 then write('F')
end;
x:=q;
until q<1;
writeln;
writeln('----------------------------------------------------------------');
writeln('Pre ukoncenie programu stlac ENTER');
readln;
end.

Kód: Vybrať všetko

function ToHex(int cislo): string;
var HEXValues: string[16];
     result: string[255]; { Pole kde sa budu ukladat vysledne hodnoty }
     index: int;
begin
   { Inicializacia jednotlivych moznych HEX znakov }
   HEXValues := '0123456789ABCDEF';
   
   index := 1;
   while cislo > 0 do begin
      result[index] := HEXValues[(cislo mod 16) + 1]; { Vysledny znak v 16 sustave - ziskany na zaklade indexu v poli HEXValues }
      cislo := cislo div 16; 
      index := index + 1; { Posun na dalsiu poziciu vo vyslednom poli }
   end;

   ToHex := result; { Vratenie vysledku z funkcie }
end;

Kód: Vybrať všetko

procedure PrintHex(hex: string);
var index, strlen: int;
begin
   strlen := Length(hex); { Dlzka vypisovaneho retazca }
   for index := strlen downto 1 do begin { Vypisovanie od zadu }
      write(hex[index]);
   end;
   writeln(''); { Zalomenie riadku }
end;