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

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

30.01.2014, 01:18. Просмотров 373. Ответов 0
Метки нет (Все метки)

Доброго времени суток, уважаемые.

Есть задача:
Найти суммы положительных элементов строк и записать их в одномерный массив. Вывести оба массива и среднее арифметическое одномерного массива.

На начальном этапе разработки, получилась вот такая Схема Алгоритма
Схема примитивная и не по ГОСТу Вероятно, даже не правильная.

Люди добрые,помогите с кодом программы, а то что то у меня не сходится.

Должно получится вот такое:

PureBasic
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Dim __As _______, __As _______, ____As _______
Private Sub Command1_Click()
Dim __As _______, __As ______, __As ______
With CommonDialog1
.Action = ___
__= .________
End With
Open __For Input As #1
Input #1, __, __
With MSFlexGrid1
.Cols = ______
.Rows = ______
ReDim __(__ To __, __ To __) As _______
For __ = __ To __
.Col = __
.Row = __
.Text = _____(__)
Next __
For __ = __ To __
.Row = __
.Col = __
.Text = ____(__)
Next __
For __ = __ To __
For __ = __ To __
.Row = __
.Col = __
Input #1, ______
.Text = CStr(______)
Next __
Next __
End With
Close #1
End Sub
Private Sub Command2_Click()
Dim __As _______, __As _______, ____As ______, ____As ______
ReDim __(__ To __) As ______
For __= __To __
____ = __
For __=__ To __
If ______ __ __ Then ___ = ____ + ______
Next __
Next __
___ = __
For __ = __ To __
____ = ____+ ___
Next __
Text1._____ = _____(____ / ___)
For i = __ To __
List1.__________(_____(____))
Next __
End Sub
Private Sub Command3_Click()
_____
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.01.2014, 01:18
Ответы с готовыми решениями:

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

Изменить исходный одномерный массив путем деления его положительных элементов на свои индексы
Уж извините,что беспокою,но не могли бы вы мне помочь с заданием-просто в Visual Basic я никакой,а...

Найти наибольшие элементы каждой строки матрицы и записать их в одномерный массив Y
Помогите пожалуйста! Очень нужна ваша помощь! Найти наибольшие элементы каждой строки матрицы и...

Матрица: Подсчитать число положительных элементов, лежащих выше побочной диагонали и записать их в массив
Подскажите пожалуйста, как это решается? Подсчитать число положительных элементов, лежащих выше...

Получить одномерный массив, каждый элемент которого есть сумма элементов строк исходной матрицы
Дана матрица U(4,5). Получить одномерный массив, каждый элемент которого есть сумма элементов строк...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.01.2014, 01:18

Как из матрицы 5 х 5 сформировать одномерный массив из положительных элементов матрицы
Добрый день, помогите пожалуйста. 1. Из произвольно заданной матрицы размером 5 х 5 сформировать...

Одномерный массив: найти количество положительных и количество отрицательных чисел
В массиве натуральных чисел A(N) найти количество положительных и количество отрицательных...

Дан одномерный массив. Найти сумму его элементов
Дан одномерный массив. Найти сумму его элементов


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

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

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