[ART]

Получить значения, что на картинке без использование else. Кто-нибудь могёт?

[@Rafa3L]

Код:

...
if (x{mod} and 2) = 0 then y:=  1;
if (x mod {and}2) = 1 then y:= -1;
if  x < 3 then  y:= 0;
...

[ART]

Сообщение от @Rafa3L

Код:

...
if (x{mod} and 2) = 0 then y:=  1;
if (x mod {and}2) = 1 then y:= -1;
if  x < 3 then  y:= 0;
...

Нужно одним выражением. Без ифов.

[@Rafa3L]

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

...без использование else...

и

...Без ифов...

без else грустно

Код:

var
z: array[0..1] of integer = (1, -1);
...
y:= z[(x mod 2)];
case x of
0..3: y:= 0;
end;
...

[YVitaliy]

Case это почти тот же самый if...
Немного попарившись, нашел такое решение (кажись, в ф-ции abs() if-ов нет? ):

Код:

  y:=-((((x - 2) + abs(x - 2)) div 2 - 1) mod 2 - 3) mod 3 - 1;
или
y:= ((((x - 2) + abs(x - 2)) div 2 - 1) mod 2 - 3) mod 3 + 1;

Но полюбас есть лучшее решение..