Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Преобразователь BCD to Binary

Автор: Rais 1.5.2006, 20:36

Помогите, пожалуйста. Нужна программа для преобразования числа из двоично-десятичной формы в двоичную. Желательно на "Паскале" или на "Делфи". Заранее благодарен.

Автор: e-moe 1.5.2006, 22:18

BCD упакованные или нет?

Автор: Rais 2.5.2006, 01:40

Упакованные.

Автор: e-moe 2.5.2006, 14:24

Код


type
  BCD = word;

function BCD2D(d: BCD): word;
var
  Res: word;
begin
  Res := 0;
  while d <> 0 do
    begin
      Res := Res * 10 + (d shr (sizeof(BCD)*8-4));
      d := d shl 4;
    end;
  BCD2D := Res;
end;

const
  b: BCD = $1234;
begin
  writeln(BCD2D(b));

end.

Автор: Rais 3.5.2006, 16:43

Большое Вам спасибо.