Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

есть ли функция чёт - нечёт ? [D6, 2000]

Officeman © (2006-01-18 14:45:00)
i:integer

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

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

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

Officeman (2006-01-18 16:13:00) [1]
verywell. спасибо, выручили.

begin...end (2006-01-18 15:36:00) [2]
> Johnmen © (18.01.06 15:26) [8]

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

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

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

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

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

begin...end (2006-01-18 15:11:00) [4]
> Johnmen © (18.01.06 15:06) [5]

> Так сойдёт?

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

Johnmen (2006-01-18 15:06:00) [5]
>begin...end © (18.01.06 15:00) [4]
>Неверно.

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

Ega23 (2006-01-18 15:06:00) [6]

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

begin...end (2006-01-18 15:00:00) [7]
> Johnmen © (18.01.06 14:47) [1]

Неверно.

evvcom (2006-01-18 14:49:00) [8]
if odd(X) then <нечёт> else <чёт>

Кефир87 (2006-01-18 14:48:00) [9]
Если уж так нужна ф-ция, то есть Odd() 8)

Johnmen (2006-01-18 14:47:00) [10]
if X mod 2 > 0 then <нечёт> else <чёт>

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »