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

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

Автор:

Tweet

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

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;

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

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

+1   Спам
(02.01.2012)
2. usr
function IntToBin(X:Integer):string;
begin
Result:='';
repeat
Insert(IntToStr(X mod 2), Result, 1);
X:= X div 2;
until X=0;
end;

0   Спам
(31.10.2010)
1. Денис
Спасибо!


Имя *:
Email:


Код *:


floor-guru.ru линолеум бытовой цены другой сайт Москва,картридж совместимый Hp,prognoznazavtra.ru курс валют на сегодня евро

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

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