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

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

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

> Так сойдёт?

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

---

← →
Johnmen ©   (2006-01-18 15:26) [8]

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

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

---

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

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

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

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

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

---

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

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

---

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

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



Память: 0.47 MB
Время: 0.043 c