VPF::Работать с числом как с двоичным.

Innuendo108

Дата 13.12.2008, 11:02 (ссылка)

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

Загрузка ...

Шустрый

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

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

Пользователь вводит с клавиатуры число. Оно в двоичной системе. но паскаль воспринимает его как десятичное.
необходимо к примеру чтобы если a = 10, то shr(a,1) он выдавал 1 а не 5 (как с десятиричными числом)...

Как это можно преобразовать? Конечно можно перевести число введенной в двоичной в десятиричную но мне нужно работать с числом как с двоичным.

Juice

Дата 13.12.2008, 14:39 (ссылка)

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

Загрузка ...

Новичок

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

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

Вижу только один вариант - считывать вводимое значение как строку, потом только переводить в число.

NewDima

Дата 17.12.2008, 08:52 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 922
Регистрация: 20.2.2006
Где: <?here?>

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

Код


function BinToInt(value: integer): integer;
var i: integer;
begin
result := 0;
i:=1;
while (value>0) do
 begin
  if (value mod 10 > 0) then inc (Result, i);
  value := value div 10;
  i := i*2;
 end;
end;

Это сообщение отредактировал(а) NewDima - 17.12.2008, 08:52

--------------------

Начинаем черкать!

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