[o'neal]

5. Вычислить значения функции на отрезке xє[a,b] с шагом h>0
·······{π/(4x), x<-1
f(x)={arccos(x), -1<=x<=1
·······{πx/4, x>1

Буду очень благодарен...

[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; 

[lmikle]

o'neal
Вообще-то:
1. Не надо на каждый вопрос создавать по отдельной теме.
2. Не надо ждать, что тебе тут все готовое дадут. Либо делаешь сам и спрашиваешь что не получается, либо добро пожаловать в раздел "Работа".

[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);

[o'neal]

спасибо за помощь.