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

[roza]

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

[Lapp]

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

Как-то так..

var
  x,y,z: double;

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

Или вот так:

const
  a: array [0..5] of double = ( 1, 0, 2,-4, 0,-5);
  b: array [0..5] of double = (-1, 0,-1, 1, 0, 1);

var
  x,y,z: double;

begin
  readln(x);
  z:= Frac(Abs(x)/6)*6;
  y:= a[Trunc(z)]+b[Trunc(z)]*z;
  writeln(y:8:3);
  readln
end.