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

[roza]

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

[Lapp]

Что-то не отпускает меня эта задача.. Вот еще один способ
Тут я для разнообразия выделил повторяющиеся вычисления в функцию - в третьем способе это тоже напрашивается. Способ вообще аналогичен третьему, но там периодичность достигалась косинусом, а тут - простым делением на 6 (как в первых двух).

var
  x,y: double;

function f(x: double): double;
begin
  f:= Round(Abs(Frac(x/6)-0.5)*4-1)
end;

begin
  readln(x);
  x:= Abs(x);
  y:= f(Trunc(x)) + (f(Trunc(x+1))-f(Trunc(x)))*Frac(x);
  writeln(y:8:3);
  readln
end.

Оговорка про знак x та же, что и в предыдущем методе, только тут я уже вставил Abs(x).

Интересно - этот способ окажется последним? ))

Добавлено через 17 мин.
Пятый способ является модификацией первого, основанной на симметричности периода..

var
  x,y,z: double;

begin
  readln(x);
  z:= Abs(Frac(Abs(x)/6)*6-3);
  if z<1 then y:= z-1
    else if z<2 then y:= 0
      else y:= z-2;
  writeln(y:8:3);
  readln
end.

люди, спасите, пропадаю.. как мне эту дрянь из головы выкинуть??..
"режьте, братцы, режьте, режьте осторожно.." (С)