данно действительное число х

[Evgenii_95]

Изображение

[Stilet]

function f(x:Double):Double;
begin
 if x<0 then f:=-4 else 
  if (x>=0)and(x<1) then f:=x*x+3*x+4 else
   f:=sqr(x*x+3*x-4)-1;
end;

Идея ясна?