Подсчет заданных элементов в матрице - VB

Узнай цену своей работы

Формулировка задачи:

Всем добрый день! На форуме впервые, не ругайтесь, если что не так. По информатике была задана задача: вычислить и вывести на экран количество отрицательных и нулевых элементов во всей заданной матрице М (3Х3) в каждой строке. Я, к сожалению, в этом почти ничего не смыслю - попытался создать код (ниже) но каждый раз выбивает ошибку. Прошу помочь, если не сложно, спасибо.

Решение задачи: «Подсчет заданных элементов в матрице»

textual
Листинг программы
Sub main()
Dim M(1 To 3, 1 To 3) As Single
Dim i As Byte, j As Byte
'Dim VV(1 To 3) As Single
'Dim VV1(1 To 3) As Single
 
'Dim S1 As String, S2 As String, S3 As String, S4 As String
Dim S1 As String, S2 As String, S3 As String, S4 As String 'для каждой переменной указывайте тип во избежание проблем
 
'Dim K, C As Integer
Dim K As Integer, C As Integer 'для каждой переменной указывайте тип во избежание проблем
 For i = 1 To 3
  S1 = " "
   For j = 1 To 3
    M(i, j) = InputBox("M(" & Str(i) & " , " & Str(j) & ") & ")
    S1 = S1 & Str(M(i, j)) & " "
   Next
    S2 = S2 & S1 & Chr(13)
 Next
 For i = 1 To 3
  K = 0
  For j = 1 To 3
   If M(i, j) < 0 Then
   K = K + 1
'   VV(j) = K
   End If
  Next
'   S3 = S3 & Str(VV(j)) & " "
   S3 = S3 & K & " "
 Next
 For i = 1 To 3
  C = 0
  For j = 1 To 3
   If M(i, j) = 0 Then
   C = C + 1
'   VV1(j) = C
   End If
  Next
   S4 = S4 & C & " "
 Next
 MsgBox "M:" & Chr(13) & S2 & Chr(13) & "K(<0)=" & S3 & Chr(9) & "C(=0)=" & S4
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.1 из 5
Похожие ответы