Логические операции

← →
Виталик (2004-03-18 12:01) [0]

Хай
Есть несколько (их много :() последовательностей цифр (12 символов 0 и 1) и необходимо их прогнать через AND
Делаю
-----------------
var x,y,z: Int64;
-----------------
X:=111011010110;
Y:=100011110110;
Z:=X and Y;
получается фигня полная :(
Как решить данную проблему ... не перебирать же все через copy

← →
Algol (2004-03-18 12:05) [1]

X:=$111011010110b;
Y:=$100011110110b;

← →
Cobalt © (2004-03-18 12:06) [2]

К сожалению, задание значения целого числа в двоичном виде в Паскале не предусмотрено. Но вы можете указать в 16-ом вормате, например:
x:=$ED6; z:= ...

← →
Cobalt © (2004-03-18 12:09) [3]

> Algol
А вот это даже не скомпилируется.

← →
Ozone © (2004-03-18 12:09) [4]

А ты че получить-то хотел таким образом?

← →
Ozone © (2004-03-18 12:13) [5]

Ну пиши:

x := 3797
y := 2294;
z = x and y

Получишь z = 2260 (100011010100)

← →
Algol (2004-03-18 12:26) [6]

>Cobalt
>А вот это даже не скомпилируется.

Оно не только скомпилируется, оно даже будет работать ))

← →
Плохиш (2004-03-18 12:32) [7]

> Algol (18.03.04 12:26) [6]
> Оно не только скомпилируется, оно даже будет работать ))

Нука скажи чему равно $111011010110b в двоичном виде?

← →
Algol (2004-03-18 12:47) [8]

Ага, сорри, посмотрел в хелп , действительно двоичный формат поддерживается только в ассемблерных вставках. Вот так точно все будет ок:

var x,y,z: Integer;
begin
asm
mov X, 111011010110b;
mov Y, 100011110110b;
end;
Z:=X and Y;

Логические операции Найти похожие ветки