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



Уроки 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. Сортировка числовых массивов


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


1. Поместить на форму (рис. 4.54):

• таблицу StringGrid1, которая будет использоваться для вывода значений индекса целочисленного массива, номеров шагов сортировки, числового массива, заполненного случайными числами, а также состояния массива после каждого шага сортировки;
• кнопки Button1 и Button2 для создания обработчиков событий заполнения массива и сортировки.

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

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

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

2.


var
А: array[1..10] of integer;
I: integer;
J: integer;
K: integer;
R: integer;
Max: integer;

procedure TForml.Button1Click(Sender: TObject);
begin
//Заполнение массива Randomize;
for i:=0 to 9 do
begin
for j : =0 to 9 do
begin
StringGridl.Cells[i+2,0]:= IntToStr(i+1);
StringGridl.Cells[0,j+1]:= IntToStr(j); A[j] : = Random (100) ;
StringGridl.Cells [ 1, j +1 ] : = IntToStr (A [ j]) ;
end;
end;
end;

Создадим обработчик события сортировки массива.

4.


procedure TForm1.Button2Click(Sender: TObject);
begin
//Сортировка
For I := 0 To 8 Do
begin
//Поиск индекса максимального элемента
Max : = I;
For J :=I + l To l0 Do begin
If A [ J] > A [Max]
Then Max := J;
end;
//Перестановка
R := A[I];
A [ I ] := A [Max];
A [Max] := R;
//Вывод массива в таблицу для каждого шага
//сортировки
For К := 0 То 9 Do
StringGrid1.Cells[i+2, k+1] := IntToStr(A[k]);
end;
end;

5. Запустить проект (см. рис. 4.54).

Щелкнуть по кнопке Заполнить массив.

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

Щелкнуть по кнопке Сортировать массив.

В столбцах таблицы будет реализована пошаговая визуализация процесса сортировки числового массива.

Рис. 4.54. Проект «Сортировка числового массива» на языке Turbo Delphi



Следующая страница Компьютерный практикум



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







Наверх