системы счисления

← →
Vin_Ghost © (2003-10-05 15:28) [0]

Как преобразовать десятичное число в двоичное и наоборот?

← →
DVM © (2003-10-05 15:38) [1]

А оно и так в двоичном виде лежит в памяти. Надо только взять.

← →
Alexious (2003-10-05 15:49) [2]

procedure dec2bin(dec: longint): string;
var
bin : string;
i, J: longint;
begin
if dec = 0 then bin := "0"
else
begin
bin := "";
i := 0;
while (1 shl (i + 1)) <=dec DO i := i + 1;

for J := 0 TO i DO
begin
if (dec SHR (i - J)) = 1 then bin := bin + "1"

else bin := bin + "0";
dec := dec and ((1 shl (i - J)) - 1);

end;
end;
dec2bin := bin;
end;

procedure bin2dec(bin: string): longint;
var
J : longint;
Error: boolean;
dec : longint;
begin
dec := 0;
Error := false;
for J := 1 TO Length(bin) DO
begin
if (bin[J] <>"0") and (bin[J] <>"1") then Error := true;
if bin[J] = "1" then dec := dec + (1 shl (Length(bin) - J));
end;
if Error then bin2dec := 0
else bin2dec := dec;
end;

http://thl.narod.ru/tehnologia/informatika/lecture2.htm

системы счисления Найти похожие ветки