Форум: "Начинающим";
Текущий архив: 2006.06.11;
Скачать: [xml.tar.bz2];
ВнизАлгорим перевода из десятичной в двоичную СС Найти похожие ветки
← →
Roman_ln © (2006-05-23 11:08) [0]На Delphi???
← →
Efir (2006-05-23 11:12) [1]Можно примерно так:
function IntToBin(int:int64):string;
var
i:integer;
s:string;
begin
s:="";
i:=63;
repeat
i:=i-1;
if ((int shr i) and 1)>0 then begin
for i:=i downto 0 do s:=s+IntToStr((int shr i) and 1);
Break;
end;
until i<0;
Result:=s;
end;
← →
Ega23 © (2006-05-23 11:13) [2]А оно и так в двоичной системе. Нолики и единички. А десятичная система - это от лукавого.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.06.11;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.012 c