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;
Но полюбас есть лучшее решение.
.