Сегмент байта (Паскаль)

[Dizistar]

Запутался я совсем
цель зделать две функции.
Одна функция делит байт на два сегмента и возвращает два значения
в пределах F (16ти)
Вторая функция возвращает изначальный байт из двух сегментов (F И F)
Вообще что-то по аналогии с переменными word где можно верхний и нижний байт отделить.

Очень смутно пытался сделать что-то типа

polbyte1 := (byteN shr 2) and $ff;
Я что-то не соображу если у нас сдвиг то побитовый то может его надо на 8 ставить? Или на 16?
Чего то ерунда какая то получается у меня, не могу сообразить.

Подскажите пожалуйста как отделить верхний и нижний сегмент байта?
Но так конечно чтобы байт можно было обратно востановить. :-)

[Grag]

LoByte:=byteN and $0F - так получишь младшую половинку байта
HiByte:=byteN and $F0 - так получишь старшую половинку байта
Логически сложишь две половинки - получишь исходный байт...

[Dizistar]

Сообщение от Grag

Логически сложишь две половинки - получишь исходный байт...

Логическое сложение как должно выглядеть?
ByteN := Byte1 or Byte2;

[Dizistar]

В паскале не работает, вроде и ошибку не пишет но и результата 0 - убедись:

Var
byteN, by2,by : byte;
BEGIN
byteN := 240;

By:= byteN and $0F; { - так получишь младшую половинку байта}
Writeln(' ',by);
By2:=byteN and $F0; { - так получишь старшую половинку байта}
Writeln(' ',by2);

readln;

END.

[UnderwooD]

логическое сложение - это операция and.


по-моему делать надо так:

VAR
b,bL,bH : byte;

BEGIN
readln(b);
bL:=(b shl 4) shr 4; // младший полубайт
bH:=b and $FF; // старший полубайт
END.

[Филантроп]

логическое сложение - это операция and.

Да ну, вы в этом точно уверены?

Логическое сложение - двуместная логическая операция, определяемая таблицей истинности:
-: 0 or 0 = 0
-: 0 or 1 = 1
-: 1 or 0 = 1
-: 1 or 1 = 1
Синонимы: Дизъюнкция
Синонимы английские: or

[UnderwooD]

ой, точно!

попутал!

[Dizistar]

Сообщение от UnderwooD

по-моему делать надо так:

Нет не подходит и младший и старший полубайт получается равен заданному байту.
То есть в обоих случаях выводит 240:

 Var
byteN, by2,by : byte;
BEGIN
byteN := 240;

by:=(byteN shl 4) shr 4; { младший полубайт}
by2:=byteN and $FF; { старший полубайт}

Writeln(':0F: ',by);
Writeln('F0: ',by2);

ByteN :=0;
ByteN := By or By2;

writeln(by,'  or  ', by2,'   = ',ByteN);
readln;

END.

[UnderwooD]

Упс! Извиняюсь! Писал по памяти - насвинячил. Надо так:
by:=byteN shl 4;
by:=by shr 4; // младший полубайт
by2:=by shr 4; // старший полубайт

Все, теперь косяк точно исправлен!

[UnderwooD]

А как свой код выделять, когда пишешь?

Я просто третий раз в жизни на форум зашел. =)