Из десятиричной в шестнадтиричную

[6AZblJlb]

НЕобходимо перевести число из одной системы в другую....из 10-ой в 16-ую....я тут написал но что то не правильно.....

var
  a,i,j : longint;
  r,r1: string;
begin
 readln(a);
 r1:='';
 r:='0123456789ABCDEF';
 while a<>0 do begin
   i:=a mod 16;
   a:=a div 16;
   r1:=r1+r[i];
 end;

writeln(r1);
end.

[Roof]

function dec2hex(value: dword): string[8];
const
hexdigit = '0123456789ABCDEF';
begin
  while value <> 0 do
     begin
       dec2hex := hexdigit[succ(value and $F)];
       value := value shr 4;
    end;
  if dec2hex = '' then dec2hex := '0';
end;

взято из DRKB - полная версия. Рекомендуюскачать ее.

[6AZblJlb]

...спасибо...но что такое DRKB......и функция succ(value and $F) мне что т не понятно не мог бы ты поясниить..

[6AZblJlb]

все разобрался все было немного проще....

var
  a,i,j : longint;
  r,r1: string;
begin
 readln(a);
 r1:='';
 r:='0123456789ABCDEF';
 while a<>0 do begin
   i:=a mod 16;
   a:=a div 16;
   r1:=r[i+1]+r1;
 end;

writeln(r1);
end.

[Roof]

все проще. Я гоню, тот код не рабочий.

program dectohex;
uses crt;
var
ch:char;
i,j,m,n,k,l,a:integer;
s,st,s1,s2,s3:string;
begin
clrscr;
write(' -> ');
readln(n);
s:='0123456789ABCDEF';
writeln;
st:='';
repeat
a:=n mod 16;
st:=st+s[a+1];
n:=n div 16;
until n<16;
st:=st+s[n+1];
for i:=1 to length(st) div 2 do
begin
ch:=st[i];
st[i]:=st[length(st)-i+1];
st[length(st)-i+1]:=ch;
end;
write(st);
readln;
end.

должен работать. Глянь

[6AZblJlb]

благодарю.....но вроде и мой прошел все тесты...