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

Вниз

Алгорим перевода из десятичной в двоичную СС   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.051 c
3-1145448225
RomanH
2006-04-19 16:03
2006.06.11
Дата и время в хранимой процедуре


2-1148142741
Мурзилка
2006-05-20 20:32
2006.06.11
1) Звук


15-1148063972
стыдно
2006-05-19 22:39
2006.06.11
40 мин. не мог посчитать =)


15-1147698344
matt
2006-05-15 17:05
2006.06.11
Модули Perl


15-1148028907
jen
2006-05-19 12:55
2006.06.11
Delphi, не могу сделать отчет сложной шахматки. Журнал ордер