ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : OAM                                  2:5020/400     03 Aug 2001  08:28:32
 To : All
 Subject : Re: разложить число на биты
 -------------------------------------------------------------------------------- 
 

 s := '';
 while i > 0 do begin
    if odd(i) then s := '1' + s else s := '0' + s;
    i := i shr 1;
 end;
 
 Андрей
 --- ifmail v.2.15dev5
  * Origin: Comint Ltd (post does not reflect views of Comint Ltd) (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    разложить число на биты   Ilya Malanyin   03 Aug 2001 11:25:00   Re: разложить число на биты   OAM   03 Aug 2001 08:28:32   разложить число на биты   Stanislav Shwartsman   03 Aug 2001 09:24:53