Составить рекуррентную функцию вычисления выражения. Pascal

[AngryProj]

Задания в приложенных файлах. Заранее спасибо!

[Bugrimov]

А где???? .... задания?

[AngryProj]

Составить рекуррентную функцию вычисления выражения

[type_Oleg]

AngryProj, если буквально понять это задание, то надо написать функцию на Pascal, причем при вызове функции программа зависнет. Она никогда не остановится.
Это ... означает и т д. до бесконечности

[AngryProj]

Вообще, в условии задачи ничего не сказано об условиях выхода или о каких-либо ограничениях, как ни странно. Но думаю, что пользователь помимо значения "Х" должен вводить некое "N" - число итераций. Как тогда в этом случае обойтись без цикла?

[Stilet]

С потолка:

program Project1;

function a(i:integer):Double;
begin
  if i>10 then begin a:=0;exit;end;
  a:=i+4+i*sqrt(i+1);
end;

function b(x:double;i:integer):Double;
begin
  if i>10 then begin b:=0;exit;end;
  b:=x+b(x,i+1)/i;
end;

begin
  write(a(2):5:2,b(1,2):5:2);
  readln;
end.

Не ручаюсь за правильность.