по идее там должно быть что-то типа
Перевести произвольное целое число из деятичной системы счисления в систему счисления с любым другим основанием. Перевести число произвольной из системы счисления в десятичную.
В листинге ниже показаны 2 соответствующих функции и их тест. Функции работают только с целыми положительными числами, но в этом плане их нетрудно расширить. Диапазон поддерживаемых оснований систем счисления ограничен значениями от 2 до 36 включительно, как в реализации функции itoa языка Си. Это ограничение связано только с тем, что для изображения "цифр" 36-ричной системы счисления применяются символы от 0 до 9 и от A до Z (всего 36), а для знаков из систем с ещё большим основанием пришлось бы придумывать какие-то другие обозначения.
Функции просто возвращают ноль или пустую строку в случае возникновения ошибки, это тоже легко улучшить.
const posix='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
{Обе функции должны работать только с целыми положительными числами}
function FromDec (n:longint;radix:integer):String;
{Перевод числа n из десятичной в систему счисления с основанием
radix, 1<radix<37. Вернет полученное число в виде строки
}
var k:integer;
s:string;
begin
if (radix<2) or (radix>36) then begin
{если неверная система счисления, вернем пустую строку!}
FromDec:='';
exit;
end
else begin
s:='';
repeat
k:= n mod radix;
s:=Copy(posix,k+1,1)+s;
n:= n div radix;
until n=0;
FromDec:=s;
end;
end;
какова там posix?
