VPF::[VB]Сортировка массива отрицательных чисел

SeRaZ

Дата 9.6.2008, 00:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 8.6.2008

Репутация: нет
Всего: нет

Ребята, помогите, пожалуйста, с задачей.Решить нужно в течение этой ночи)
Даны два числовых массива A(N) и B(M). Получить из них новый отсортированный массив, выбрав в него только отрицательные элементы.
Вот массив с отрицательными числами:

Код


Dim A() As Integer
Dim B() As Integer
Dim C() As Integer
Dim k, n, i As Integer
Private Sub cmdRun_Click()
n = Val(InputBox("Введите N"))
ReDim A(n)
k = 0
ReDim C(k)
For i = 1 To n
A(i) = Val(InputBox("Введите эл-ты массива A"))
If A(i) < 0 Then k = k + 1: ReDim C(k): C(k) = A(i)
Next i
M = Val(InputBox("Введите M"))
ReDim B(M)
For i = 1 To M
B(i) = Val(InputBox("Введите эл-ты массива B"))
If B(i) < 0 Then k = k + 1: ReDim C(k): C(k) = B(i)
Next i

End Sub

А загвоздка в этом-как отсортировать этот массив, желательно методом подсчёта?

Это сообщение отредактировал(а) SeRaZ - 9.6.2008, 02:31

SeRaZ

Дата 10.6.2008, 22:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 8.6.2008

Репутация: нет
Всего: нет

Друг смог сортировку эту за 5 минут сделать smile

Код


Dim A() As Integer
Dim B() As Integer
Dim C() As Integer
Dim d() As Integer
Dim k, n, j, i As Integer
Private Sub cmdRun_Click()
n = Val(InputBox("Введите N"))
m = Val(InputBox("Введите M"))
ReDim A(n)
k = 0
ReDim C(m + n)
ReDim d(m + n)
For i = 1 To n
A(i) = Val(InputBox("Введите значение элемента массива A"))
If A(i) < 0 Then k = k + 1: C(k) = A(i)
Next i
ReDim B(m)
For i = 1 To m
B(i) = Val(InputBox("Введите значение элемента массива B"))
If B(i) < 0 Then k = k + 1: C(k) = B(i)
Next i
'сортировка
For i = 1 To k
d(i) = 0
Next i
For i = 1 To k
j = i - 1
Do While j >= 1
If C(i) < C(j) Then
d(j) = d(j) + 1
Else
d(i) = d(i) + 1
End If
j = j - 1
Loop
Next i
For i = m + n To 1 Step -1
For j = m + n To 1 Step -1
If d(j) = i - 1 And C(j) <> 0 Then Print C(j)
Next j
Next i
End Sub

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »