Текущий архив: 2006.07.30;
Скачать: CL | DM;

Вниз

формула разложения 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;


---

← →
begin...end ©   (2006-07-10 18:02) [6]

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.07.30;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.033 c