[Biatov]

Сообщение от Ama

А что тут сложного, не пойму. Подключаешь обычную логику и вперед.

Код:

function f(x: real): real;
 begin
  if x < -1.0 then Result:= Pi / (4 * x)
  else
  if (x >= -1.0) and (x <= 1.0) Result:= arccos(x)
  Result:= Pi * x / 4;
 end; 

Не хочу показаться наивным, но функция arccos как в Паскале, так и Delphi не вычисляется.
Можно заменить таким образом:
arccos(x)=arctan(sqrt(1-sqr(x))/x);