home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 10 / tricks / hexdez.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-07-09  |  1016 b   |  38 lines
  1. (* ------------------------------------------------------ *)
  2. (*                       HEXDEZ.PAS                       *)
  3. (*            Hex-Dez-Wandlung bis WORD-Größe             *)
  4. (*         (c) 1990 Werner Harbrecht & TOOLBOX            *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM HexToDez;
  7.  
  8. USES
  9.   Crt;
  10.  
  11. TYPE
  12.   Str4 = STRING [4];
  13.  
  14. VAR
  15.   HexEin : Str4;
  16.   DezAus : WORD;
  17.  
  18.   FUNCTION HexDez(Ein : Str4; VAR Aus : WORD) : INTEGER;
  19.   VAR
  20.     Error : INTEGER;
  21.   BEGIN
  22.     Val('$' + Ein, Aus, Error);     { Error > 0 bei Fehler }
  23.     HexDez := Error;
  24.   END;
  25.  
  26. BEGIN
  27.   REPEAT  { bis gültige Hex-Zahl eingegeben wird }
  28.     ClrScr;
  29.     Write('Hex-Zahl im Bereich $0000..$FFFF: ');
  30.     ReadLn(HexEin);
  31.   UNTIL HexDez(HexEin, DezAus) = 0;
  32.   WriteLn('Die Hexzahl ', HexEin, ' entspricht ',
  33.           DezAus, ' Dezimal.');
  34.   ReadLn;
  35. END.
  36. (* ------------------------------------------------------ *)
  37. (*                 Ende von HEXDEZ.PAS                    *)
  38.