Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.15;
Скачать: 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 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.058 c
4-1131459243
vishnia
2005-11-08 17:14
2006.01.15
Вывод на печать на принтер, подключенный по сети


6-1127815341
Rentgen
2005-09-27 14:02
2006.01.15
Закрыть порт


14-1134734721
Германн
2005-12-16 15:05
2006.01.15
Первый в мире компетентный программист


14-1135167379
syte_ser78
2005-12-21 15:16
2006.01.15
IPB


10-1110887923
Eleonore
2005-03-15 14:58
2006.01.15
Формулы Excel в Delphi