Пример решения задачи № 1. «Сумма ряда»

Постановка задачи

Вычислить значение суммы ряда S. Сравнить полученное значение с точным решением Y, вычислив абсолютную и относительную погрешности.

На рисунке 1 показана схема алгоритма решения задачи, а на рисунке 2 - вариант реализации формы приложения.

Рисунок 1. Схема алгоритма

Исходный текст программы

Private Sub Command1_Click()
  n = Val(Text1)
  x = Val(Text2)
  S = 0
  f = 1
  For k = 2 To n
    f = f * k
    S = S + x ^ k / f
  Next
  Y = (Exp(x) - Exp(-x)) / (1 + 1 / 3) - 1
  A = Y - S
  D = A / Y * 100
  Text3 = Format(S, "0.00000")
  Text4 = Format(Y, "0.00000")
  Text5 = Format(A, "0.00000000")
  Text6 = Format(D, "0.00000000")
End Sub
Private Sub Command2_Click()
  End
End Sub

Для ввода значений переменных n и x, а также вывода результатов используются текстовые поля (объект TextBox).

Рисунок 2. Экранная форма программы с примером решения задачи

Пользователь, раз уж ты добрался до этой строки, ты нашёл тут что-то интересное или полезное для себя. Надеюсь, ты просматривал сайт в браузере Firefox, который один правильно отражает формулы, встречающиеся на страницах. Если тебе понравился контент, помоги сайту материально. Отключи, пожалуйста, блокираторы рекламы и нажми на пару баннеров вверху страницы. Это тебе ничего не будет стоить, увидишь ты только то, что уже искал или ищешь, а сайту ты поможешь оставаться на плаву.

Пользуйся браузерами Yandex, Firefox, Opera, Edge - они правильно отражают формулы, встречающиеся на страницах, как в десктопном, так и в мобильном вариантах.

Отключи на минуту блокираторы рекламы и нажми на пару баннеров на странице. Тебе ничего не будет стоить, а сайту поможешь материально.