Текущий архив: 2003.06.12;
Скачать: CL | DM;

Вниз

Двоично-десятичный формат   Найти похожие ветки 

← →
Ш-К   (2003-05-31 06:10) [0]

Есть функция, которая переводит байт в BCD:

function BCD(Y: byte): byte;
begin
result:= y div 10;
result:= result shl 4;
result:= result+(y mod 10);
end;

У кого есть обратная функция?

---

← →
Anatoly Podgoretsky ©   (2003-05-31 06:24) [1]

Так абсолютно обратная операция shr/and и */+

---

← →
Юрий Зотов ©   (2003-05-31 11:51) [2]

Result := (Y shr 4) * 10 + (Y and $F)

---

← →
Ш-К   (2003-05-31 21:29) [3]

Спасибо. А то хотел уже оператором сазе перебирать варианты.

---

Страницы: 1 вся ветка

Текущий архив: 2003.06.12;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c