Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.10.2014, 17:41   #21
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,629
По умолчанию

Цитата:
Сообщение от Дmmm Посмотреть сообщение
А для задачки посложнее найдётся креатив?
if b then
x:=m/n else
x:=n/m;
тоже нужно в одно выражение без "if"
Код:
x:= byte(b) * m / n + byte(not b) * n / m;
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 24.10.2014, 10:49   #22
maloun
Форумчанин
 
Аватар для maloun
 
Регистрация: 03.01.2011
Сообщений: 233
По умолчанию

упс, не заметил что это уже было

Код:
var
  b:Boolean;
  i:Integer;
begin
  b:=False;
  i:=Byte(b)-Byte(not b); // -1   
  b:=True;
  i:=Byte(b)-Byte(not b); // 1
end;
пыжок

Последний раз редактировалось maloun; 24.10.2014 в 10:54.
maloun вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
BOOLEAN Thandem Помощь студентам 12 26.09.2010 08:12
Вычесть из Integer Form2 Integer Form1 Shouldercannon Общие вопросы Delphi 2 30.07.2010 17:47
как выделить память для указателя (pointer), и сюда же, записать : integer, потом через 4 байта, boolean? bigxman Общие вопросы Delphi 1 02.02.2009 21:17
Boolean Air Общие вопросы Delphi 2 16.02.2008 17:15
Boolean... ZhekON Общие вопросы Delphi 2 17.06.2007 00:39