aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

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

Programm

Program hex_dez_umwandler;
uses crt,strings;
var x,i:integer; dez,s:string;  y,erg:real;
    shexa:string; p:pchar;

begin
writeln('Zahl in Hexadezimalschreibweise');
readln(shexa);

strpcopy(p,shexa);
strupper(p);
shexa:=strpas(p);

repeat
x:=x+1;

dez:=copy(shexa,x,1);

if (dez<>'A') and (dez<>'B') and (dez<>'C') and (dez<>'D') and (dez<>'E') and (dez<>'F') and
(dez<>'1') and (dez<>'2') and (dez<>'3') and (dez<>'4') and (dez<>'4') and (dez<>'5') and
(dez<>'6') and (dez<>'7') and (dez<>'8') and (dez<>'9') and (dez<>'0') then
 begin writeln('Fehler in Eingabe !');readkey;halt;end;


if dez='A' then dez:='10';
if dez='B' then dez:='11';
if dez='C' then dez:='12';
if dez='D' then dez:='13';
if dez='E' then dez:='14';
if dez='F' then dez:='15';

val(dez,y,i);

y:=y*exp((length(shexa)-x)*ln(16));

erg:=erg+y;

until x=length(shexa);

writeln;
writeln('Entspricht der Zahl : ',erg:0:0);

readln;
end.

---

Gastarbeiter 12:53, 19. Mär 2006 (CET)

---