Рекурсия

[Claster]

Написать рекурсивную функцию вычисляющую сумму корней квадратных из натуральных чисел от 1 до n. ПЛИЗЗЗЗЗЗЗЗЗЗЗЗ

[eoln]

Все рекурсивные функции очень и очень похожи, они много раз встречаются на форуме
http://programmersforum.ru/showpost....81&postcount=2

function sumkor(a: word): real;
begin
  if a = 1 then sumkor := 1
  else sumkor := sqrt(a) + sumkor(a-1);
end;
var
  n: word;
begin
  n := 3;
  write(sumkor(n):0:5);
  readln
end.

[Claster]

а чё постоянно 1 ответ получаеться? извенитечайника за такой вопрос!

[puporev]

n := 3;

Сделай переменную n и вводи разные числа.

[Claster]

Напишите пожалуйста коментарии к строчкам, что бы лучше было разобраться мне!!!

[Claster]

function sumkor(a: word): real;
begin
if a = 1 then sumkor := 1
else sumkor := sqrt(a) + sumkor(a-1);
end;
var
n: real;
begin
writeln('vvedite n ');
readln(n);
//n := 3;
writeln(sumkor (2):0:5);
readln
end.

сделал переменную n ввожу число любое пишет постоянно 2.41241

[puporev]

сумму корней квадратных из натуральных чисел от 1 до n.

С какого у тебя n:real;?

writeln(sumkor (2):0:5);

Если вводишь все время 2, то что ты ждешь?

[Claster]

Всё всем спасбо разобрался в ошибках своих!!!!!!!! виноват ЧАЙНИКККККККККККК