Составить проект программы для заполнения элементов массива значениями элементов последовательности - VB
Формулировка задачи:
Элементы последовательности вычисляются по правилу
А = х^n *sin(k)/e^k , k = 1,2,3, ,7. Составить проект программы для заполнения элементов массива значениями элементов последовательности. Заменить минимальный элемент массива числом 999 и вывести полученный массив на форму, а также вычислить количество отрицательных элементов массива. Значение величины x ввести из текстового окна.
Решение задачи: «Составить проект программы для заполнения элементов массива значениями элементов последовательности»
textual
Листинг программы
Option Explicit Dim a() As Single Dim i As Integer, j As Integer, k As Integer, n As Integer, x As Integer Const e = 2.718282 Dim kol_otr As Integer Dim min As Single Private Sub Command1_Click() Cls n = InputBox("Enter n", , 7) x = Val(Text1.Text) If Text1.Text = "" Then MsgBox ("Введите X") ReDim a(n) ' Размеры массива А - n-строк, m-столбцов For k = 1 To n a(k) = x ^ n * Sin(k) / e ^ k 'Заполняем массив Print a(k); vbTab Next k Print vbTab min = a(1) For i = 1 To n If min > a(i) Then min = a(i) If a(i) < 0 Then kol_otr = kol_otr + 1 Next i For i = 1 To n If a(i) = min Then a(i) = 999 Print a(i); vbTab Next i Print "Минимальный элемент ="; min Print "Количество отрицательных ="; kol_otr; End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д