1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

var 
Form1: TForm1; 
BZ: string; 
GT,R,Zahl,p,anzahl,i: integer; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
zahl:=strtoint(edit1.text); 
GT:=Zahl; 
BZ:=' '; 
while GT <> 0 do 
begin 
R:=GT mod 16; 
GT:= GT div 16; 
case R of 
0..9: BZ:=inttostr(R)+BZ; 
10: BZ:='A'+BZ; 
11: BZ:='B'+BZ; 
12: BZ:='C'+BZ; 
13: BZ:='D'+BZ; 
14: BZ:='E'+BZ; 
15: BZ:='F'+BZ; 
end; 
p:=p+1; 
end; 
p:=length(BZ); 
anzahl:=4-p; 
for i:=0 to anzahl do 
begin 
BZ:='0'+BZ; 
end ; 
edit2.text:=BZ 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

function dx(d)
{
 max = Math.pow(16,8);
 if(d > max)
  { document.write("Zahl zu hoch!"); return; }
 if(d < 0)
  { document.write("Zahl negativ!"); return; }
 var z = new Array("0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F");
 var x = "";
 var i = 1, v = d, r = 0;
 while(v > 15)
  { v = Math.floor(v / 16); i++; }
 v = d;
 for(j=i;j>=1;j--)
  {
   x = x + z[Math.floor(v / Math.pow(16,j-1))];
   v = v - (Math.floor(v / Math.pow(16,j-1)) * Math.pow(16,j-1));
  }
 document.write(x);
}


dx(114);