Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.06.2011, 02:55   #1
Одуванька
Новичок
Джуниор
 
Регистрация: 05.06.2011
Сообщений: 1
По умолчанию бейсик. сортировка массивов.

Всем привет)
не увидела тем про бейсик...
Товарищи программисты, помогите пожалуйста решить задачку! замучалась совсем.
нужно реализовать алгоритм сортировки одномерных массивов. Метод выбора.
нужно использовать массивы с количеством элементов от 500 до 5000 с шагом 50.
нужно построить график зависимости времени от количества элементов массива.
Тело программы я уже составила , есть отдельные моменты, на которые он ругается, и видимо еще что-то, что я не написала вовсе. График не чертит.

Dim a(1 To 5000) As Integer
Dim mm(1 To 5000) As Integer

Private Sub Command1_Click()

x0 = 360
y0 = 5280
Picture4.PSet (x0, y0)
h = 1

n = 10
Randomize
For i = 1 To n
a(i) = Round(Rnd * 100)
Picture1.Print a(i)
Next

Randomize
For i = 500 To n
mm(i) = Round(Rnd * 100)
Picture7.Print mm(i)
Next

For n = 500 To 5000 Step 50
For i = 0 To (n - 1) 'тут ругается
a(i) = mm(i)
Next
Next

s = Timer

For i = 1 To (n - 1)
Min = a(i)
k_min = i

For j = i + 1 To n
If a(j) < Min Then
Min = a(j)
k_min = j
End If
Next j

a(k_min) = a(i)
a(i) = Min
Next

For i = 1 To n
Picture2.Print "a(i)="; a(i)
Next

End Sub
Одуванька вне форума Ответить с цитированием
Старый 05.06.2011, 10:51   #2
was3110
Форумчанин
 
Аватар для was3110
 
Регистрация: 25.04.2010
Сообщений: 254
По умолчанию

мой e-mail в профиле. Но только если очень нужно...
помогать студентам - моя вторая профессия
was3110 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сортировка массивов С++ Adelina Помощь студентам 17 25.04.2011 16:20
Сортировка массивов realiia Общие вопросы C/C++ 1 04.04.2011 14:53
сортировка массивов goky1 Помощь студентам 2 16.11.2010 19:39
сортировка массивов Veronik@ Общие вопросы C/C++ 9 24.10.2010 14:46