Планирование уроков на учебный год (по учебнику Н.Д. Угриновича, профильный уровень)



Уроки 125 - 131
§4.16. Массивы




Содержание урока

4.16.1. Заполнение массивов
4.16.2. Поиск элемента в массивах
4.16.3. Сортировка числовых массивов

Сортировка числового массива

Проект «Сортировка числового массива»

Создание графического интерфейса проекта на языках Visual Basic .NET, Visual C# и Visual J#

Создание программного кода проекта на языке Visual Basic .NET

Создание программного кода проекта на языке Visual J#

Создание программного кода проекта на языке Visual C#

Запуск проекта на языках Visual Basic .NET, Visual C# и Visual J#

Создание графического интерфейса проекта на языке Turbo Delphi

Компьютерный практикум

4.16.4. Сортировка строковых массивов

4.16.3. Сортировка числовых массивов


Создание программного кода проекта на языке Visual Basic .NET


Объявим переменные для использования в программном модуле и создадим обработчик события заполнения целочисленного массива случайными числами.

2.


Dim A(9), I, J, K, R, Max As Byte
Private Sub Button1_Click(ByVal sender As System. Object, ByVal e As System.EventArgs) Handles Button1.Click
'Очистка полей списков индексов элементов
'и значений элементов массива
ListBox1.Items.Clear()
ListBox2.Items.Clear()
'Заполнение массива случайными числами Randomize()
For К = 0 To 9 А(К) = Int(Rnd() * 100)
ListBox1.Items.Add(K)
ListBox2.Items.Add(Str(A(K)))
Next К
End Sub

Процедура поиска максимального элемента МаксЭлемент (ByVal I, ByRef Max) будет многократно вызываться из обработчика события сортировки и будет содержать входной и выходной параметры:

I — входной параметр (индекс максимального элемента массива после предыдущего шага);
Мах — выходной параметр (индекс максимального элемента массива после данного шага).

3.


'Процедура поиска индекса максимального элемента 'массива
Sub МаксЭлемент(ByVal I, ByRef Max)
Max = I
For J = I + 1 To 9
If A (J) > A (Max) Then Max = J
Next J
End Sub

Создадим обработчик события сортировки массива, который будет включать:

• очистку полей списков шагов сортировки;
• цикл со счетчиком I, в котором осуществляется пошаговая сортировка массива по убыванию и который, в свою очередь, будет включать:
     — вызов процедуры поиска индекса максимального элемента;
     — перестановку элементов массива;
     — вывод массива для каждого шага сортировки в списки с использованием цикла со счетчиком и оператора выбора.

4.


Private Sub Button2_Click_l(ByVal sender As System. Object, ByVal e As System.EventArgs) Handles Button2.Click
'Очистка полей списков шагов сортировки
ListBox3.Items.Clear()
...
ListBox11.Items.Clear()
Label1.Text = " "
'Сортировка
For I = 0 To 8
Label1.Text = Label1.Text + " " + Str(I + 1) + " "
'Вызов процедуры поиска индекса максимального
'элемента МаксЭлемент(I, Мах)
'Перестановка элементов массива
R = А (I)
А(I) = А(Мах)
А(Мах) = R
'Вывод массива для каждого шага сортировки
For К = 0 То 9
     Select Case I
     Case О
     ListBox3.Items.Add(Str(A(K)))
     ...
     Case 8
     ListBox11.Items.Add(Str(A(K)))
     End Select
Next К
Next I
End Sub

На языке Visual J# максимальный элемент будем искать с использованием функции.

Программный модуль проекта будет содержать:

• обработчик события заполнения массива случайными числами;
• обработчик события сортировки массива;
• функцию поиска максимального элемента.

Следующая страница Создание программного кода проекта на языке Visual J#



Cкачать материалы урока







Наверх