Извините, ничего не найдено.

Ganociy · 02.12.2009, 12:56

Как в паскале проверить является ли число в массиве не чётным ?

Жека · 02.12.2009, 13:02

синтаксис паскаля не знаю, но легко сделать с модулем.
псевдокод такой:

if(value mod 2 = 0)
  //число чётное
else
  //число нечётное

операция mod там есть точно.

Hurrit · 02.12.2009, 13:42

Объясняю принцип работы товарища Жека, если не понятно. Делим число на два и получаем остаток, если он равен нулю, наше число четно, если же не равен нулю, соответственно, число нечетно

impersonalis · 02.12.2009, 14:52

Можно проверить ложность младшего бита

SBJoker · 02.12.2009, 15:05

Можно сложить с нечётным числом и если получится чётное то исходное число было нечетным и наоборот.

impersonalis · 02.12.2009, 15:09

Для чисел больше единицы можно ввыполнить проверку на степень двойки - если верно, то число чётное.
формула:
!(х & (х-1))
//условие необязательное, правда: все степени 2ки чётные, но е все чётные - степени 2ки

SBJoker · 02.12.2009, 15:26

для чётных целых чисел результат деления нацело будет равен результату деления с дробью.
Так же результат деления - целое число.
Так же сложение любого количества четных чисел даст чётное число, с нечётными такое не проходит.

impersonalis · 02.12.2009, 16:08

XOR чётного с любым нечётным даст нечётное

SeedRnd(MilliSecs())
For i=1 To 10
	a%=2*Rand(1,100)+1
	b%=2*Rand(1,100)
	c%=a Xor b
	Print c
Next
WaitKey()

ViNT · 02.12.2009, 16:42

Че-то вы навертели...



chet:=odd(a);

если true, значит нечетное, если false, значит четное.

Ganociy · 02.12.2009, 18:08

Сообщение от ViNT

Че-то вы навертели...



chet:=odd(a);

если true, значит нечетное, если false, значит четное.

А можно по подробнее

ViNT · 02.12.2009, 18:37

Сообщение от Ganociy

А можно по подробнее

В смысле поподробнее?
Допустим, есть массив A из N элементов и Memo, в который будем выводить данные о четности каждого элемента - одна строка - один элемент. Тогда будет так:



for i:= 1 to N do 
 if odd(A[i]) then 
  Memo1.Lines.Add('Элемент '+inttostr(i)+' нечетный') 
 else 
  Memo1.Lines.Add('Элемент '+inttostr(i)+' четный');

Вот и все.