DUzun's Web
Programare, proiecte personale, divertisment

unit UBaze;

​

interface

​

const cifre='0123456789ABCDEF';

​

FUNCTION cif(n: byte): char;

function num(c: char): byte;

function valoare(sir: string; baza: byte): longword;

function sirnum(val: longword; baza: byte): string;

function convert(sir: string; bi, br: byte): string;

​

implementation

​

FUNCTION cif(n: byte): char; begin cif := cifre[n mod 16 + 1]; end;

function num(c: char): byte; begin num := pos(upcase(c), cifre) - 1; end;

​

function valoare(sir: string; baza: byte): longword;

var a, u: longword;

    i, n, l: byte;

begin

  valoare := 0;

  if(not (baza in [2..16])) then exit;

  a := 0;

  l := length(sir);

  u := 1;

  for i := l downto 1 do begin

     n := num(sir[i]);

     if (n = 255)or(n >= baza) then exit;

     a := a + n * u;

     u :=u * baza;

  end;

  valoare := a;

end;

​

function sirnum(val: longword; baza: byte): string;

var a: string;

    c: byte;

begin

  sirnum := 'NaN';

  if (not (baza in [2..16])) or (val<0) then exit;

  a := '';

  repeat

     c := val mod baza;

     a := cif(c) + a;

     val := val div baza;

  until val = 0;

  sirnum := a;

end;

​

function convert(sir: string; bi, br: byte): string;

begin convert := sirnum(valoare(sir, bi), br); end;

​

BEGIN

​

END.

​

​