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

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

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

Здравствуйте помогите пожалуйста отредактировать программу.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Command1_Click()
Dim X(1 To 100, 1 To 100), M, N, i, j, S, P As Single
Dim Xпол, Xотр As Single
Randomize
M = Val(InputBox("Введите M"))
N = Val(InputBox("Введите N"))
For j = 1 To M
For i = 1 To N
X(i, j) = Val(InputBox("Введите число", "Заполнение массива"))
Print X(i, j);
Next i
Print
Next j
For S = 1 To N
For P = 1 To M
Xотр = 0: Xпол = 0
If X(i, j) > 0 Then Xпол = Xпол(S) + X(i, j)
If X(i, j) < 0 Then Xотр = Xотр(S) + X(i, j)
Print Xпол; Xотр
NextP
NextS
End Sub

morgann55 · 18.03.2012, 18:34

И ты собираешься ВЕСЬ массив вводить вручную ?? (100 Х 100 = 10000)

@ValeryG · 18.03.2012, 18:47 **[ТС]**

если через rnd то отцательные числа не выдаются?

Добавлено через 4 минуты
Я ввожу допустим 2 на 2 и заполняю вручную. Я просто не знаю как через rnd выдавать отрицательные числа

morgann55 · 18.03.2012, 18:53

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

если через rnd то отцательные числа не выдаются?

Добавлено через 4 минуты
Я ввожу допустим 2 на 2 и заполняю вручную. Я просто не знаю как через rnd выдавать отрицательные числа

Rnd выдаёт любые числа - надо только указать ЕМУ что тебе надо. Вот пример:

X(i,j)=Int(Rnd * 1000) - 500

@ValeryG · 18.03.2012, 18:59 **[ТС]**

Понял! А подскажите пожалуйста как дальше сделать, чтобы сумму положительных и отрицательных эллементов в каждой строке выдавал?

morgann55 · 18.03.2012, 19:10

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

Понял! А подскажите пожалуйста как дальше сделать, чтобы сумму положительных и отрицательных эллементов в каждой строке выдавал?

Давай сразу выясним: ты хочешь учиться или просто скатать чей-то код ??
Я могу помочь ТОЛЬКО с первым.

@ValeryG · 18.03.2012, 19:13 **[ТС]**

Я хочу, что бы вы мне подсказали как выдать на форму сумму пол. и отр. элементов каждой строки? Я по всякому пробую- не получается!
вот что у меня вышло:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Command1_Click()
Dim X(1 To 100, 1 To 100), M, N, i, j, S, P As Single
Dim Xgjk(1 To N), Xjnh(1 To N) As Single
Randomize
M = Val(InputBox("Введите M"))
N = Val(InputBox("Введите N"))
For j = 1 To M
For i = 1 To N
X(i, j) = Val(InputBox("Введите число", "Заполнение массива"))
Print X(i, j);
Next i
Print
Next j
For j = 1 To M
For i = 1 To N
S = 0: P = 0
If X(i, j) > 0 Then Xgjk(i) = S = S + X(i, j)
If X(i, j) < 0 Then Xjnh(i) = P = P + X(i, j)
Print Xgjk; Xjnh
NextP
NextS
End Sub

morgann55 · 18.03.2012, 19:31

Скажи, а почему ты обьявляешь массив и переменные в процедуре Command1_Click, а не в Декларации ?? Это даёт какие-то преимущества (или так учат в....) ??

И ещё - ты знаешь как заключить код проги в теги ??

@ValeryG · 18.03.2012, 19:53 **[ТС]**

Так учат

Добавлено через 20 минут
Я не понимаю что вы спросили. Вы можете мне сразу код прислать, а то мне завтра её уже сдать надо?

Добавлено через 46 секунд
Пожалуйста.

morgann55 · 18.03.2012, 20:02

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

Так учат

Ну когда ВСЯ прога состоит из одной процедуры, то, конечно, без разницы где объявить. Но ведь ЭТО войдёт в привычку, а потом будешь недоумевать, почему у тебя в другой процедуре переменные вдруг обнулились (или массив ошибочен). Привыкай делать правильно - раз массив и переменные нужны тебе во всей проге (хоть в проге и одна процедура), то объявляй их в Декларациях (в самом начале проги):

Visual Basic
1
2
3
4
5
6
Dim X(1 To 100, 1 To 100), M, N, i, j, S, P As Single
Dim Xgjk(1 To N), Xjnh(1 To N) As Single
 
Private Sub Command1_Click()
'...............................................
End Sub

И код в сообщении заключай в теги

Добавлено через 5 минут

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

Я не понимаю что вы спросили. Вы можете мне сразу код прислать, а то мне завтра её уже сдать надо?

Или учимся составлять код (что возможно за один день при наличии серого вещества) или жди "подарка" от доброго Санты...

@ValeryG · 18.03.2012, 20:14 **[ТС]**

Я всёравно не понял : т.е. я опускаю Private Sub Command1_Click() вниз, и программа вообще не запускается! Как быть?

Добавлено через 1 минуту
А что такое теги

morgann55 · 18.03.2012, 20:44

Когда вставляешь в сообщение код программы, то выдели ЕГО (чтоб был на синем фоне) и в меню редактора сообщения кликни мульку "VB" - тогда он станет читаемым....

Убери строку

Visual Basic
1
Dim Xgjk(1 To N), Xjnh(1 To N) As Single

Нельзя объявить массив 1 To N, если N ещё неизвестна (и не объявлена). Да эти массивы и не нужны.

Сначала заполним массив

Добавлено через 12 минут
Ты Rnd использовал когда-нибудь уже ??

Добавлено через 9 минут
Ну у меня и своих дел хватает - надумаешь, стукнешь в скайп...

@coderxx · 18.03.2012, 20:45

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

Скажи, а почему ты обьявляешь массив и переменные в процедуре Command1_Click, а не в Декларации ?? Это даёт какие-то преимущества (или так учат в....) ??

Я против такого способа, у меня в одном модуле имеется сотни процедур и функций, и что я должен объявить все в декларациях? Я в декларациях объявляю только общие переменные, на каждых процедурах должен быть свои переменные.

morgann55 · 18.03.2012, 21:08

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

Я против такого способа, у меня в одном модуле имеется сотни процедур и функций, и что я должен объявить все в декларациях? Я в декларациях объявляю только общие переменные, на каждых процедурах должен быть свои переменные.

А я разве запрещаю объявлять переменные в процедурах, если они нужны ТОЛЬКО в этих процедурах ?? Я ведь сказал выше, что в данном случае без разницы (раз прога состоит из одной процедуры). А сдругой стороны - это переменные для ВСЕЙ проги и правильнее объявить их глобально...

@coderxx · 18.03.2012, 21:35

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

А сдругой стороны - это переменные для ВСЕЙ проги и правильнее объявить их глобально...

Нет не думаю, хоть одно процедура, они должны объявляться внутри процедуры, их никакая другая процедура не будет использовать, память должен быть очищаться от ненужной информацией после выхода из процедуры. Ещё бывает такие ситуации некоторым переменным не устанавливается значении в зависимости от условий и при этом они должны иметь первоначальные значение.
Например я никогда не устанавливаю Boolean типов на False, потому что они при объявлении таки имеют эту значению.

morgann55 · 18.03.2012, 21:48

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

Нет не думаю, хоть одно процедура, они должны объявляться внутри процедуры, их никакая другая процедура не будет использовать, память должен быть очищаться от ненужной информацией после выхода из процедуры. Ещё бывает такие ситуации некоторым переменным не устанавливается значении в зависимости от условий и при этом они должны иметь первоначальные значение.
Например я никогда не устанавливаю Boolean типов на False, потому что они при объявлении таки имеют эту значению.

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

@coderxx · 18.03.2012, 22:41

Для меня объявление переменных имеет общий характер, если они должны использоваться в нескольких процедурах, то их нужно объявлять в декларациях, иначе локально в самом процедуре.

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

1) Для чего так уж необходимо очистить память если кроме этой процедуры больше ничего нет ??

Кроме этой процедуры есть ещё другие программы, которые потребуется память.

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

2) При каждом клике кнопки прога должна будет заново переобьявлять массив и переменные, а это уже потеря времени (хоть здесь время и не важно..).

Если процедура используется всего один раз, то и при входе на программу тоже потеряется время. (если посмотреть в примере этой задачи: нужен всего лишь для показа учителям, им не нужно Private Sub Command1_Click(), для проверки знание студента им нужен всего лишь код с объявлениями).
Если не посмотреть в этом примере то, для полезных приложений только одна процедура не хватит.

@ValeryG · 18.03.2012, 22:55 **[ТС]**

Помогите кто нибудь а то вообще не получается
Вот что у меня вышло :
Dim X(1 To 100, 1 To 100), M, N, i, j, S, P As Integer
Dim Xпол, Xотр As Single
Private Sub Command1_Click()
Randomize
M = Val(InputBox("Введите колличество строк"))
N = Val(InputBox("Введите колличество столбцов"))
For i = 1 To M
For j = 1 To N
X(i, j) = Val(InputBox("Заполните массив"))
Print X(i, j);
Next j
Print
Next i
S = 0: P = 0
For i = 1 To M
For j = 2 To N
Xпол = X(i, j) > 0
Xотр = X(i, j) < 0
If Xпол > 0 Then S = S + Xпол
If Xотр < 0 Then P = P + Xотр
Print S; P
Next j
Next i
End Sub

@coderxx · 18.03.2012, 23:18

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

Xпол = X(i, j) > 0

Visual Basic
1
2
3
Xотр = X(i, j) < 0
If Xпол > 0 Then S = S + Xпол
If Xотр < 0 Then P = P + Xотр

можно заменить на это:

Visual Basic
1
If X(i, j) > 0 Then S = S + X(i, j) ElseIf X(i, j) < 0 Then P = P + X(i, j)

или

Visual Basic
1
If X(i, j) > 0 Then S = S + X(i, j) Else P = P + X(i, j)

Если в каждой строке массива тогда:

Visual Basic
1
2
3
4
5
6
7
For i = 1 To M
  S = 0: P = 0
  For j = 2 To N
    If X(i, j) > 0 Then S = S + X(i, j) Else P = P + X(i, j)
  Next j
  Print S; P
Next i

Добавлено через 5 минут
И ещё научись использовать теги

@ValeryG · 18.03.2012, 23:25 **[ТС]**

Спасибо. Сейчас попробую исправить

Добавлено через 7 минут
Я исправил но с выводом на форму суммы пол. и отр. элементов не получается
Вот код:
Private Sub Command1_Click()
Dim X(1 To 100, 1 To 100), M, N, i, j, S, P As Integer
Dim Xпол, Xотр As Single
Randomize
M = Val(InputBox("Введите колличество строк"))
N = Val(InputBox("Введите колличество столбцов"))
For i = 1 To M
For j = 1 To N
X(i, j) = Val(InputBox("Заполните массив"))
Print X(i, j);
Next j
Print
Next i
For i = 1 To M
S = 0: P = 0
For j = 2 To N
If X(i, j) > 0 Then S = S + X(i, j) Else P = P + X(i, j)
Next j
Print S; P
Next i
End Sub

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в конфигурации КА2. Данные берутся из регистра сведений, по. . .

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	18.03.2012, 18:34
	И ты собираешься ВЕСЬ массив вводить вручную ?? (100 Х 100 = 10000) 0

@ValeryG 0 / 0 / 0 Регистрация: 18.03.2012 Сообщений: 11
	18.03.2012, 18:47 [ТС]
	если через rnd то отцательные числа не выдаются? Добавлено через 4 минуты Я ввожу допустим 2 на 2 и заполняю вручную. Я просто не знаю как через rnd выдавать отрицательные числа 0

@ValeryG 0 / 0 / 0 Регистрация: 18.03.2012 Сообщений: 11
	18.03.2012, 18:59 [ТС]
	Понял! А подскажите пожалуйста как дальше сделать, чтобы сумму положительных и отрицательных эллементов в каждой строке выдавал? 0

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	18.03.2012, 19:31
	Скажи, а почему ты обьявляешь массив и переменные в процедуре Command1_Click, а не в Декларации ?? Это даёт какие-то преимущества (или так учат в....) ?? И ещё - ты знаешь как заключить код проги в теги ?? 0

@ValeryG 0 / 0 / 0 Регистрация: 18.03.2012 Сообщений: 11
	18.03.2012, 19:53 [ТС]
	Так учат Добавлено через 20 минут Я не понимаю что вы спросили. Вы можете мне сразу код прислать, а то мне завтра её уже сдать надо? Добавлено через 46 секунд Пожалуйста. 0

@ValeryG 0 / 0 / 0 Регистрация: 18.03.2012 Сообщений: 11
	18.03.2012, 20:14 [ТС]
	Я всёравно не понял : т.е. я опускаю Private Sub Command1_Click() вниз, и программа вообще не запускается! Как быть? Добавлено через 1 минуту А что такое теги 0

@ValeryG 0 / 0 / 0 Регистрация: 18.03.2012 Сообщений: 11
	18.03.2012, 22:55 [ТС]
	Помогите кто нибудь а то вообще не получается Вот что у меня вышло : Dim X(1 To 100, 1 To 100), M, N, i, j, S, P As Integer Dim Xпол, Xотр As Single Private Sub Command1_Click() Randomize M = Val(InputBox("Введите колличество строк")) N = Val(InputBox("Введите колличество столбцов")) For i = 1 To M For j = 1 To N X(i, j) = Val(InputBox("Заполните массив")) Print X(i, j); Next j Print Next i S = 0: P = 0 For i = 1 To M For j = 2 To N Xпол = X(i, j) > 0 Xотр = X(i, j) < 0 If Xпол > 0 Then S = S + Xпол If Xотр < 0 Then P = P + Xотр Print S; P Next j Next i End Sub 0

@ValeryG 0 / 0 / 0 Регистрация: 18.03.2012 Сообщений: 11
	18.03.2012, 23:25 [ТС]
	Спасибо. Сейчас попробую исправить Добавлено через 7 минут Я исправил но с выводом на форму суммы пол. и отр. элементов не получается Вот код: Private Sub Command1_Click() Dim X(1 To 100, 1 To 100), M, N, i, j, S, P As Integer Dim Xпол, Xотр As Single Randomize M = Val(InputBox("Введите колличество строк")) N = Val(InputBox("Введите колличество столбцов")) For i = 1 To M For j = 1 To N X(i, j) = Val(InputBox("Заполните массив")) Print X(i, j); Next j Print Next i For i = 1 To M S = 0: P = 0 For j = 2 To N If X(i, j) > 0 Then S = S + X(i, j) Else P = P + X(i, j) Next j Print S; P Next i End Sub 0