Логические выражения

← →
keymaster © (2005-12-16 22:03) [0]

Как известно (1 and 1) = 1
но и (3 and 1) = 1
а надо чтобы только единица ловились.

Вся задача звучит примерно так:
есть массив целых чисел, хаотично заполненный числами "1,2,3,4"
Надо посчитать количество единиц, двоек, троек, четвёрок.
Нельзя юзать IF, CASE, While, доп массивы и т.д.
Цикл должен быть один - тот в котором идёт перебор элементов.

← →
DrPass © (2005-12-16 22:06) [1]

xor

← →
TUser © (2005-12-16 22:15) [2]

Расшифрую
for i:=0 to length-1 do
count += integer((NeedNumber xor RealNumber) == 0)

← →
Uncle Archi © (2005-12-16 22:35) [3]

keymaster © (16.12.05 22:03)
1 xor 1 = 0
1 xor 2 = 3
1 xor 3 = 2
1 xor 4 = 5

← →
Alexander Panov © (2005-12-16 22:48) [4]

var ArrInt,ArrCounter: array of Integer; i: Integer; s: String; begin SetLength(ArrInt,4); SetLength(ArrCounter,4); ArrInt[0] := 1; ArrInt[1] := 2; ArrInt[2] := 2; ArrInt[3] := 3; for i := 0 to High(ArrInt) do begin ArrCounter[ArrInt[i]-1] := ArrCounter[ArrInt[i]-1] + 1; end; s := ""; for i := 0 to High(ArrCounter) do begin s := s + "Eiee?anoai("+IntToStr(i+1)+")"+IntToStr(ArrCounter[i])+#13#10; end; ShowMessage(s);

← →
SergP © (2005-12-16 23:11) [5]

> Надо посчитать количество единиц, двоек, троек, четвёрок.

var
S:cardinal;
...
for i:=0 to high(arr) do S:=S+(1 shl (8*arr[i]));

Кол-во каждого из чисел будет в соответствующем быйте

← →
SergP © (2005-12-16 23:12) [6]

> Надо посчитать количество единиц, двоек, троек, четвёрок.

var
S:cardinal;
...
for i:=low(arr) to high(arr) do S:=S+(1 shl (8*arr[i]));

Кол-во каждого из чисел будет в соответствующем быйте

> for i:=low(arr) to high(arr) do S:=S+(1 shl (8*arr[i]));

for i:=low(arr) to high(arr) do S:=S+(1 shl (8*(arr[i]-1)));

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