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

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

Форум программистов > Object Pascal: кроссплатформенные технологии > Паскаль из десятичной в двоичную

Автор: Garabar 22.10.2004, 18:08

Драсти)
Не падскажите ли есть ли в турбике стандартная функция вывода значений в двоичном виде
цпасибо

Автор: p0s0l 22.10.2004, 18:36

Функции такой, если не изменяют память, в TP нет...
На, держи, накатал функцию с примером:

Код

program BinView;

uses Crt;

function IntToBin (w : word; digits : byte) : string;
var
  s : string;
begin
  s := '';
  while w > 0 do
  begin
    s := char(48+(w and 1)) + s;
    w := w shr 1;
  end;
  while Length(s) < digits do s := '0' + s;
  IntToBin := s;
end;

var
  i : word;

begin
  ClrScr;
  Write ('enter number: ');
  ReadLn (i);
  WriteLn ('bin: ', IntToBin(i, 16));
  ReadKey;
end.

Автор: Garabar 22.10.2004, 19:07

Цпасибо большое!!
Вообщето мог бы и сам написать))