Форум: "Основная";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.038 c