aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Dieses in Turbo Pascal geschriebene Programm wandel für Sie Dezimal- in Hexadezimalwerte um.

Programm

uses crt,dos;
var x,i,y:longint;
    shexa:string;
const
 s: array [0..15] of char =
 ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');

begin
writeln('Zahl in Dezimalschreibweise');
readln(x);
i:=x;
repeat
y:=(i mod 16);
i:=trunc(int(i/16));
shexa:=s[y]+shexa
until i=0;
write(shexa);
readln;
end.

---

--Gastarbeiter 14:13, 16. Mär 2006 (CET)

---