Двоично-десятичный формат

← →
Ш-К (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]

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

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