Тема: Булевые операции
Показать сообщение отдельно
  #2  
Старый 09.10.2013, 19:09
Аватар для @Rafa3L
@Rafa3L @Rafa3L вне форума
Начинающий
  
Регистрация: 09.11.2011
Адрес: Москва
Сообщения: 144
Версия Delphi: XE2
Репутация: 11216
По умолчанию
Код:
...
if (x{mod} and 2) = 0 then y:=  1;
if (x mod {and}2) = 1 then y:= -1;
if  x < 3 then  y:= 0;
...
__________________
Помогаю платно.
Помогаю иногда бесплатно.
Ответить с цитированием