С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
max101
0 / 0 / 0
Регистрация: 31.10.2011
Сообщений: 28
1

Отсортировать по возрастанию отрицательные элементы массива методом выбора

14.11.2011, 10:28. Просмотров 632. Ответов 0
Метки нет (Все метки)

Помогите переделать программу
Отсортировать по возрастанию отрицательные элементы массива методом выбора.
на метод обмена:


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
68
69
70
71
72
Dim i, j, n, m, k, q, ii, jj, l, y As Integer
Dim x, s As Double
Dim a(1 To 100) As Double
Dim b(1 To 600) As Double
Dim c(1 To 600) As Integer
Private Sub Command1_Click()
n = Val(Text1.Text)
Randomize Timer
If Option1.Value Then
    For i = 1 To n
    'a(i) = Int((20 + 20 + 1) * Rnd()) / 100
    a(i) = CLng(Rnd * (-20)) + CLng(Rnd * (20))
    'Print Spc(2); a(i);
    Next i
End If
End Sub
 
Private Sub Command2_Click()
n = Val(Text1.Text)
If Option2.Value Then
    a(i) = Text4.Text
    Text4.Text = ""
End If
i = i + 1
If (i = n + 1) Then
MsgBox "Массив переполнен!!!", vbCritical, "Массив."
End If
End Sub
 
Private Sub Command3_Click()
k = 0
Print "Исходный массив:"
For i = 1 To n
Print Spc(2); a(i);
Next i
Print
Print "Массив из отрицательных элементов:"
For i = 1 To n
 
If a(i) < 0 Then
k = k + 1
b(k) = a(i)
Print Spc(2); b(k);
End If
Next i
Print
Call sort(b, k)
End Sub
 
Private Sub Form_Load()
i = 1
j = 0
End Sub
 
Private Sub sort(c, m)
For i = 1 To m
    l = i
    p = c(i)
For j = i + 1 To m
    If c(j) < p Then
    l = j
    p = c(j)
    End If
Next j
    c(l) = c(i)
    c(i) = p
Next i
Print "После сортировки"
For i = 1 To m
Print Spc(2); c(i);
Next i
End Sub
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.11.2011, 10:28
Ответы с готовыми решениями:

Отсортировать элементы массива по убыванию методом выбора
Дан целочисленный массив с элементами от -20 до 20.Отсортировать по убыванию...

Отсортировать по убыванию положительные элементы массива методом выбора
друзья, помогите пожалуйста!!! я в VB дуб дубом(( написал прогу на с++ может...

Отсортировать по убыванию положительные элементы массива методом выбора
Отсортировать по убыванию положительные элементы массива методом выбора. ...

Отсортировать по убыванию элементы массива, удовлетворяющие условию а(i) > 10, методом выбора
Сгенерировать одномерный массив ,отсортировать по убыванию элементы...

В двумерном массиве отсортировать строки по среднему значению по возрастанию методом выбора
.В двумерном массиве отсортировать строки по среднему значению по возрастанию...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.11.2011, 10:28

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

Отсортировать по возрастанию элементы массива
Отсортировать по возрастанию элементы массива удовлетворяющие условию ai&gt;10...

Отсортировать элементы массива по возрастанию предварительно возведя каждый элемент массива в квадрат
Помогите написать программу в Visual Basic, плиз. Дан массив А={А0,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru