Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Преобразования » Из десятичного представления в двоичное

Из десятичного представления в двоичное

Автор: Борисов Сергей

Преобразование из десятичного представления в двоичное

Function IntToBin(x:integer):string;
Var S:string;
begin
  result:='';
  while (x div 2)<>0 do begin
      S:=intToStr(x mod 2);
      x:=x div 2;
      insert(S, result, 1);
  end;
  S:=intToStr(x mod 2);
  insert(S, result, 1);
end;

Плюшевый медведь

Юмористический портал. Блоги журналистов и читателей газеты.

toy.ru
Изложение гиа

Условия регистрации в базе данных преподавателей. Прайс-лист.

ftk.edu.ru

Просмотров: 1712

Обсудить на форуме