Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.02;
Скачать: CL | DM;

Вниз

dec -> bin   Найти похожие ветки 

 
maxz   (2004-04-13 19:35) [0]

Подскажите алгоритм перевода десятичных чисел (dec) в бинарную систему исчисления (bin)


 
Anatoly Podgoretsky ©   (2004-04-13 19:38) [1]

Деление на основание и взятие остатка


 
X9   (2004-04-13 20:01) [2]

Вот функция, переводит Byte в строку с двоичным значением переменной Byte:

Copyright (c) Rem

function ByteToBinStr(a_bByte: byte): string;
var
i: integer;
begin
SetLength(Result, 8);
for i := 8 downto 1 do
begin
  Result[i] := chr($30 + (a_bByte and 1));
  a_bByte := a_bByte shr 1;
end;
end;


 
Sam Stone ©   (2004-04-13 20:12) [3]

2Х9
function IntToBin(Value: cardinal): string;
Returns a binary string representation for an Integer value


 
X9   (2004-04-14 09:48) [4]

2Sam Stone
Где это вы нашли такую функцию? По крайней мере в help"е Delphi7 её нет. А вот функция, возвращающая строку со значением двоичного вида числа Integer(взято из AVL):


function IntToBin(Value: integer; Digits: integer): string;
var
i: integer;
begin
result := "";
for i := 0 to Digits - 1 do
 if Value and (1 shl i) > 0 then
  result := "1" + result
 else
  result := "0" + result;    
end;



Страницы: 1 вся ветка

Текущий архив: 2004.05.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.046 c
3-1081187625
SM
2004-04-05 21:53
2004.05.02
Как в SQL получить первые 10 записей из выборки


1-1081972895
Вадим
2004-04-15 00:01
2004.05.02
Сократить имя файла


1-1081676847
Calabonga
2004-04-11 13:47
2004.05.02
Проблема с Delphi7...вернее со встроенным дебаггером...


14-1081511197
Andryk
2004-04-09 15:46
2004.05.02
В Москве вводятся новые правила регистрации


1-1082060641
Vior
2004-04-16 00:24
2004.05.02
Нехватает LongInteger в ТурбоПаскале