Преобразование двоичного числа в десятичное 2
|
- Сколько надо программистов, чтобы ввинтить электрическую лампочку?
- Два - один ввинчивает, а другой устрашающе стоит рядом с дубиной, чтобы не побежал ток.
|
function IntToBin(Value: LongInt; Size: Integer): string;
var
i: Integer;
begin
Result := '';
for i := Size downto 0 do
begin
if Value and (1 shl i) <> 0 then
begin
Result := Result + '1';
end
else
begin
Result := Result + '0';
end;
end;
end;
function BinToInt(Value: string): LongInt;
var
i, Size: Integer;
begin
Result := 0;
Size := Length(Value);
for i := Size downto 0 do
begin
if Copy(Value, i, 1) = '1' then
begin
Result := Result + (1 shl i);
end;
end;
end;
|
|
