Рекурсивная фунция в Паскале

[bwitcher]

Здравствуйте!
Напишите программу вычисления N-го члена последовательности, начинающейся с единицы, в которой каждый следующий член равен сумме квадратов всех предыдущих.
Может кто-нибудь помочь? Решать нужно с помощью рекурсивных функций. Заранее спасибо!

[bwitcher]

Написать рекурсивную функцию для вычисления количества цифр натурального числа.
Вот еще одна. Кто чем сможет, буду очень благодарен...

[Asker13]

1)

function RecSum(n: integer): integer;
begin
  if n > 1 then RecSum := Sqr(n) + Sqr(RecSum(n-1)) else RecSum := 1;
end;

2)

function RecNum(N: integer): integer;
begin
  if n <> 0 then RecNum := 1 + RecNum(N div 10);
end;

Пример использования:

var
  N: integer;

function RecNum(N: integer): integer;
begin
  if n <> 0 then RecNum := 1 + RecNum(N div 10);
end;


begin
  ReadLn(N);
  WriteLn(RecNum(N));
  ReadLn;
end.

[Serge_Bliznykov]

Asker13, очень хорошо!

позволю чуток подправить код..
для функций (в том числе и для рекурсивных) ВСЕГДА надо предусматритривать возвращаемое значение.
поэтому лучше так:

function RecNum(N: integer): integer;
begin
  if n > 0 then RecNum := 1 + RecNum(N div 10)
  else RecNum := 0;
end;

[bwitcher]

Спасибо, ребята, вам огромное! Чуток позже буду смотреть

Не работают ни 1-ая, ни 2-ая. Кто-нибудь мог бы помочь? Напишите, пжл, первую полностью) А вторую нужно вообще исправлять...

Нет, все отлично, 2-ая работает. Прошу прощения, ребят. А вот с первой кто-нить подскажет?

[Asker13]

Извините, немного ошибся.

function RecSum(n: integer): integer;
begin
  if n > 1 then RecSum := Sqr(n) + RecSum(n-1) else RecSum := 1;
end;

[bwitcher]

А не могли бы вы полную программу написать? 1-ую)

[Asker13]

program _1;
var
  N: integer;
function RecSum(n: integer): integer;
begin
  if n > 1 then RecSum := Sqr(n) + RecSum(n-1) else RecSum := 1;
end;

begin
  ReadLn(N);
  WriteLn(RecSum(N));
  ReadLn;
end.

Тут писать нечего.

[bwitcher]

Да, я тоже так прописал. Я просто вот в чем не уверен: n точно нужно вводить с клавиатуры? Задание же вроде, что ее нужно вычислить???

[Asker13]

Число N вы вводите с клавиатуры, но программа высчитывает-то сумму квадратов чисел от 1 до N. К примеру, вы ввели 4. Программа считает от 1 до 4: 4^2 + 3^2 + 2^2 + 1.