Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.04;
Скачать: CL | DM;

Вниз

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

 
Виталик   (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;



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

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

Наверх




Память: 0.48 MB
Время: 0.044 c
1-1079535736
{bas}
2004-03-17 18:02
2004.04.04
Copy array


1-1079130133
graf
2004-03-13 01:22
2004.04.04
RxRichEdit


14-1079091916
stone
2004-03-12 14:45
2004.04.04
Как вам такое резюме? :))


11-1058190384
Igit
2003-07-14 17:46
2004.04.04
белый ListView


7-1074239041
Max_222
2004-01-16 10:44
2004.04.04
Как лучше заблокировать txt-файл...