Найти сумму элементов массива, расположенных после максимального элемента - VB (170602)
Формулировка задачи:
Помогите пожалуйста с програм. кодом. В прошлой теме код был немного не тот, т.к. он для Visual Basic 6.0, а мне нужен код для Visual Basic Studio 2008
Ввести одномерный массив x = {-1.5, 0, 0.8, 2.2, 3, 0.5, 0.1}.
Переписать элементы массива, принадлежащие отрезку [-1;1], в массив y и найти сумму элементов, расположенных после максимального элемента в массиве y.
код по программе Visual Basic Studio 2008
Решение задачи: «Найти сумму элементов массива, расположенных после максимального элемента»
textual
Листинг программы
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim X() As Double = {-1.5, 0, 0.8, 2.2, 3, 0.5, 0.1} Dim Y() As Double Dim N, B As Long, Max As Double Dim Sum As Double For N = 0 To X.GetUpperBound(0) If X(N) >= -1 And X(N) <= 1 Then If Y Is Nothing Then ReDim Y(0) Else ReDim Preserve Y(Y.Count) Y(Y.Count - 1) = X(N) End If Next Max = Y(0) For N = 1 To Y.GetUpperBound(0) If Y(N) > Max Then Max = Y(N) : B = N Next Sum = 0 For N = B To Y.GetUpperBound(0) Sum = Sum + Y(N) Next MessageBox.Show("Максимальный элемент = " & Max & vbNewLine & _ "Индекс максимального элемента = " & B & vbNewLine & _ "Сумма = " & Sum) End Sub End Class
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д