Следующая функция получает в качестве параметра Base (1..16) любую десятичную
величину и возвращает результат в виде строки, содержащей точное значение BaseX.
Вы можете использовать данный алгоритм для преобразования арабских чисел в
римские (смотри ниже).
function DecToBase(Decimal: LongInt; const Base: Byte): string;
const
Symbols: string[16] = "0123456789ABCDEF";
var
scratch: string;
remainder: Byte;
begin
scratch := "";
repeat
remainder := Decimal mod Base;
scratch := Symbols[remainder + 1] + scratch;
Decimal := Decimal div Base;
until (Decimal = 0);
Result := scratch;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Преобразование двоичного числа в десятичное 3", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!