Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.12.23;
Скачать: CL | DM;

Вниз

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

 
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] написано.


 
Сергей М. ©   (2007-11-28 16:07) [13]


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


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


 
clickmaker ©   (2007-11-28 16:09) [14]


> if a=2 then result:=true;

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


 
Anatoly Podgoretsky ©   (2007-11-28 16:16) [15]

> Сергей М.  (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;


 
Сергей М. ©   (2007-11-28 16:32) [17]


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


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



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

Текущий архив: 2007.12.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.049 c
15-1195544557
Int23
2007-11-20 10:42
2007.12.23
Как в CorelDraw нарисовать наконечник стрелки


15-1195992791
nstur
2007-11-25 15:13
2007.12.23
Zip


15-1195657961
oldman
2007-11-21 18:12
2007.12.23
Оказывается, вчера был Международный день ребенка


4-1181120911
OnMinimize
2007-06-06 13:08
2007.12.23
Поймать минимизацию окна.


2-1196192581
t-t
2007-11-27 22:43
2007.12.23
обращение к ф-ии





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский