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

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

09.04.2013, 14:09. Просмотров 871. Ответов 2
Метки нет (Все метки)

Определить сумму элементов массива,расположенных после минимального по модулю значения
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.04.2013, 14:09
Ответы с готовыми решениями:

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

Найти сумму элементов массива, значения которых по модулю меньше 10
Напишите плисс легкую программку, я просто изучал паскаль, а не basic. 1. Дан массив целых чисел...

Найти сумму элементов массива, расположенных после максимального элемента
Помогите пожалуйста с програм. кодом. В прошлой теме код был немного не тот, т.к. он для Visual...

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

Определить сумму и количество элементов массива, расположенных на четных местах
Дано целочисленный массив Х, содержащий n = (n = 25) элементов: ...

2
The trick
Модератор
8087 / 2803 / 776
Регистрация: 22.02.2013
Сообщений: 3,949
Записей в блоге: 77
09.04.2013, 19:25 2
Лучший ответ Сообщение было отмечено как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Form_Load()
    Dim Ar() As Long, N As Long
    Dim Min As Long, Index As Long, Sum As Long
    ReDim Ar(Int(Rnd * 51) + 50)
    For N = 0 To UBound(Ar)
        Ar(N) = Int(Rnd * 2001) - 1000
    Next
    ' Определяем минимальный по модулю
    Min = Abs(Ar(0)): Index = 0
    For N = 1 To UBound(Ar)
        If Abs(Ar(N)) < Min Then Min = Abs(Ar(N)): Index = N
    Next
    ' Определяем сумму
    Sum = 0
    For N = Index + 1 To UBound(Ar)
        Sum = Sum + Ar(N)
    Next
    MsgBox "Минимальный по модулю эл-т = " & Min & " (" & Index & ")" & _
           vbNewLine & "Сумма = " & Sum
End Sub
3
Казанский
14905 / 6308 / 1719
Регистрация: 24.09.2011
Сообщений: 9,977
09.04.2013, 19:40 3
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Можно в одном цикле Строки 9-17
Visual Basic
1
2
3
4
5
6
7
    Min = Abs(Ar(0))
    For N = 1 To UBound(Ar)
        If Abs(Ar(N)) < Min Then Min = Abs(Ar(N)): Sum = 0
    Else
        Sum = Sum + Ar(N)
    End If            
    Next
Если минимумов несколько, этот алгоритм посчитает сумму элементов после первого минимума.
Чтобы посчитать сумму после последнего минимума, надо написать If Abs(Ar(N)) <= Min .
2
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.04.2013, 19:40

Определить сумму элементов массива, значения которых равны заданному числу M
Дан одномерный массив из N элементов. 1.Определить сумму элементов, значения которых равны...

Найти сумму модулей элементов массива, расположенных после минимального по модулю
Добрый вечер! :) Столкнулся с непреодолимой для себя задачей на данный момент. Очень нужна ваша...

Найти сумму модулей элементов массива, расположенных после минимального по модулю элемента
в одномерном массиве {3.24, -7.16, 2.28, -0.16, -3.22, 7.14, 2.88, -3.20, 0.99, -4.15} найти сумму...


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

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

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