Составить блок-схему программы для сортировки динамического массива - VB

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

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

Нужно составить блок схему программы для сортировки динамического массива так чтобы найти в строчках максимальный и минимальный элементы и поменять эти строчки местами
ап ап ап

Решение задачи: «Составить блок-схему программы для сортировки динамического массива»

textual
Листинг программы
Option Explicit
Dim Matrix() As Integer
Dim matrix_buf  As Integer, h As Integer
Dim i As Byte, j  As Byte, n As Byte
 
Private Sub Command1_Click()
    n = InputBox("Введите размер матрицы:", , 5)
    ReDim Matrix(1 To n, 1 To n)
    Randomize
    Text1.Text = ""
    For i = 1 To n
        For j = 1 To n
             Matrix(i, j) = Int(49 * Rnd + 1)
             Text1.Text = Text1.Text & Matrix(i, j) & vbTab
        Next j
        Text1.Text = Text1.Text & vbCrLf
    Next i
    Command2.Enabled = True
End Sub
 
Private Sub Command2_Click()
 
    For j = 1 To n
         For i = 1 To n - 1 ' 
               For h = 1 To n - 1
                     If Matrix(j, h) > Matrix(j, h + 1) Then
                          matrix_buf = Matrix(j, h)
                          Matrix(j, h) = Matrix(j, h + 1)
                          Matrix(j, h + 1) = matrix_buf
                     End If
               Next
         Next '
    Next
    
    Text2.Text = ""
    For i = 1 To n
         For j = 1 To n
              Text2.Text = Text2.Text & Matrix(i, j) & vbTab
         Next j
         Text2.Text = Text2.Text & vbCrLf
    Next i
 
End Sub

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


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

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

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