home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / 554 / JUILLET / NUMBTEST.PAS < prev    next >
Pascal/Delphi Source File  |  1993-10-07  |  3KB  |  66 lines
  1. {─ Fido Pascal Conference ────────────────────────────────────────────── PASCAL ─
  2. Msg  : 306 of 323
  3. From : Mark Lewis                          1:3634/12.0          05 Jul 93  21:38
  4. To   : all                                 1:3634/12.0
  5. Subj : (2 of 2) number base conversions
  6. ────────────────────────────────────────────────────────────────────────────────}
  7. Program NUMBTEST;
  8.  
  9. uses NUMBase, CRT;
  10.  
  11. begin
  12.  clrscr;
  13.  write('DEC2BASE - Function Dec2Base(number: LongInt; ' +
  14.        'base,str_length: Byte): String;');
  15.  writeln;
  16.  write('dec2base(10,10,4)   : '+dec2base(10,10,4));
  17.  if nubase_err then writeln(' Range Error') else writeln;
  18.  write('dec2base(-10,10,4)  : '+dec2base(-10,10,4));
  19.  if nubase_err then writeln(' Range Error') else writeln;
  20.  write('dec2base(-10,10,2)  : '+dec2base(-10,10,2));
  21.  if nubase_err then writeln(' Range Error') else writeln;
  22.  write('dec2base(10,16,4)   : '+dec2base(10,16,4));
  23.  if nubase_err then writeln(' Range Error') else writeln;
  24.  writeln;
  25.  writeln('BASE2DEC - Function Base2Dec(number: String; ' +
  26.          'base: Byte): LongInt;');
  27.  writeln;
  28.  write('base2dec('''+dec2base(-10,16,4)+''',16) : ',
  29.         base2dec(dec2base(-10,16,4),16));
  30.  if nubase_err then writeln(' Range Error') else writeln;
  31.  write('base2dec(''A'',16)    : ',base2dec('A',16));
  32.  if nubase_err then writeln(' Range Error') else writeln;
  33.  write('base2dec(''-A'',16)   : ',base2dec('-A',16));
  34.  if nubase_err then writeln(' Range Error') else writeln;
  35.  write('base2dec(''000A'',36) : ',base2dec('000A',36));
  36.  if nubase_err then writeln(' Range Error') else writeln;
  37.  write('base2dec(''a'',16)    : ',base2dec('a',16));
  38.  if nubase_err then writeln(' Range Error') else writeln;
  39.  write('base2dec(''a'',36)    : ',base2dec('a',36));
  40.  if nubase_err then writeln(' Range Error') else writeln;
  41.  write('base2dec(''a'',62)    : ',base2dec('a',62));
  42.  if nubase_err then writeln(' Range Error') else writeln;
  43.  writeln('base2dec('''+dec2base(36,36,4)+''',36) : ',
  44.           base2dec(dec2base(36,36,2),36));
  45.  if nubase_err then writeln(' Range Error') else writeln;
  46.  write('HEX to BIN : 0010h -> ??b : ' +
  47.         dec2base(base2dec(''0010'',16),2,8) : ');
  48.  writeln(dec2base(base2dec('10',16),2,8));
  49.  write('HEX to OCT : 0010h -> ??o : ' +
  50.         dec2base(base2dec(''0010'',16),8,8) : ');
  51.  writeln(dec2base(base2dec('10',16),8,8));
  52.  write('OCT to BIN : 0020o -> ??b : ' +
  53.         dec2base(base2dec(''0020'',8),2,8)  : ');
  54.  writeln(dec2base(base2dec('20',8),2,8));
  55.  write('BIN to DEC : 1011b -> ??d : ' +
  56.         dec2base(base2dec(''1011'',2),10,8) : ');
  57.  writeln(dec2base(base2dec('1011',2),10,8));
  58.  write('BIN to OCT : 1011b -> ??o : ' +
  59.         dec2base(base2dec(''1011'',2),8,8)  : ');
  60.  writeln(dec2base(base2dec('1011',2),8,8));
  61.  write('BIN to HEX : 1011b -> ??h : ' +
  62.         dec2base(base2dec(''1011'',2),16,8) : ');
  63.  writeln(dec2base(base2dec('1011',2),16,8));
  64.  write('Press <ENTER> : ');
  65.  readln;
  66. end.