Question

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

Answer 1

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 2

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