Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

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



Вернуться к списку функций
 Перевод числа из десятичной системы счисления в другие системы.

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

 Зависимости:
Нет

 Ограничения:
D3

 Исходный текст:
{ **** 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;


Вернуться к списку функций

Наверх ▲