VPF::[VBA] Сортировка ненулевых массивов

Jenny

Дата 24.4.2007, 04:31 (ссылка)

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

Загрузка ...

Новичок

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

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

Народ, помогите пожалуйста с заданием: дан массив а1, а2, ..., аN. Расположить ненулевые элементы массива по убыванию; остальные элементы оставить на своих местах. Размерность массива вводите с помощью оператора InputBox. Значение элементов массива определить датчиком случайных чисел. Вывод массива выполнить в файл и на экран с помощью оператора вывода MsgBox. Я код составила, но как сделать чтобы нули не сортировались, а оставались на своих местах?

Код


Private Sub CommandButton1_Click()
Dim N As Integer
Dim a() As String
Dim i As Integer
N = InputBox("Введите размерность массива")
Open "D:\Mas.txt" For Output As #1
Randomize (i)
ReDim a(4)
a(1) = 5
a(2) = 3
a(3) = 0
a(4) = 4
Dim m As Integer
Dim swap As String
m = 4
Do
    For i = 1 To m - 1
        If a(i) > a(i + 1) Then
            swap = a(i)
            a(i) = a(i + 1)
            a(i + 1) = swap
        End If
    Next i
    m = m - 1
Loop While m > 0
For i = 1 To 4
MsgBox a(i)
Next i
Close #1
End Sub

M
Alexeis

Модератор: не забывайте про подсветку http://forum.vingrad.ru/index.php?showtopic=126445

Это сообщение отредактировал(а) Alexeis - 24.4.2007, 10:21

Genyaa

Дата 24.4.2007, 09:01 (ссылка)

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

Загрузка ...

Усердный

Профиль
Группа: Участник
Сообщений: 154
Регистрация: 25.9.2006
Где: Москва

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

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

--------------------

Всякое решение плодит новые проблемы.

Jenny

Дата 27.4.2007, 11:34 (ссылка)

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

Загрузка ...

Новичок

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

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

Я немного не поняла. К этому коду мне надо составить еще один массив, только вместо a(3) = 0 написать а(3) = ? А дальше я ничего не поняла. Я недавно с VB работаю, поэтому мне многое еще не понятно.

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