|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
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 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 254
|
мой e-mail в профиле. Но только если очень нужно...
помогать студентам - моя вторая профессия
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сортировка массивов С++ | 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 |