Найти Макс из чисел встречающихся в заданной матрице более одного раза - VB
Формулировка задачи:
Может кто помочь с написанием?
Решение задачи: «Найти Макс из чисел встречающихся в заданной матрице более одного раза»
textual
Листинг программы
Function maxx(A() As Integer) As Integer Dim X() As Integer n% = UBound(A, 1) m% = UBound(A, 2) ReDim X(1 To n% * m%, 1 To 2) As Integer p% = 0 For i% = 1 To n% For j% = 1 To m% q% = A(i%, j%) Z% = 0 For k% = 1 To p% If X(k%, 1) = q% Then X(k%, 2) = 2 Z% = -1 Exit For End If Next k% If Z% = 0 Then p% = p% + 1 X(p%, 1) = q% X(p%, 2) = 1 End If Next j% Next i% Z% = 0 For k% = 1 To p% If X(k%, 2) > 1 Then Max% = X(k%, 1) Z% = 1 Exit For End If Next k% If Z% = 0 Then MsgBox "Âñå Г·ГЁГ±Г«Г* ГіГ*ГЁГЄГ*ëüГ*Г»!" Else For k% = 1 To p% If X(k%, 2) > 1 And X(k%, 1) > Max% Then Max% = X(k%, 1) End If Next k% maxx = Max% End If End Function Sub Test() Dim Z(1 To 3, 1 To 3) As Integer Z(1, 1) = 6 Z(1, 2) = 4 Z(1, 3) = -6 Z(2, 1) = 8 Z(2, 2) = 2 Z(2, 3) = 8 Z(3, 1) = 6 Z(3, 2) = 4 Z(3, 3) = 16 Debug.Print maxx(Z) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д