Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[98.84.18.52] |
|
Сообщ.
#1
,
|
|
|
{ Фунция представляет число Value в Base-ричной системе счисления, Base должно находиться в пределах [1..36] и представляется 10-ю цифрами [0..9] и 26-ю буквами английского алфавита ['A'..'Z'] } function Dec2X(const Value, Base: Cardinal): string; // Функция возвращает символ, соответствующий числу в N-ричной системе function GetChar(const N: Cardinal): Char; begin if N < 10 then // для систем счисления от 1 до 10 Result := Char(N + Ord('0')) else // для систем счисления выше 10, но не больше 36 ([0..9] + ['A'..'Z']) Result := Char(N - 10 + Ord('A')); end; var V, R: Cardinal; begin Result := ''; if Base <= 1 then begin // числа можно и в системе, состоящей из одного символа, представлять ;) if Base = 1 then begin // реализуем это SetLength(Result, Value); FillChar(Result[1], Value, Ord('0')); Exit; end else // а вот других систем счисления быть не может raise EConvertError.Create('Основание системы счисления должно быть больше 0'); end else // ограничиваем представление систем счисления 10-ю цифрами и 26-ю буквами // английского алфавита if Base > 10 + (Ord('Z') + 1) - Ord('A') then raise EConvertError.Create('Основание системы счисления должно лежать в пределах от 1 до 36'); // Выполняем преобразование в нужную систему виртуальным делением в столбик V := Value; repeat R := V mod Base; V := V div Base; Result := GetChar(R) + Result; until V < 2; // 2 - минимальная база, // то есть в любом случае когда-то "V div Base" будет равно 1 if V <> 0 then Result := IntToStr(V) + Result; end; Автор: Smike |