Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.16;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
6-51386
tytus
2003-08-19 10:56
2003.10.16
Сетевая плата


1-51328
R
2003-10-06 02:29
2003.10.16
Процедура обработки сообщений в форме созданной динами-


14-51456
Brahman
2003-09-29 17:25
2003.10.16
Перевоплощение:)


3-51100
stud
2003-09-23 15:03
2003.10.16
при резервировании базы выдается ошибка


1-51282
Kost
2003-10-06 16:54
2003.10.16
Чё за фигня???