VPF::Паскаль из десятичной в двоичную

Garabar

Дата 22.10.2004, 18:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 224
Регистрация: 15.9.2004

Репутация: нет
Всего: 1

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

p0s0l

Дата 22.10.2004, 18:36 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: нет
Всего: 112

Функции такой, если не изменяют память, в 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 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 224
Регистрация: 15.9.2004

Репутация: нет
Всего: 1

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »