формула разложения 16 битного числа на 2 байта

← →
alexal (2006-07-07 11:41) [0]

Мастера, есть вопрос подскажите как из 16 битного числа вычислить старший и младший, только без логических команд.
Во времена спектрума вычислял на калькуляторе, но время прошло достаточно забыл, кто помнит подскажите

← →
cyborg © (2006-07-07 17:33) [1]

Lo() Hi()

Shr(8)

Shl(8) Shr(8)

← →
cyborg © (2006-07-07 17:37) [2]

Ещё младший (число mod 256), старший (число div 256)

← →
Zilog © (2006-07-10 16:12) [3]

var a : word; b,c : byte;
begin

asm
mov ax,a
mov b,ah
mov c,al
end;

зы. привет спектрумисту ;)

← →
evvcom © (2006-07-10 16:22) [4]

> Во времена спектрума вычислял на калькуляторе

Если вычислял на калькуляторе, то причем здесь спектрум? А если приплел спектрум, то причем тут калькулятор? Не понятно.

← →
SergP. (2006-07-10 17:20) [5]

Ну можно еще так поизвращаться:

procedure TForm1.Button2Click(Sender: TObject); var rec: packed record case boolean of true: (a:word); false: (b,c:byte); end; begin rec.a:=21211; label1.Caption:="младший байт"+inttostr(rec.b); label2.Caption:="старший байт"+inttostr(rec.c); end;

var
A: array [1..2] of Byte;
W: Word absolute A;

формула разложения 16 битного числа на 2 байта Найти похожие ветки