Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
SoftIce
comment ca va
10452 / 3963 / 1013
Регистрация: 27.07.2011
Сообщений: 9,618
Завершенные тесты: 1
19.06.2012, 17:02 0

Упорядочение элементов заданной строки по возрастанию

19.06.2012, 17:02. Просмотров 729. Ответов 1
Метки (Все метки)

Ответ

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Private Sub Command1_Click()
Dim A() As Long, StrA() As Long
Dim n As Long, m As Long, nSort As Integer, i As Integer, j As Integer
     AutoRedraw = True: Randomize
     Cls
     n = InputBox("Введите размер матрицы (строк)", , 10)
     m = InputBox("Введите размер матрицы (столбцов)", , 12)
     ReDim A(1 To n, 1 To m), StrA(1 To m)
     
     Print "Исходная матрица :"
     For i = 1 To n
          For j = 1 To m
              A(i, j) = Rnd * 100
              Print A(i, j); vbTab;
          Next j
          Print
     Next i
 
     nSort = InputBox("Введите номер строки для сортировки", , 1)
 
     For j = 1 To m
          StrA(j) = A(nSort, j)
     Next j
 
     Selectionsort StrA(), 1, m
 
     For j = 1 To m
          A(nSort, j) = StrA(j)
     Next j
     
     Print
     Print "Результат :"
     
     For i = 1 To n
          For j = 1 To m
               Print A(i, j); vbTab;
          Next j
          Print
     Next i
     
End Sub
 
' ************************************************
' Selectionsort.
' ************************************************
Public Sub Selectionsort(List() As Long, min As Long, max As Long)
Dim i As Long
Dim j As Long
Dim best_value As Long
Dim best_j As Long
 
    For i = min To max - 1
        ' Find the smallest remaining item.
        best_value = List(i)
        best_j = i
        For j = i + 1 To max
            If List(j) < best_value Then
                best_value = List(j)
                best_j = j
            End If
        Next j
 
        ' Swap it into position.
        List(best_j) = List(i)
        List(i) = best_value
    Next i
End Sub


Вернуться к обсуждению:
Упорядочение элементов заданной строки по возрастанию
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.06.2012, 17:02
Готовые ответы и решения:

Массив: получить произведение элементов заданной строки матрицы
Прошу помощи: Задачи для решения: Перепечатайте задание в пост

Вывести сумму элементов той строки ,для которой значение этой суммы оказалось больше заданной величины
Для матрицы из 3 столбцов и 10 строк вывести сумму элементов той строки ,для...

Двумерный массив. Упорядочение по не возрастанию элементов третьей строки.
Дан двумерный массив, содержащий 3 строки и 4 столбца. Элементами массива...

Упорядочение элементов массива по возрастанию их модулей
Здравствуйте, уважаемые эксперты. Предо мной встала следующая задача: написать...

Выполнить сортировку элементов заданной строки матрицы по возрастанию
Добрый вечер, помогите пожалуйста с решением задачи. Дана квадратная...

1
Другие темы раздела
VB Поиск минимального элемента в диагоналях квадратной матрицы http://www.cyberforum.ru/visual-basic/thread609284.html
Поиск минимального элемента в диагоналях квадратной матрицы. 2. В программе предусмотреть ввод произвольного числа строк и столбцов матрицы, ввод элементов матрицы, ее контрольный ввод,...
VB Определите номер максимального элемента последовательности, попадающего в диапазон допустимых значений типа Byte Последовательность Фибоначчи определяется следующим образом: F(0)=1; F(1)=1; F(n)=F(n-1)+F(n-2), n>2. Определите номер максимального элемента последовательности, попадающего в диапазон допустимых... http://www.cyberforum.ru/visual-basic/thread609256.html
VB Программа вычисления значения функции
Помогите пожалуйста с написание программы: Нужно составить программу вычисления значения функции F=A/(2/\sqrt{B}) * {e}^{-(A-B)/2}. буду очень очень благодарен)
Соединить концы линий графика VB
надо в общем соединить концы линией щас так: а надо так: отрывок текста проги: Picture1.Cls Picture1.Scale (0, max + (max * 0.1))-(220, -(max * 0.1)) Picture1.Line (10, 0)-(200, 0)
VB Даны действительные числа А и В. Получить z = arcsin (|ab|)+10 sin(b) http://www.cyberforum.ru/visual-basic/thread608818.html
Даны действительные числа А и В. Получить z = arcsin (|ab|)+10 sin(b).
VB Вычислить последовательность N чисел Вычислить последовательность N чисел А0 = x, A1 = 2, Аk = Аk-1 + Аk-2 подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru