есть ли функция чёт

← →
Officeman (2006-01-18 14:45) [0]

i:integer

if i=....(чётное) then .... else ....

есть ли функция чёт - нечёт ?
надо проверить число.

обработка большого кол-ва чисел - около 1000 чисел.

← →
Johnmen © (2006-01-18 14:47) [1]

if X mod 2 > 0 then <нечёт> else <чёт>

← →
Кефир87 © (2006-01-18 14:48) [2]

Если уж так нужна ф-ция, то есть Odd() 8)

← →
evvcom © (2006-01-18 14:49) [3]

if odd(X) then <нечёт> else <чёт>

← →
begin...end © (2006-01-18 15:00) [4]

> Johnmen © (18.01.06 14:47) [1]

Неверно.

← →
Johnmen © (2006-01-18 15:06) [5]

>begin...end © (18.01.06 15:00) [4]
>Неверно.

Пожалуйста. Так сойдёт?
if X mod 2 = 0 then <чёт>
else <нечёт>

← →
Ega23 © (2006-01-18 15:06) [6]

> if ((X mod 2) > 0) then <нечёт>
> else <чёт>
>

← →
begin...end © (2006-01-18 15:11) [7]

> Johnmen © (18.01.06 15:06) [5]

> Так сойдёт?

Для генерации тормознутого кода -- вполне.

>begin...end © (18.01.06 15:11) [7]
>Для генерации тормознутого кода -- вполне.

А так?
if X and 1 = 1 then <нечёт> else <чёт>

> Johnmen © (18.01.06 15:26) [8]

Всё равно медленнее, чем Odd. Полным её аналогом будет:

if X and 1 <> 0 then
// нечётное
else
// чётное

Но смысла городить малочитабельный код я не вижу, лучше использовать саму Odd.

← →
Officeman (2006-01-18 16:13) [10]

verywell. спасибо, выручили.

есть ли функция чёт - нечёт ? Найти похожие ветки