Форум: "Основная";
Текущий архив: 2003.10.16;
Скачать: [xml.tar.bz2];
Внизсистемы счисления Найти похожие ветки
← →
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;
← →
Alexious (2003-10-05 16:22) [3]http://thl.narod.ru/tehnologia/informatika/lecture2.htm
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.16;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.014 c