Umrechnen Bin-Dez / Dez-Bin ohne shr oder shl

[sakura]

Hm, wenn der Lehrer nicht genug IQ hat, um zu wissen, daß and auch "von Hand" ist, dann halt so:

Delphi-Quellcode:

function IntToBin(Value: Word): String;
const
  BIN_VALUE: array[0..1] of Char = ('0', '1');
begin
  Result := '';
  while Value > 1 do
  begin
    Result := BIN_VALUE[Value mod 2] + Result;
    Value := Value div 2;
  end;
  Result := BIN_VALUE[Value mod 2] + Result;
end;

.......