0 / 0 / 0
Регистрация: 13.10.2013
Сообщений: 6
1

Написать рекурсивную функцию вычисления цифрового корня натурального числа

13.10.2013, 15:41. Показов 1408. Ответов 4
Метки нет (Все метки)

Написать рекурсивную функцию вычисления цифрового корня натурального числа (если сложить все цифры этого числа, затем все цифры найденной суммы и повторять этот процесс, то в результате будет однозначное число (цифра), которое и называется цифровым корнем данного числа);
помогите как реализовать!!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.10.2013, 15:41
Ответы с готовыми решениями:

Написать рекурсивную функцию нахождения цифрового корня натурального числа
*Написать рекурсивную функцию нахождения цифрового корня натурального числа. Цифровой корень...

Написать рекурсивную функцию нахождения цифрового корня натурального числа
Написать рекурсивную функцию нахождения цифрового корня натурального числа. Цифровой корень данного...

Написать рекурсивную функцию нахождения цифрового корня натурального числа
Написать рекурсивную функцию нахождения цифрового корня натурального числа. Цифровой корень данного...

Написать рекурсивную функцию нахождения цифрового корня натурального числа
Написать рекурсивную функцию нахождения цифрового корня нату¬рального числа. Цифровой корень...

4
78 / 64 / 5
Регистрация: 25.03.2012
Сообщений: 71
13.10.2013, 16:09 2
Haskell
1
f x = foldr1 (\a b -> f $ a + b) $ map (read . (:[])) $ show x
2
Модератор
Эксперт функциональных языков программированияЭксперт Python
33769 / 18809 / 3965
Регистрация: 12.02.2012
Сообщений: 31,547
Записей в блоге: 12
13.10.2013, 19:09 3
calabi-yau, но где же рекурсия?

Вот рекурсивное решение:

Haskell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
-- сумма цифр
sumDig :: Int -> Int
sumDig n | (n < 10) = n
         | otherwise = (n `mod` 10) + sumDig (n `div` 10)
-- цифровой корень
nroot :: Int -> Int
nroot n | (sd < 10) = sd
        | otherwise = nroot sd
          where sd = sumDig n
 
-- проверка
 
Main> nroot 123
6
 
Main> nroot 9999
9
1
78 / 64 / 5
Регистрация: 25.03.2012
Сообщений: 71
13.10.2013, 21:49 4
Цитата Сообщение от Catstail Посмотреть сообщение
calabi-yau, но где же рекурсия?
я совсем рассеянный стал, не заметил.
0
helter
14.10.2013, 02:17     Написать рекурсивную функцию вычисления цифрового корня натурального числа
  #5

Не по теме:

ОМГ, "цыфровой корень"... Это называется "остаток от деления на девять", только вместо 0 берётся 9.

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.10.2013, 02:17

Написать рекурсивную функцию нахождения цифрового корня натурального числа
Написать рекурсивную функцию нахождения цифрового корня натурального числа. Цифровой корень данного...

Составьте программу вычисления цифрового корня натурального числа К
Составьте программу вычисления цифрового корня натурального числа К. Он находится так. Складываются...

Задача паскаль - вычисления цифрового корня натурального числа K
составьте программу вычисления цифрового корня натурального числа K. (если я не ошибаюсь он...

Написать рекурсивную функцию вычисления количества цифр натурального числа
3) Написать рекурсивную функцию вычисления количества цифр натурального числа. нужно решить в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru