вторник, 22 января 2008
14:05

все записи пользователя в сообществе Olya-Olenka
Nobody knows what`s gonna happen tomorrow
[ok]

Приветик! Кто – нибудь может помочь с задачей на Visual Basic?
Задача звучит так: Дан массив из 30 элементов, заполненный случайным образом из интервала [-100; 100]. Отсортировать по возрастанию элементы, стоящие между максимальным и минимальным значениями.
Массив заполняется, максимальное и минимальное значения находятся, а вот отсортировать по возрастанию числа между ними – никак : (


@темы: D Grade, Программирование

URL
Комментарии
22.01.2008 в 15:12

DDD
мне сказали, что ты меня все еще любишь
Вот вам классическая пузырьковая сортировка:

Option Explicit

Dim n(30) As Integer
Dim z As Integer
Dim i As Integer
Dim j As Integer
Dim Tmp As Integer
Dim nMin As Integer
Dim nMax As Integer

Private Sub SortArray()

Randomize

z = 30 ' размерность массива

For i = 0 To z - 1 'заполняем массив
    n(i) = (Rnd * 200) - 100
Next i
    
For i = 0 To z - 1 ' сортируем массив
    For j = 0 To z - 2 - i
        If n(j) > n(j + 1) Then ' ">" или "<" - по возрастанию или убыванию
            Tmp = n(j)
            n(j) = n(j + 1)
            n(j + 1) = Tmp
        End If
    Next j
Next i

nMin = n(0) ' мин. значение
nMax = n(z - 1) 'макс. значение

End Sub

URL
22.01.2008 в 17:28

techsupport
решаем проблемы с головой!
Olya-Olenka, в следующий раз пиши пожалуйста не только условия, но и сам вопрос тоже. Например "мне непонятно то-то, объясните". Или "я не понимаю вообще ничего и не хочу разбираться, напишите пожалуйста программу за меня целиком, а я просто к себе скопирую". Ну или т.п.
URL