задачка для программистов

[Longedok]

Интересная задача. Нашёл решение для явы (и других языков, в которых корректно работает операция >> и есть операция ^): (i ^ (i >> 31)) — (i >> 31). В делфи подбное реализовать не полуилось. Хотя можно обойтись и без ^, но операция shr как-то неправильно работает, и вместо арифметического сдвига делает логический. (i := -4, i shr 31 = 1, хотя при арифметическом сдвиге должно быть -1).

[NuMeR]

Longedok, идея подобная вашей пришла в голову где-то за пол часа до вашего сообщения но сдвигами в паскале, как вы уже сказали, логические а не арифметические, поэтому ничего хорошего у меня не вышло, но в таком решении надо знать разрядность числа.
p.s.в моем решении, которое я придумал раньше использовалось 5 операций, но сегодня, когда я опять начал думать над этой задачей удалось придумать решение сначала из 4-х операций, а потом упростить его до 3-х.вроде короче уже нельзя, но возможно есть что-то нелогичное, но работающее(как в первой задачке)

[Longedok]

Хм, интересно. Попробую тогда сегодня ещё немного над этой задачей подумать, так что, пожалуйста, не показывайте решение до завтра.

Единственное до чего пока додумался, это:

((not (i shr 31) + 1) xor i) - (not (i shr 31) + 1)

Решение очень громоздкое, некрасивое, с позорными восемью операциями и необходимостью знать разряд числа.

[NuMeR]

Longedok, зато решение работает и его можно упростить до 4-х операций.
i shr 31 равно 0 если i неотрицательное и 1 если число отрицательное. т.е. мы можем получить знак числа. например таким образом -2*(i shr 31)+1 а потом просто домножить на этот знак само число i, т.е. конечная формула (-2*(i shr 31)+1)*i это и будет модуль числа.
в своем решении я для получения знака числа я использую mod 2

[Serge_Bliznykov]

в своем решении я для получения знака числа я использую mod 2

o_O! А как можно получить знак числа через mod 2 ???

[NuMeR]

mod 2 может возыращать значения 1,-1,0

[Serge_Bliznykov]

вот мой вариант.
вроде от длины числа не зависит...

function MyAbs(N : LongInt) : longInt;
begin
  MyAbs := ((N mod 2) + ((N+1) mod 2))*N;
end;

[NuMeR]

Serge_Bliznykov, отлично, именно такое решение было у меня потом я его сократил до ((2*x+1)mod 2)*x а потом понял, что получить нечетное число того же знака можно проще чем 2*x+1 и получилось решение из трех операций ((x or 1)mod 2)*x

[Serge_Bliznykov]

Коллега, респект. я явно не "дотянул" до Вашего решения. (да и с Вашей стороны подсказочка с mod 2 была...)

[NuMeR]

Serge_Bliznykov, спасибо
ну что ж задачка №3.
нужно записать формулой следующую функцию

function f(x:longint):longint;
begin
  if x=0 then f:=0 else f:=1;
end;