Скачать: CL | DM;

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

← →
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]));

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

---

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

> Alexander Panov ©   (16.12.05 22:48) [4]



> Нельзя юзать IF, CASE, While, доп массивы и т.д.

---

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

> 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)));

---

← →
Игорь Шевченко ©   (2005-12-16 23:24) [9]

SergP ©   (16.12.05 23:23) [8]

S := 0 в начале

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.047 c