кодировка из числовой в буквенно-числовую

[Almas01kz]

ДД уважаемые программисты !

Вопрос следующий , необходимо написать код, который будет кадировать из числовой системы в буквенное числовую .. Входной параметр число !

А0000 - 100 000
B0000 -110 000
АА000 - 360 000
AAA00 - 676 000

ZZZZZ - 11 981 376

На каком удобно напишите пожалуйста, чтобы просто понять как это делается ...
Заранее спасибо!!!

[WinCoder]

в буквенное числовую

Это называется шестнадцатиричная система.

На каком удобно напишите пожалуйста

Заранее спасибо

Как говорил Купитман в интернах, спасибо сосуды не расширяет.

[Almas01kz]

Сообщение от WinCoder

Это называется шестнадцатиричная система.


Как говорил Купитман в интернах, спасибо сосуды не расширяет.

Можно встречный вопрос ? В шестнадцатиричной системе есть буква Z ? Мне казалось до F ) прочтите еще раз, если вы сделаете , чай вам с печеньками , точно расширит , все что вам надо!

Ещё раз спасибо с печеньками!

[min@y™]

36-ричная, да?

[Almas01kz]

Сообщение от min@y™

36-ричная, да?

да, вы совершенно правы )

[min@y™]

Пpеобpазует число по основанию B в стpоке S в целое десятичное.

function Numb2Dec(S: string; B: Byte): Longint;
var
  I, P: Longint;
begin
  I := Length(S);
  Result := 0;
  S := UpperCase(S);
  P := 1;
  while (I >= 1) do begin
    if S[I] > '@' then Result := Result + (Ord(S[I]) - 55) * P
    else Result := Result + (Ord(S[I]) - 48) * P;
    Dec(I);
    P := P * B;
  end;
end;