Форум: "Основная";
Текущий архив: 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.008 c