Сложение/вычитание в двоичной системе Опции

[Acad]

Сложение и вычитание в двоичной системе.
Кто поможет?

[mj]

Код

function IntToBin(I: Integer): String;
begin
 Res := '';
 while I>0 do
 begin
   Res := Char((I and 1)+48)+Res;
   asm
     shr I, 1
   end;
 end;
 IntToBin := Res;
end;

Сообщение отредактировано: volvo - 17.12.2004 6:08