Написать программу с рекурсивной функцией, вычисляющей: S по формуле.

[Figushkin]

Написать программу с рекурсивной функцией, вычисляющей:
формула1.jpg

[Serge_Bliznykov]

1) какой язык ?!
2) это несложно:
вот полный текст рекурсивной функции:

function MySum(i : integer) : double;
begin
   if i=N then MySum := sqrt(N)
   else MySum := sqrt(i) + MySum(i+1)
end;

[Figushkin]

1) Паскаль
2) я не понимаю рекурсивные ф-ции и процедуры
спасибо

[coper]

Попросите кого-нибудь объяснить. Это совсем не сложно. Достаточно разобрать пример вычисления n!

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

1) какой язык ?!
2) это несложно:
вот полный текст рекурсивной функции:

function MySum(i : integer) : double;
begin
   if i=N then MySum := sqrt(N)
   else MySum := sqrt(i) + MySum(i+1)
end;

Функция зависит же от N? Не мойму где оно у вас фиксируется. И еще квадратный корень извлекается не из i а из i+Mysum(i+1).
По мне делать надо как то так:

function MySum(n : integer) : double;
begin
    MySum:=MySum_Help(1, n);
end;
function MySum_Help(i : integer, n: integer) : double;
begin
   if i=N then MySum_Help := sqrt(N)
   else MySum_Help := sqrt(i + MySum_Help(i+1))
end;

[Skif-F]

У меня сильное ощущение, что

function MySum(i : integer) : double;
begin
   if i=N then MySum := sqrt(N)
   else MySum := sqrt(i) + MySum(i+1)
end;

вычисляет просто сумму квадратов.
По-моему надо так:

function MySum(i : integer, a : double) : double;
begin
   if i>1 then MySum := MySum(i-1, sqrt(i+a))
   else MySum := sqrt(i+a)
end;

Прошу прощения, если в программе имеются синтаксические ошибки - ну, не знаю я Паскаль

[Z1000000]

По-моему надо так:

Так и есть правильно :

Program AAA;
function MySum(i : integer; a : Real) : Real;
begin
   if i>1 then MySum := MySum(i-1, sqrt(i+a))
   else MySum := sqrt(i+a)
end;
begin
writeln ( MySum(3,0) );
end.

[Anatole]

В принципе рекурсия здесь не нужна, можно просто циклом

 S := sqrt(n);
for i:=n-1 downto 1 do S :=Sqrt(i+s);

[Serge_Bliznykov]

Сообщение от Skif-F

....   else MySum := sqrt(i) + MySum(i+1)

вычисляет просто сумму квадратов.

Вы абсолютно правы.

утром, в спешке, жуя бутерброд я ошибся..
вообще-то, я имел в виду такой код:

var N : integer;

function MySum(i : integer) : double;
begin
   if i=N then MySum := sqrt(N)
   else MySum := sqrt(i + MySum(i+1))
end;

begin
 N := 3;
 WriteLn( 'MySum = ',MySum(1) );
end.

N - глобальная (переменная или константа - по желанию программиста)

Хочу отметить, что Все вышуказанные программы (от Skif-F и от Z1000000) работоспособны и выдают (как и следовало ожидать ) одинаковый результат!

_________________

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

В принципе рекурсия здесь не нужна, можно просто циклом

Anatole, в задании стоит сделать именно через рекурсию!

[Anatole]

Anatole, в задании стоит сделать именно через рекурсию!

Я понимаю, но так хочется сделать решение более элегантным. А через рекурсию я бы делал так

Function MySum(n:integer):extended;
  Function RecursSum(i:integer): extended;
 begin
  if i = n then RecursSum := sqrt(n) else RecursSum := sqrt(RecursSum(i+1)+i)
 end;
 begin
   MySum := RecursSum(1);
end;

что практически совпадает с вашим решением, только n - локальное