Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
Maria18207
0 / 0 / 0
Регистрация: 18.02.2013
Сообщений: 7
1

Найти сумму элементов массива, расположенных после максимального элемента

27.02.2013, 18:26. Просмотров 1335. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста с програм. кодом. В прошлой теме код был немного не тот, т.к. он для 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
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.02.2013, 18:26
Ответы с готовыми решениями:

Найти сумму элементов массива, расположенных после максимального элемента
Ввести одномерный массив x = {-1.5, 0, 0.8, 2.2, 3, 0.5, 0.1}. Переписать элементы массива,...

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

Определить сумму элементов массива,расположенных после минимального по модулю значения
Определить сумму элементов массива,расположенных после минимального по модулю значения

Заменить значения элементов матрицы, расположенных на главной диагонали, значением её максимального элемента
Заменить значения элементов матрицы, расположенных на главной диагонали, значением её максимального...

найти число, которое меньше максимального элемента массива, но больше всех других его элементов
В массиве A найти второе по значению число (т.е. вывести на печать число, которое меньше...

1
The trick
Модератор
8087 / 2803 / 776
Регистрация: 22.02.2013
Сообщений: 3,952
Записей в блоге: 77
27.02.2013, 19:32 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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
Не?
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.02.2013, 19:32

Найти произведение элементов массива В(12), стоящих после минимального элемента
Найти произведение элементов массива В(12), стоящих после минимального элемента. Помогите

Найти разность максимального и последнего элемента массива
Дан массив. Найти разность максимального и последнего элемента массива

Как найти номер максимального элемента массива
В одномерном массиве, который состоит из эн действительных элементов, вычислить: 1) номер...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.