Вычислить сумму члено ряда, элемент которого определяется как x/i! с точностью E - VB

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток. Кто нибудь может написать программу на visual basic? 1.Программа печатующая заданное число N первых чисел одномерного массива длины M, по пять чисел в строке. 2. Вычислить сумму члено ряда, элемент которого определяется как x/i! с точностью E. Если можно пришлите саму программу и код скопированный их нее.(почему то Visual Basic отказывается работать на моей системе,возможно руки кривоваты ) Заранее спасибо

Решение задачи: «Вычислить сумму члено ряда, элемент которого определяется как x/i! с точностью E»

textual
Листинг программы
Option Explicit
Private Sub Command1_Click()
Dim A() As Double
Dim i As Integer, j As Integer, k As Integer, l As Integer, N As Integer, M As Integer
Dim E As String
Randomize 'Иницилизация генератора случайных чисел
Cls       'Очищаем форму
i = 0: j = 0: k = 0
M = InputBox("Введите размер массива", , 12)
N = InputBox("Сколько чисел печатать?", , 12)
E = InputBox("Введите точность", , 4)
ReDim A(M)
For i = 1 To M
     A(i) = Rnd * 10 'Заполняем массив случайными числами
     A(i) = Round(A(i), E) ' округляем с точностью Е
     Print A(i); ;
Next i
Print
Print
For i = 1 To N / 5
    For j = 1 To 5
        Print A(j + ((i - 1) * 5)); ;
    Next j
    Print
Next i
For k = 1 To N Mod 5
     Print A(Int(M / 5) * 5 + (k));
Next k
End Sub
 
Private Sub Command2_Click()
Dim A() As Double
Dim i As Integer, sum As Double, X As Double, M As Integer
Dim E As String
Randomize 'Иницилизация генератора случайных чисел
Cls       'Очищаем форму
i = 0: sum = 0
M = InputBox("Введите размер массива", , 15)
X = InputBox("Введите Х", , 10)
E = InputBox("Введите точность Е", , 3)
ReDim A(M)
For i = 1 To M
     A(i) = (Round((X / i), E)) 'Заполняем массив
     Print A(i); ;
     sum = sum + A(i)
Next i
Print
Print "Сумма ряда = "; Round((sum), E)
 
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.083 из 5
Похожие ответы