Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.69/35: Рейтинг темы: голосов - 35, средняя оценка - 4.69
0 / 0 / 0
Регистрация: 28.12.2010
Сообщений: 36
1

Написать программу вычисления факториала числа n, используя рекурсивную подпрограмму

11.04.2012, 00:49. Показов 6391. Ответов 4
Метки нет (Все метки)

Помогите решить задачи, очень нужно(
1. Написать программу вычисления факториала числа n, используя
рекурсивную подпрограмму.
2. Написать программу вычисления n-го числа Фибоначчи, используя
рекурсивный алгоритм.
3. С помощью рекурсивной функции получить сумму n элементов
последовательности 1+2+3+…+n

Заранее большое спасибо ^^
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.04.2012, 00:49
Ответы с готовыми решениями:

Разработать рекурсивную подпрограмму вычисления двойного факториала числа
Разработайте рекурсивную подпрограмму вычисления двойного факториала числа 2*(m-2). Ребят...

Подпрограммы.Вычислить сумму 1!+2!+3!+…+n!, используя подпрограмму вычисления факториала числа
Помогите пожалуйста решить задачу. Вычислить сумму 1!+2!+3!+…+n!, используя подпрограмму...

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

Написать рекурсивную функцию для вычисления факториала натурального числа
Решить задачу в консольном режиме: Написать рекурсивную функцию для вычисления факториала...

4
670 / 163 / 22
Регистрация: 27.01.2012
Сообщений: 372
11.04.2012, 09:20 2
Цитата Сообщение от BDL3 Посмотреть сообщение
3. С помощью рекурсивной функции получить сумму n элементов
последовательности 1+2+3+…+n
Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
n = InputBox("n")
b = s(n)
Print b
End Sub
Function s(ByVal x As Integer) As Integer
If x > 0 Then
 s = s(x - 1) + x
End If
End Function
Добавлено через 8 минут
Цитата Сообщение от BDL3 Посмотреть сообщение
1. Написать программу вычисления факториала числа n, используя
рекурсивную подпрограмму.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Command1_Click()
n = InputBox("n")
b = f(n)
Print b
End Sub
Function f(ByVal x As Long) As Long
If f = 0 Then f = 1
If x > 1 Then
 f = f(x - 1) * x
End If
End Function
1
0 / 0 / 0
Регистрация: 28.12.2010
Сообщений: 36
11.04.2012, 11:38  [ТС] 3
спасибо большое)
0
15019 / 6347 / 1725
Регистрация: 24.09.2011
Сообщений: 9,976
11.04.2012, 13:02 4
И что, Print b компилится в VBA? О_о
Факториал лучше так:
Visual Basic
1
2
3
Function f(ByVal x As Long) As Double
If x > 1 Then f = f(x - 1) * x Else f = 1
End Function
2
670 / 163 / 22
Регистрация: 27.01.2012
Сообщений: 372
11.04.2012, 17:33 5
Цитата Сообщение от Казанский Посмотреть сообщение
И что, Print b компилится в VBA?
Не а - надо поменять:
Visual Basic
1
msgbox b
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.04.2012, 17:33

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Напишите программу вычисления суммы: 1! + 2! + 3! + … + n!, используя функцию вычисления факториала числа k
Напишите программу вычисления суммы: 1! + 2! + 3! + … + n!, используя функцию вычисления факториала...

Напишите программу вычисления суммы: 1! + 2! + 3! + … + n!, используя функцию вычисления факториала числа k.
Напишите программу вычисления суммы: 1! + 2! + 3! + … + n!, используя функцию вычисления факториала...

Напишите программу вычисления суммы: 1! + 2! + 3! + … + n!, используя функцию вычисления факториала числа k
Напишите программу вычисления суммы: 1! + 2! + 3! + … + n!, используя функцию вычисления факториала...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.