Версия для печати темы

Автор: -Андрей- 24.11.2005 1:07

"Пользователем вводится число K. Оно принимает значение от 0 до 255. Используя поразрядные операции определить какие значения принимают I и J разряды. Они изменяются от 0 до 7. Проверку делать на вводе".
Вот такая вот у меня задача. Помогите мне пожалуйста её решить. В принципе, для меня самое сложное - это сделать проверку на вводе. Ну, никак не получается! А как сдвинуть разрялы и их вывести я знаю.
В общем, люди добрые, помогите написать эту программу. Пожалуйста!

Автор: klem4 24.11.2005 1:20

(*
 Возврящает true если в A задан бит с номером bit
*)

function BitOnOff(a,bit : byte) : boolean;
begin
   BitOnOff := (a and trunc(exp(bit*ln(2)) ) =trunc(exp(bit*ln(2)))) ;
end;

Автор: volvo 24.11.2005 1:25

klem4, это гораздо проще делается:

{ Нумерация битов справа налево с нулевого по седьмой... }
function BitOnOff(a, bit : byte) : boolean;
begin
  BitOnOff := ((a and ($01 shl bit)) <> 0)
end;

Автор: -Андрей- 24.11.2005 1:39

У меня задача такая: пользователь вводит число от о до 255. Его надо представить в двоичном коде и вывести из этого числа итый и житый разряди, которые тоже ввёл пользователь. И вот в числе к мне надо знать чему будут равны эти разряди, ну, например 1 и 2, 3 и 7. И вывести, чему они будут равны (нулю или еденицы), в заданном месте.
Вот я только никак не пойму, число само представляется (когда его вводишь) сразу в двоичном коде или его надо ещё переводить? И проверка не получается.

Автор: klem4 24.11.2005 1:40

Автор: Guest 24.11.2005 1:41

"О какой проверке речь?"

На вводе. То есть мне надо, что если на вводе пользователь введёт не правильно число, то вывести, что он ввёл не правильно, и заставить его повторить его это сделать. Вот к задаётся от о до 255. Разряды от о до 7.

Автор: klem4 24.11.2005 1:42

repeat
   readln(k);
until (k>=0) and (k<=255)

Автор: -Андрей- 24.11.2005 1:54

Спасибо, сейчас пойду попробую.