Рекурсия. ПаскальABC. Составить программу для определения значения функции, заданной...

Question

Рекурсия. ПаскальABC. Составить программу для определения значения функции, заданной указанным соотношением.

---

Comments

Function F(x : Real) : Real;Begin If abs(x+1)>1 then F:=-2*sqr(x)+sqr(f(x-1)) else F:=4;end;Var a : Real;Begin Readln(a); Writeln(F(a));end.

Answer 1

Function f(x:integer):integer;
begin
  if abs(x+1)<=1 then f:=4<br>  else f:=-2*sqr(x)+sqr(f(x-1))
end;

Comments

спасибо большое, у вас там ошибочка, нужно не умножить, а прибавить, но это опечатка)

---

Спасибо, я уже сам заметил и попрвил

Answer 2

Function F(x : Real) : Real;
Begin
If abs(x+1)>1 then F:=-2*sqr(x)+sqr(f(x-1))
else F:=4;
end;
Var a : Real;
Begin
Readln(a);
Writeln(F(a));
end.