Вопрос по информатике:
Дана матрица А. Написать программу определения количества положительных и отрицательных элементов матрицы. Язык Visual Basic.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 13.05.2017 12:20
- Информатика
- remove_red_eye 10026
- thumb_up 46
Ответы и объяснения 1
Private Sub Command1_Click()
Dim myArray(3,3) as Integer
Dim count_pos as Integer
Dim cout_neg as Integer
Dim i as Integer
Dim j as Integer
count pos = 0, count_neg = 0
For i = 0 to 3
For j = 0 to 3
If (myArray(i,j) > 0) Then
count_pos = count_pos+1
Else if (myArray(i,j) < 0) Then
count_neg = count_neg+1
Else
End If
Next j
Next i
MsgBox("Положительных чисел " & count_pos & " ,а отрицательных " & count_neg);
EndSub
- 14.05.2017 03:24
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.