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

[roza]

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

[Lapp]

Еще одна модификация первого способа, но в другом смысле (нежели чем способ 5). Просто замена вложенных if на case, что позволяет немало сократить код:

var
  x,y,z: double;

begin
  readln(x);
  z:= Frac(Abs(x)/6)*6;
  case Trunc(z) of
    0: y:= 1-z;
    1,4: y:= 0;
    2: y:= 2-z;
    3: y:= z-4;
    else y:= z-5;
  end;
  writeln(y:8:3);
  readln
end.

ляляля... ляляля.. ...
Таак, интересно.. кажется, этот способ может быть продолжен..
кто нибудь дома? тук-тук!

Добавлено через 15 мин.

Таак, интересно.. кажется, этот способ может быть продолжен..

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

var
  x,y,z: double;
  i: integer;

begin
  readln(x);
  z:= Frac(Abs(x)/6)*6;
  i:= Trunc(z);
  case i of
    0,2: y:= i div 2+1-z;
    1,4: y:= 0;
    else y:= z-4-(i-3) div 2;
  end;
  writeln(y:8:3);
  readln
end.

Я тут ввел еще одну (целую) переменную - чисто для удобства (и небольшой экономии вычислений).

чуть помедленее, кони, чуть помедленнее..
не указчики вам кнут и плеть!..
(С)

а вы не слышали - какая погода на северо-востоке кратера Коперника в эти выходные?.. надо бы смотаться, развеяться немного Кто со мной? на обратную сторону Луны не приглашать, там всегда дождь..