Напечатать значение суммы и число членов ряда, вошедших в сумму

@вася... · Регистрация: 28.03.2010

Вычислить на ЭВМ значение суммы членов бесконечного ряда с заданной точностью . Напечатать значение суммы и число членов ряда, вошедших в сумму. В соответствии с вариантом составить блок-схему алгоритма к задаче и составить программу на языке программирования Visual Basic 6.0.

значение=0.7
точность вычисления=10^-4

@аналитика · 31.03.2010, 20:35

Visual Basic

'Option Explicit
 
Private Sub Form_click()
   Const x  As Double = 0.7
   Const acc  As Double = 10 ^ (-4)
   Dim k As Integer
   
   Caption = "ch(" & x & ") = " & Format(ch(x), "0.000000")
   Print " k", "Част. сумма", "Остаток"
   Do
      a = x ^ (2 * k) / f(2 * k)
      s = s + a
      d = ch(x) - s
      Print k, Format(s, "0.000000"), Format(d, "0.000000")
      If Abs(d) < acc Then Exit Do
      k = k + 1
   Loop
   
End Sub
 
Function ch(x As Double) 'гиперболический косинус
   ch = (Exp(x) + Exp(-x)) / 2
End Function
 
Function f(n As Integer)
   If n = 0 Then f = 1: Exit Function
   
   f = f(n - 1) * n
End Function

@вася... · 31.03.2010, 20:55 **[ТС]**

ну последнее...

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

@вася... 0 / 0 / 0 Регистрация: 28.03.2010 Сообщений: 11
		1
	Напечатать значение суммы и число членов ряда, вошедших в сумму 31.03.2010, 19:51. Показов 2682. Ответов 2 Метки нет (Все метки) Вычислить на ЭВМ значение суммы членов бесконечного ряда с заданной точностью . Напечатать значение суммы и число членов ряда, вошедших в сумму. В соответствии с вариантом составить блок-схему алгоритма к задаче и составить программу на языке программирования Visual Basic 6.0. значение=0.7 точность вычисления=10^-4 Изображения 0

@вася... 0 / 0 / 0 Регистрация: 28.03.2010 Сообщений: 11
	31.03.2010, 20:55 [ТС]	3
	ну последнее... Двумерный массив. Дана действительная матрица размером , все элементы которой различны. В каждой строке выбирается элемент с наименьшим значением, а затем среди этих чисел выбирается наибольшее. Указать индексы этого элемента. 0

Опции темы

Напечатать значение суммы и число членов ряда, вошедших в сумму

Решение