Форум: "Основная";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];
ВнизДвоично-десятичный формат Найти похожие ветки
← →
Ш-К (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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c