Составить рекурсивную функцию, которая находит цифровой корень целого числа.

[Feran]

Составить рекурсивную функцию, которая находит цифровой корень целого числа. Цифровой корень находится суммой через сумму цифр числа к тому моменту, пока эта сумма сама не станет цифрой. Например, для числа 9999999 цифровой корень находится так:
9+9+9+9+9+9+9=63
6+3=9.

Программа, которая решает эту задачу через циклы у меня есть. Не могу сделать из неё рекурсивную. Прошу помощи

Program Example_18;
Var n, k, s : Longint;
Begin
Writeln('Введите число');
Readln(n);
s:=n;
While s>9 Do
Begin
k:=s; s:=0;
Repeat
s:=s+k Mod 10;
k:=k Div 10;
Until k=0;
End;
Writeln('цифровой корень числа ',n,' равен ',s);
End.

[andrewpalkin]

Замени всю вот эту часть на рекурсивную функцию .

s:=n;
While s>9 Do
Begin
k:=s; s:=0;
Repeat
s:=s+k Mod 10;
k:=k Div 10;
Until k=0;
End;

У тебя должно быть что то вроде такого :

s:= func (n);

сама функция примерно такая , просто напиши его на твоем языке программирования , у меня просто его нет на компе

func(n)
{
   if (n == 0)
     return 0;

   return (n Mod 10) + func(n Div 10);
}

[Feran]

Как там было сказано ? "Чтобы понять рекурсию нужно понять рекурсию"? А я раньше не понимал почему её недолюбливают

Program Example_18;
uses crt;
Var n, k, s : Longint;
function func(r:Longint):Longint;
begin
     if r=0 then func:=0
     else func:=(r mod 10)+ func(r div 10);
end;
Begin
clrscr;
Writeln('Vvedite chislo');
Readln(n);
{s:=n;}
{While s>9 Do}
{Begin
k:=s; s:=0;}
s:=func(n);
{End;}
Writeln('tsifrovoi koren shicla',n,' raven ',s);
readkey;
End.

начудил я с именем переменных, теперь исправил. Прога работает но не правильно

[andrewpalkin]

попробуй вот так :

Program Example_18;
uses crt;
Var n, k, s : Longint;
function func(r:Longint):Longint;
begin
     if r=0 then func:=0
     else func:=(r mod 10)+ func(n div 10);
end;
Begin
clrscr;
Writeln('Vvedite chislo');
Readln(n);
s:=0;
s:=func(n);
Writeln('tsifrovoi koren shicla',n,' raven ',s);
readkey;
End.

Вот только я не уверен насчет правильного количества End

[Feran]

Запустил код всё равно не так выполняется

Program Example_18;
uses crt;
Var n, k, s : Longint;
function func(r:Longint):Longint;
begin
     if r=0 then func:=0
     else func:=(r mod 10)+ func(r div 10);
end;
Begin
clrscr;
Writeln('Vvedite chislo');
Readln(n);
s:=0;
repeat { ошибка в каком-то условии и сейчас раскажу с чего я это взял}
s:=func(n); { обычный вызов функции. Я ввожу значения 34697 он выдаёт 29, т.е он сложил все цифры и это правильно, но потом выходит из цикла}
until s>9;
k:=func(s); { Ещё один вызов функции, теперь входным данным является 29 и результатом является 11 что тоже правильно. Логично будет если сделать третий вызов функции то при вводимом значении 11 ответ будет 2 что является правильным. 
Имеем правильно выполнимую задачу но ошибку в условии продолжения рекурсии}
Writeln('tsifrovoi koren shicla ',n,' raven ',k);
readkey;
End.

[andrewpalkin]

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

Запустил код всё равно не так выполняется

Program Example_18;
uses crt;
Var n, k, s : Longint;
function func(r:Longint):Longint;
begin
     if r=0 then func:=0
     else func:=(r mod 10)+ func(r div 10);
end;
Begin
clrscr;
Writeln('Vvedite chislo');
Readln(n);
s:=0;
repeat { ошибка в каком-то условии и сейчас раскажу с чего я это взял}
s:=func(n); { обычный вызов функции. Я ввожу значения 34697 он выдаёт 29, т.е он сложил все цифры и это правильно, но потом выходит из цикла}
until s>9;
k:=func(s); { Ещё один вызов функции, теперь входным данным является 29 и результатом является 11 что тоже правильно. Логично будет если сделать третий вызов функции то при вводимом значении 11 ответ будет 2 что является правильным. 
Имеем правильно выполнимую задачу но ошибку в условии продолжения рекурсии}
Writeln('tsifrovoi koren shicla ',n,' raven ',k);
readkey;
End.

Это не тот код , который я тебе написал ... Я не пойму , какую тебе сумму надо найти тогда , зачем ты по несколько раз запускаешь рекурсивную функцию , почему ты не можешь просто взять код , который я тебе написал и запустить его ???

[andrewpalkin]

теперь понял , что тебе надо . Тебе надо еще одну рекурсивную функцию просто .

[andrewpalkin]

Попробуй вот это :

Program Example_18;
uses crt;
Var n, k, s : Longint;

function fun(t:Longint):Longint;
begin
     if r=0 then func:=0
     else func:=(t mod 10)+ func(t div 10);
end;

function func(r:Longint):Longint;
begin
     if r<10 then func:=r
     else func:= func(fun(r));
end;

Begin
clrscr;
Writeln('Vvedite chislo');
Readln(n);
s:=0;
s:=func(n);
Writeln('tsifrovoi koren shicla',n,' raven ',s);
readkey;
End.

[Feran]

Сначала я написал код с ошибками в переменных и выложил его в форум. Вы взяли этот код с моими ошибками и работали с ним. Ваша программа работает, но ответ не сходится с правильным.

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

[andrewpalkin]

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

Сначала я написал код с ошибками в переменных и выложил его в форум. Вы взяли этот код с моими ошибками и работали с ним. Ваша программа работает, но ответ не сходится с правильным.

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

Посмотри мое последнее сообщение , я там написал рекурсивную функцию . Должно все считать ,что тебе надо . Просто сперва не понял до конца условие . Если будет работать , не откажусь от плюсика