Программа с факториалами

@noizer__ · Регистрация: 04.04.2017

Студворк — интернет-сервис помощи студентам

Помогите, пожалуйста, написать программу с факториалами

(x*(4-x)/(4!))-(x^5*(8-x)/(8!))+(x^9*(12-x)/(12!))-...+-(x^4i-3(4*i-x)/(4i!))+-...

Visual Basic

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Dim E As Single
Dim i As Integer
Dim s As Single
Dim f As Long
Dim x As Single
E = InputBox("ââ E=")
x = InputBox(" x=")
s = 0
i = 
f = 
Do While

Это всё что понимаю

@MyExcel_17 · 25.04.2017, 12:14

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

(x*(4-x)/(4!))-(x^5*(8-x)/(8!))+(x^9*(12-x)/(12!))-...+-(x^4i-3(4*i-x)/(4i!))+-...

noizer__, много неясного и ошибок в условиях.

Например, непонятно: это знакопеременный ряд или нет? Также нельзя понять, что входит в степень.
Набросал код на скорую руку. Он выдаёт: "Run-time error ‘9’. Subscript out of range" (элементы вне диапазона).

Если кто понимает, то пожалуйста исправьте мои ошибки в коде ниже.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub NoizerFact()
Dim a&, x%, i%, Y(), n&
'--------------------
ActiveSheet.UsedRange.EntireRow.Delete
Cells.Clear
a = f(n)
n = 4 * i
x = 2
s = 0
For i = 1 To 5
    s = s + Y(x, i, a)
Next
Cells(1, 1) = a
Cells(2, 1) = Y
End Sub
Function Y(a&, x%, i%) As Double
Y = (x ^ (4 * i - 3) * (4 * i - x) / (a))
End Function
Function f(ByVal n As Long) As Long
If f = 0 Then f = 1
If i > 1 Then
 f = f(n - 1) * n
 End If
End Function

@MyExcel_17 · 25.04.2017, 14:05

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

(x*(4-x)/(4!))-(x^5*(8-x)/(8!))+(x^9*(12-x)/(12!))-...+-(x^4i-3(4*i-x)/(4i!))+-...

noizer__, ради любопытства решил проверить.
Пояснение, уточнил Подскажите правильную запись и трактовку формулы

Для первых четырёх членов получится: Sum[(-1)^(i + 1) * x^(4i - 3) * (4i - 3)/(4i)!, i=0..3]
http://www.wolframalpha.com/in... %3D0..3%5D

@MyExcel_17 · 25.04.2017, 21:10

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

ради любопытства решил проверить

Неужели никто не знает?
Никак не могу объяснить Эксель, что такое факториал. Помогите.

Сумма ряда из четырёх членов должна быть равной, по Вольфраму: http://www.wolframalpha.com/in... %3D0..3%5D
188 929 / 415 800 = 0,45437469937469937469937469937469937469 9374699374699374699...

На картинках: как у меня получается и как у Вольфрама.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub NoizerFact()
Dim A&, x&, i&, Y#, n&
'--------------------
ActiveSheet.UsedRange.EntireRow.Delete
Cells.Clear
A = f(n)
n = 4 * i
x = 2
 
S = 0
For i = 0 To 3
    Y = (-1) ^ (i + 1) * x ^ (4 * i - 3) * (4 * i - x) / A
    S = S + Y
Next
Cells(1, 5) = A
Cells(1, 1) = "  Значение факториала  A = "
Cells(3, 5) = Y
Cells(3, 1) = "     Значение функции  Y = "
Cells(5, 5) = S
Cells(5, 1) = "     Общая сумма ряда  S = "
End Sub
Function f(ByVal n As Long) As Long
n = 4 * i
If f = 0 Then f = 1
If n > 1 Then
  f = f(n - 1) * n
  End If
End Function

@MyExcel_17 · 26.04.2017, 01:29

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

Никак не могу объяснить Эксель, что такое факториал

Ещё не могу объяснить какая сумма мне нужна.
Эксель считает что-то несуразное.

Пытаюсь вычислить сумму ряда вручную
N! = 1 = > N = 0
N! = 24 = > N = 4
N! = 40 320 = > N = 8
N! = 479001600 = > N = 12
Тогда
Y = (-1) ^ (0 + 1) * 2 ^ (4 *0 - 3) * (4 * 0 - 2) /1 = 1/4 = 0,25
Y = (-1) ^ (1 + 1) * 2 ^ (4 *1 - 3) * (4 * 1 - 2) / 24 = 4/24 = 1/6
Y = (-1) ^ (2 + 1) * 2 ^ (4 *2 - 3) * (4 * 2 - 2) / 40320 = -1/210
Y = (-1) ^ (3 + 1) * 2 ^ (4 *3 - 3) * (4 * 3 - 2) / 479001600 = 1/93555

1/4 + 1/6 - 1/210 + 1/93555 = 22021/53460 = 0,411915…
Проверяю на Вольфраме, всё верно.
Sum[(-1)^(i + 1) * 2^(4i - 3) * (4i - 2)/(4i)!, i=0..3] http://www.wolframalpha.com/in... %3D0..3%5D
Картинки ниже.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub NoizerFact()
Dim x%, i%, Y&, n#, Z#, S#
'--------------------
ActiveSheet.UsedRange.EntireRow.Delete
Cells.Clear
x = 2
For i = 1 To 3
  Y = (-1) ^ (i + 1) * x ^ (4 * i - 3) * (4 * i - x)
Next i
 
S = 0
For n = 0 To 12 Step 4
    Z = Y / f(n)
    S = S + Z
Next n
Cells(1, 5) = f(n)
Cells(1, 1) = "  Значение факториала  f(n) = "
Cells(3, 5) = Y
Cells(3, 1) = "     Значение функции  Y = "
Cells(5, 5) = Z
Cells(5, 1) = "     Значение функции  Z = "
Cells(7, 5) = S
Cells(7, 1) = "     Общая сумма ряда  S = "
End Sub
Function f(ByVal n As Double) As Double
If f = 0 Then f = 1
If n > 1 Then
  f = f(n - 1) * n
  End If
End Function

@MyExcel_17 · 26.04.2017, 22:25

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

Помогите, пожалуйста, написать программу с факториалами

noizer__, пляшите, дождались! И года не прошло.
Можно значительно сократить код, возможно сами догадаетесь, как это сделать.
Получился громоздкий код из-за того, что отслеживал все числа и результаты.
Почти половина из них не нужна.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub NoizerFact()
Dim x%, i%, Y As Single, t#, v#
Dim Z#, S#, k&, q&, r As Single
'--------------------
ActiveSheet.UsedRange.EntireRow.Delete
Cells.Clear
x = 2
k = 0: q = 0: r = 0: t = 0: v = 0: S = 0
For i = 0 To 4 Step 1
  If i >= 0 And f(0) = f(1) Then
  Y = (-1) ^ (i + 1) * x ^ (4 * i - 3) * (4 * i - x)
  Z = Y / f(4 * i)
  Range("D5").Offset(, k) = Y
  Range("D1").Offset(, q) = i
  Range("D7").Offset(, r) = Z
  Range("D9").Offset(, t) = S
  Range("D3").Offset(, v) = f(4 * i)
  k = k + 1
  q = q + 1
  r = r + 1
  S = S + Z
  v = v + 1
  End If
Next i
Cells(1, 1) = "   Значение аргумента  i = "
Cells(3, 1) = " Значение факториала  f(4 * i) = "
Cells(5, 1) = "     Значение функции  Y = "
Cells(7, 1) = "     Значение функции  Z = "
Cells(9, 1) = "     Общая сумма ряда  S = "
End Sub
Function f(ByVal i As Double) As Double
If f = 0 Then f = 1
If i > 1 Then
  f = f(i - 1) * i
  End If
End Function

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .