Составить блок-схему программы для сортировки динамического массива - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д