Другое (Математика)

{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Перевод числа из десятичной системы счисления в другие системы.

Функция переводит числа из десятичной системы счисления в системы с другим основанием. (Convert a decimal (base-10) number into any other base)

Зависимости: Нет
Автор:       Прахожий
Copyright:   Прахожий
Дата:        8 июня 2009 г.
***************************************************************** }

function base(a,n:integer):String;
var i,k:integer;
begin
  result:='';
    i:=1;
    while i<=a do
      begin
        if i*n>a then break;
        i:=i*n;
      end;

    while i>0 do
    begin
      k:=a div i;
      a:=a mod i;
      i:=i div n;
      if (n>9) AND (k>9) then result:=result+char(k-10+ORD('A')) else result:=result+inttostr(k);
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
  caption:=base(315,4);
  for i:=1 to 255 do ListBox1.Items.Add(Base(i,16));
end;