найти значение функции, или история одного сумасшедствия - Lapp )) Опции

[roza]

По заданному на рисунке графику найти значение функции у по переменной х, у изменяется от (-1,1)

[volvo]

Ага, так и вышло )).
В моей классификации он назвался 7a, но тут пускай уж будет восьмой:

А чего дальше не продолжил?

   case i of
      0 .. 2, 4 : y := abs(1 - i mod 3)*(i div 2 + 1 - z) + 0;
      else y := z - 4 - (i - 3) div 2;
   end;