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

[roza]

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

[Lapp]

Шестой способ центрирован на середины горизонтальных отрезков. Вся область разбивается на куски длиной 3 (с центрами в означенных точках). На каждом таком куске наша функция оказывается нечетной, при этом знак функции чередуется от куска к куску:

var
  x,y: double;

function f(x: double): double;
begin
  f:= Abs(Frac(x/3)-0.5)
end;

begin
  readln(x);
  x:= Abs(x);
  if f(x)<1/6 then y:=0
    else y:= (f(x)*3-0.5)*(1-Trunc((x+1.5)/3) mod 2*2);
  writeln(y:8:3);
  readln
end.

а что? я ничего.. я тихий, смирный.. сижу - примус починяю (С).. не надо меня в Кащенко.. можно я погрызу ваши тапки? ну что вам, жалко что ли.. тяф!.. тяфф!..