блок схема - VB

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

дорый день, если кто разбирается в б\с помогите (В произвольно заданном двумерном массиве размера 4Х5 определить три элемента с наибольшими значениями.) "
Private Sub max_Click()
  Dim i As Long
  Dim j As Long
  Dim ip As Long
  Dim jp As Long
  Dim min As Long
  Dim imin As Long
  Dim jmin As Long
  Dim js As Long
  Const N = 3
  Const M = 4
  Dim Mas(0 To N, 0 To M) As Long
  Cls
  For i = 0 To N
    For j = 0 To M
      Mas(i, j) = Int(Rnd * 100)
      Print Mas(i, j);
    Next j
    Print
  Next i
  Print
  For ip = 0 To N
    For jp = 0 To M
      min = Mas(ip, jp)
      imin = ip: jmin = jp
      For i = ip To N
        If (i = ip) Then js = jp + 1 Else js = 0
        For j = js To M
          If Mas(i, j) < min Then
            min = Mas(i, j)
            imin = i: jmin = j
          End If
        Next j
      Next i
      Mas(imin, jmin) = Mas(ip, jp)
      Mas(ip, jp) = min
    Next jp
  Next ip
 
  For i = 0 To N
    For j = 0 To M
      Print Mas(i, j);
    Next j
    Text1.Text = Mas(i, 3)
    Text2.Text = Mas(i, 2)
     Text3.Text = min
  Next i
End Sub


textual

Код к задаче: «блок схема - VB»

dim Mas2()
redim Mas2(1 to (M+1)*(N+1))
For i=0 to N
For j=0 to M
  Mas2(j*M + i +1) = Mas(i,j)
next j
Next i
Sort Mas2
msgbox Mas2(1) & "; " & Mas2(2) & "; " & Mas2(3)
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.667 из 5

Источник