Вычислить сумму члено ряда, элемент которого определяется как 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д