Лекция: Выполнить поразрядные логические операции над машинными кодами
117 AND 90
-117 XOR 90
117 → 3
NOT 21 XOR –13 AND (-23 OR NOT 9)
115 AND 106
115 OR -106
115 → 4
NOT 17 OR (NOT 111 XOR –19) AND 91
107 AND 37
107 XOR -37
25 ← 2
-21 AND (NOT 75 OR –20) XOR NOT 59
27 AND 13
-27 OR 13
27 ← 2
NOT 21 XOR –3 AND (NOT 26 OR –13)
-21 OR 43
21 XOR 43
43 ← 1
(NOT 19 OR –6) AND NOT –9 XOR 4
55 AND 15
55 XOR -15
15 ← 3
NOT 7 AND –5 XOR (NOT 127 OR –8)
99 OR -17
99 AND 17
17 ←2
(18 OR NOT –8) AND NOT –7 XOR 3
29 OR -49
29 XOR 49
49 ←2
(NOT 8 XOR –6) AND 9 XOR NOT -12
42 AND 17
42 OR -17
42 → 3
NOT 25 XOR –4 AND (NOT 22 OR –10)
36 AND 12
36 XOR 12
36 ←2
NOT –3 XOR 15 AND (NOT 8 OR –6)
25 AND 18
25 XOR 18
25 ←2
NOT 23 OR –4 AND (NOT 24 OR –9)
39 AND 14
39 OR -14
39 ← 1
NOT 17 AND –5 OR (25 AND NOT –9)
49 AND 11
49 XOR 11
49 → 2
15 OR NOT –3 AND (14 OR NOT 16)
108 AND 35
108 XOR 35
31 ← 2
NOT –7 OR 8 AND (26 XOR NOT –9)
120 AND 37
120 OR -37
120 → 2
85 OR NOT –9 AND (NOT 46 OR –13)
117 AND 80
117 XOR 80
117 → 3
105 XOR NOT –15 AND (NOT 82 OR –25)
125 AND 14
125 XOR 14
100 →4
110 OR NOT –25 AND (NOT 46 XOR –11)
119 AND 18
119 OR -18
119 → 3
80 OR NOT –11 AND (NOT 48 XOR –15)
125 AND 20
125 OR -20
50 ← 2
40 OR NOT –19 AND (NOT 50 XOR –7)
94 AND 15
94 XOR 15
94 → 2
86 XOR NOT –17 AND (NOT 40 OR –9)
102 AND 31
102 OR -31
102 → 3
35 XOR NOT –9 AND (NOT 28 OR –17)
90 AND 11
90 OR -11
20 ← 2
17 XOR NOT –11 AND (NOT 30 OR –15)
74 AND 111
74 XOR 111
54 ← 1
28 OR NOT –13 AND (NOT 16 XOR –25)
36 AND 21
36 XOR 21
26 ← 2
14 OR NOT –15 AND (NOT 26 XOR –17)
61 AND 18
61 OR -18
61 ← 1
9 XOR NOT –21 AND (NOT 60 OR –5)
75 AND 26
75 XOR 26
22 ← 2
NOT 80 XOR –31 AND (-16 OR NOT 11)
81 AND 14
81 XOR 14
81 ← 3
70 XOR NOT –11 AND (NOT 36 OR 15)
111 AND 14
111 XOR 14
11 ← 3
15 XOR NOT –9 AND (NOT 26 OR 31)
Пример программы
Program Log_Oper;
{Выполнение поразрядных логических операций над целыми числами}
Uses crt;
Var
a,b,c,d:Shortint;
e:Byte;
Begin
clrscr;
a := 111;
b := -111;
c := 12;
d := -12;
e := a AND d;
WriteLn('111 AND -12 =',e,' (контр. значение 100)');
e := b AND d;
WriteLn('-111 AND -12 =',e,' (контр. значение 144)');
e := a OR c;
WriteLn('111 OR 12 =',e,' (контр. значение 111)');
e := a XOR c;
WriteLn('111 XOR 12 =',e,' (контр. значение 99)');
e := a shr 2;
WriteLn('111 >> 2 =',e,' (контр. значение 27)');
e := c shl 3;
WriteLn('12 << 3 =',e,' (контр. значение 96)');
e := b AND (NOT c OR a) OR d;
WriteLn('-111 AND(NOT12 OR 111)OR -12 =',e,' (контр. знач. 245)');
ReadLn;
End.
Лабораторная работа №4