Prevod z desiatkovej do ľubovoľnej sústavy

Zdrojový kód [PASCAL]

{ nasleduji funkce prevede libovolne cislo z desitkove soustavy do libovolne soustavy }
{ volani: convert(3,2) = 11 (tri do dvojkove je 11) }
function convert(a,n : integer) : string;
var i : integer;
    s,s2 : string;
begin
 s:='';
 while (a <> 0) do begin
  if ((a mod n) > 9) then
  s:=s + chr(ord('a') + (a mod n) - 10) else begin
   str((a mod n),s2);
   s:=s + s2;
  end;
  a:=a div n;
 end;
 s2:=s;
 for i:=length(s) downto 1 do s[i]:=s2[(length(s)) - i + 1];
 convert:=s;
end;

V ďalšej lekcii, Prevod čísel medzi číselnými sústavami , si ukážeme algoritmy pre prevod čísel medzi číselnými sústavami.