В каждой строке двумерного массива вычислить количество, сумму и среднеарифметическое отрицательных элементов

@Powerful · Регистрация: 18.03.2012

Студворк — интернет-сервис помощи студентам

Добрый день. Помогите исправить код в VB 6.0, задача такая:
В каждой строке двумерного массива вычислить количество, сумму и среднеарифметическое отрицательных элементов.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Command1_Click()
Dim A(10, 10), i, j, S, Sr, K  As Integer
For i = 1 To 10
For j = 1 To 10
A(i, j) = Int(Rnd * 100)
Next j
Next i
For S = 1 To 10
S(S) = 0
K(S) = 0
For K = 1 To 10
If A(K, S) < 0 Then
S(S) = S(S) + A(K, S)
K(S) = K(S) + 1
End If
Next K
Sr(S) = S(S) / K(S)
Next S
Print Sr(S), S(S), K(S)
End Sub

Выдаёт ошибку на строке K(S)=0, а именно "expected array"

morgann55 · 18.03.2012, 16:14

А почему S(S) проходит ?? Ведь у тебя в проге не обьявлены массивы S() или K() ??!!

@Powerful · 18.03.2012, 16:20 **[ТС]**

Пробовал. Если их объявить, то пишет следующее:

"constant expression required"

и выделяет в строке объявления букву в скобках, например, в S(S) выделяет (S)

morgann55 · 18.03.2012, 16:39

Сообщение от Powerful

Пробовал. Если их объявить, то пишет следующее:
"constant expression required"
и выделяет в строке объявления букву в скобках, например, в S(S) выделяет (S)

А обьявлять в Декларации не пробовал ?? Почему обьявляешь в Command1_Click ??

@Powerful · 18.03.2012, 16:55 **[ТС]**

Честно говоря, я такому не обучен

Всё, чему научили попытался воплотить здесь.
Направьте на верный путь, пожалуйста) И скажите, есть ли ещё ошибки, помимо объявления?

@gaw · 18.03.2012, 17:03

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Command1_Click()
Dim A(10, 10), i, j, S, Sr, k
Cls
For i = 1 To 10
k = 0: S = 0: Sr = 0
For j = 1 To 10
A(i, j) = Int(Rnd * 101) - 20
If A(i, j) < 0 Then
ForeColor = 255
S = S + A(i, j)
k = k + 1
End If
Print A(i, j); vbTab;
ForeColor = 0
If k > 0 Then Sr = S / k
Next j
Print vbTab; "k = "; k; vbTab; "S = "; S; vbTab; "Sa = "; Sr
Next i
 
End Sub

morgann55 · 18.03.2012, 17:12

Похоже тебя уже всему "научили"....

@Powerful · 18.03.2012, 17:18 **[ТС]**

Спасибо большое, gaw!

И Вам, morgann55, тоже! За то, что не прошли мимо моей проблемы.

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	18.03.2012, 16:14
	А почему S(S) проходит ?? Ведь у тебя в проге не обьявлены массивы S() или K() ??!! 0

@Powerful 0 / 0 / 0 Регистрация: 18.03.2012 Сообщений: 6
	18.03.2012, 16:20 [ТС]
	Пробовал. Если их объявить, то пишет следующее: "constant expression required" и выделяет в строке объявления букву в скобках, например, в S(S) выделяет (S) 0

@Powerful 0 / 0 / 0 Регистрация: 18.03.2012 Сообщений: 6
	18.03.2012, 16:55 [ТС]
	Честно говоря, я такому не обучен Всё, чему научили попытался воплотить здесь. Направьте на верный путь, пожалуйста) И скажите, есть ли ещё ошибки, помимо объявления? 0

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	18.03.2012, 17:12
	Похоже тебя уже всему "научили".... 1

@Powerful 0 / 0 / 0 Регистрация: 18.03.2012 Сообщений: 6
	18.03.2012, 17:18 [ТС]
	Спасибо большое, gaw! И Вам, morgann55, тоже! За то, что не прошли мимо моей проблемы. 0

Опции темы