Записать программу, которая на ввод значения аргумента выдает значение функции, заданной графиком

[MiaKotova]

Здравствуйте, помогите пожалуйста
Записать программу, которая на ввод значения аргумента выдает значение функции, заданной графиком

[type_Oleg]

Два вопроса.
1) А чему должно быть равно f(x), если x=0 ?
-1, 1 или что-то между, 0 например?

2) Почему в разделе именно Delphi, а не просто Pascal? Вам что, нужно именно оконное приложение ?
Напишите , как будете делать ввод значения аргумента. Это сможете ?

[Mad_Cat]

Message:='';
if (x<-2) or (x>2) then y:=1
else
if ((x<-1) and (x>-2)) or ((x>0) and (x<1)) then y:=-1
else
if (x>-1) and (x<0) then y:=x+1
else 
if (x>1) and (x<2) then y:=2-x
else Message:='Функция не определена';
if length(Message)<1 then Message:=FloatToStr(y);

[min@y™]

Потомство написало.



Прога тут.