Отсортировать по возрастанию элементы массива удовлетворяющие условию

@max101 · Регистрация: 31.10.2011

Студворк — интернет-сервис помощи студентам

Отсортировать по возрастанию элементы массива удовлетворяющие условию ai<5 методом выбора.

@YuraAAA · 31.10.2011, 12:17

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
Dim a(20) As Integer, str
 
 
Private Sub Command1_Click()
str = "До сортировки: " & Chr(13)
For i = 0 To 20
    a(i) = Int(15 * Rnd - 5)
    str = str & a(i) & " "
Next i
str = str & Chr(13) & "После сортировки: " & Chr(13)
Call Sort
For i = 0 To 20
    str = str & a(i) & " "
Next i
MsgBox str
End Sub
 
 
Sub Sort()
Dim j, k
For i = 0 To 20
    k = i
    x = a(i)
    For j = i + 1 To 20
        If a(j) < 5 Then
            If a(j) < x Then
                k = j
                x = a(j)
            End If
        End If
    Next
    a(k) = a(i)
    a(i) = x
Next i
End Sub

@max101 · 31.10.2011, 17:59 **[ТС]**

Спасибо.
Можете помочь доделать программу что бы массив можно было писать в ручную и автоматически
Если не сложно закиньте рабочую программу на email:

Заранее спасибо)))

Добавлено через 4 часа 48 минут
Можете помочь доделать программу что бы массив можно было вводить в ручную и автоматически

@YuraAAA · 31.10.2011, 18:07

Лень самому? Или просто ничего не знаем? Ээх, ладно, лови

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
Dim a(20) As Integer, str
 
 
Private Sub Command1_Click()
str = "До сортировки: " & Chr(13)
'добавляем вопрос
If MsgBox("Ввести массив вручную?", vbOKCancel + vbQuestion, "Application") = vbOK Then
    'если нажали "ОК"
    For i = 0 To 20
        a(i) = InputBox("Введите элемент а(" & i & ")")
        str = str & a(i) & " "
    Next i
Else
    'если нажали "Cancel"
    For i = 0 To 20
        a(i) = Int(15 * Rnd - 5)
        str = str & a(i) & " "
    Next i
End If
 
 
 
str = str & Chr(13) & "После сортировки: " & Chr(13)
Call Sort
For i = 0 To 20
    str = str & a(i) & " "
Next i
MsgBox str
End Sub
 
 
Sub Sort()
Dim j, k
For i = 0 To 20
    k = i
    x = a(i)
    For j = i + 1 To 20
        If a(j) < 5 Then
            If a(j) < x Then
                k = j
                x = a(j)
            End If
        End If
    Next
    a(k) = a(i)
    a(i) = x
Next i
End Sub

@max101 · 01.11.2011, 20:24 **[ТС]**

Если не затруднит сможете поменять метод выбора на метод обмена. А то в программировании я дум дум

@max101 · 14.11.2011, 20:31 **[ТС]**

где тут ошибка???
Как будет правильно в методе обмена???
Dim a(20) As Integer, str

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
Private Sub Command1_Click()
str = "До сортировки: " & Chr(13)
'добавляем вопрос
If MsgBox("Ввести массив вручную?", vbOKCancel + vbQuestion, "Application") = vbOK Then
    'если нажали "ОК"
    For i = 0 To 20
        a(i) = InputBox("Введите элемент а(" & i & ")")
        str = str & a(i) & " "
    Next i
Else
    'если нажали "Cancel"
    For i = 0 To 20
        a(i) = Fix(Rnd(1) * 100)
        str = str & a(i) & " "
    Next i
End If
 
 
 
str = str & Chr(13) & "После сортировки: " & Chr(13)
Call Sort
For i = 0 To 20
    str = str & a(i) & " "
Next i
MsgBox str
End Sub
 
 
Sub Sort()
Dim j
For i = 0 To 98
For j = i + 1 To 99
If a(j) < a(i) Then
If a(j) > -10 Then
a% = a(i): a(i) = a(j): a(j) = a
End If
Next j
Next i
For i = 0 To 99
List2.AddItem B(i)
Next i
End Sub

Добавлено через 7 часов 51 минуту
неужели ни кто не поможет?? переделать на метод обмена( пузырька))???

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@max101 0 / 0 / 0 Регистрация: 31.10.2011 Сообщений: 28

	Отсортировать по возрастанию элементы массива удовлетворяющие условию 31.10.2011, 10:44. Показов 1187. Ответов 5 Метки нет (Все метки) Отсортировать по возрастанию элементы массива удовлетворяющие условию ai<5 методом выбора. 0

@max101 0 / 0 / 0 Регистрация: 31.10.2011 Сообщений: 28
	31.10.2011, 17:59 [ТС]
	Спасибо. Можете помочь доделать программу что бы массив можно было писать в ручную и автоматически Если не сложно закиньте рабочую программу на email: Заранее спасибо))) Добавлено через 4 часа 48 минут Можете помочь доделать программу что бы массив можно было вводить в ручную и автоматически 0

@max101 0 / 0 / 0 Регистрация: 31.10.2011 Сообщений: 28
	01.11.2011, 20:24 [ТС]
	Если не затруднит сможете поменять метод выбора на метод обмена. А то в программировании я дум дум 0