Четность числа ?

← →
PASZLIB (2007-11-28 15:41) [0]

есть функция ?
проверяю так

var
r,x:byte;
begin
r:=a DIV 2;
x:=a*2;
if r=x then result:=true
else result:=false;

выходит что все нечетные( ((

← →
Сергей М. © (2007-11-28 15:44) [1]

Двойка. "Низачот".

← →
Джо © (2007-11-28 15:45) [2]

Odd

← →
Jeer © (2007-11-28 15:45) [3]

Мда...

if ( x and 1) then // нечетно

О четности сам догадайся

← →
clickmaker © (2007-11-28 15:47) [4]

> выходит что все нечетные

Эврика! Бегом за нобелевкой

← →
PASZLIB (2007-11-28 15:48) [5]

снимаю дошло real надо
работает

← →
clickmaker © (2007-11-28 15:48) [6]

> [5] PASZLIB (28.11.07 15:48)
> снимаю дошло real надо

на уроки математики ходить надо было

← →
Сергей М. © (2007-11-28 15:50) [7]

> снимаю

Стесняюсь спросить - что снимаешь ?)

← →
@!!ex © (2007-11-28 15:53) [8]

идиотизм... чессслово...
Result:=x mod 2 = 0;

← →
Сергей М. © (2007-11-28 15:56) [9]

> @!!ex © (28.11.07 15:53) [8]

Почему "идиотизм" ?

В общем случае наложение маски выглядит привлекательней и действует быстрей, нежели операция получения остатка при ц/ч делении.

← →
Джо © (2007-11-28 15:58) [10]

> [8] @!!ex © (28.11.07 15:53)
> идиотизм... чессслово...
> Result:=x mod 2 = 0;

Зачем проверять «косвенно», когда в языке есть готовая функция Odd? которая, к тому же, compiler macig и инлайнится по месту вызова.

← →
PASZLIB (2007-11-28 16:05) [11]

function TFishNode.Chetnoe(a:byte):bool;
var
r:real;
begin
result:=false;
if a=2 then result:=true;
r:=a DIV 2;

if r*2=a then result:=true
else result:=false;
//result:=true;
end;

ЫЫЫ работает

← →
@!!ex © (2007-11-28 16:05) [12]

> [9] Сергей М. © (28.11.07 15:56)

Иска - это не вопрос.
Я про то что в [0] написано.

> ЫЫЫ работает
>

Полны радости штаны)

> if a=2 then result:=true;

низачот.
где
else if a=4
else if a=6
else if a=8
..
а?

> Сергей М. (28.11.2007 15:50:07) [7]

Мне интереснее что курит, грибы явно слабоваты.

← →
PASZLIB (2007-11-28 16:23) [16]

clickmaker сначала думал мож так пойдет ?

else if a=4
else if a=6
else if a=8
....
else if a=200

а умножением сдвигом и смотрением битности не кошерно ),
главное работает [11]

вначале убрать
result:=false;
if a=2 then result:=true;

> PASZLIB (28.11.07 16:23) [16]
>
> сначала думал мож так пойдет ?

Ты, блин, на рыбалке ?)

Четность числа ? Найти похожие ветки