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

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

Оценка 4.8
Карточки-задания
doc
информатика
9 кл—11 кл
10.03.2017
Проект «Сортировка числового массива»
1. Поместить на форму frm1 кнопку cmd1 и создать для неё событийную процедуру cmd1_Click(), реализующую заполнение массива случайными числами (см. предыдущую работу). 2. Определить переменные для всего программного модуля. Преобразовать событийную процедуру из проекта «Поиск в числовом массиве» в общую процедуру МинЭлемент(bytI, bytN As Byte),набранную в программном коде: Dim bytA(1 To 10), bytMin, bytI, bytJ, bytK, bytR, bytN As Byte
Проект_сортировка_числовой_массив.doc
Проект «Сортировка числового массива» 1. Поместить на форму frm1 кнопку cmd1 и создать  для неё событийную процедуру cmd1_Click(),  реализующую заполнение массива случайными  числами (см. предыдущую работу). 2. Определить переменные для всего программного  модуля. Преобразовать событийную процедуру из  проекта «Поиск в числовом массиве» в общую  процедуру МинЭлемент(bytI, bytN As  Byte),набранную в программном коде: Dim bytA(1 To 10), bytMin, bytI, bytJ, bytK, bytR, bytN As Byte ‘Общая процедура поиска минимального элемента Sub МинЭлемент(bytI, bytN As Byte) bytMin = bytA(bytI) bytN = bytI For bytJ = bytI + 1  To 10 If  bytA (bytJ) < bytMin  Then  bytMin = bytA(bytJ): bytN=bytJ Next bytJ End Sub Создать событийную процедуру сортировки. Для  осуществления перестановки использовать  промежуточную переменную bytR. Для визуализации  процесса сортировки для каждого цикла перестановки элементов (цикл по переменной bytI) в цикле по  переменной bytK  выводить в текстовое поле txtSort  значения элементов массива. 3. ‘ Событийная процедура сортировки Private Sub cmd2_Click() txtSort .Text = “ “ For bytI = 1 To 9 ‘ Вызов общей процедуры поиска минимального  элемента Call МинЭлемент(bytI, bytN) ‘ Перестановка bytR = bytA (bytI) bytA (bytI) = bytA (bytN) bytA (bytN) = bytR ‘Печать массива для каждого цикла перестановки For bytK = 1 To 10 txtSort . Text = txtSort . Text + Str(bytA(bytK)) Next bytK Next bytI End Sub 4. Запустить проект. Щёлкнуть по кнопкам  Заполнить массив и Сортировать. В текстовом поле будет реализована визуализация процесса сортировки  числового массива по шагам. Проект «Сортировка числового массива» 1. Поместить на форму frm1 кнопку cmd1 и  создать для неё событийную процедуру  cmd1_Click(), реализующую заполнение массива  случайными числами(см. предыдущую работу). . 2. Определить переменные для всего  программного модуля. Преобразовать  событийную процедуру из проекта «Поиск в  числовом массиве» в общую процедуру  МинЭлемент(bytI, bytN As  Byte),набранную в программном коде: Dim bytA(1 To 10), bytMin, bytI, bytJ, bytK,  bytR, bytN As Byte ‘Общая процедура поиска минимального  элемента Sub МинЭлемент(bytI, bytN As Byte) bytMin = bytA(bytI) bytN = bytI For bytJ = bytI + 1  To 10 If  bytA (bytJ) < bytMin  Then  bytMin = bytA(bytJ): bytN=bytJ Next bytJ End Sub Создать событийную процедуру сортировки.  Для осуществления перестановки использовать  промежуточную переменную bytR. Для  визуализации процесса сортировки для каждого  цикла перестановки элементов (цикл по  переменной bytI) в цикле по переменной bytK   выводить в текстовое поле txtSort значения  элементов массива. 3. ‘ Событийная процедура сортировки Private Sub cmd2_Click() txtSort .Text = “ “ For bytI = 1 To 9 ‘ Вызов общей процедуры поиска минимального  элемента Call МинЭлемент(bytI, bytN) ‘ Перестановка bytR = bytA (bytI) bytA (bytI) = bytA (bytN) bytA (bytN) = bytR ‘Печать массива для каждого цикла  перестановки For bytK = 1 To 10 txtSort . Text = txtSort . Text + Str(bytA(bytK)) Next bytK Next bytI End Sub 4. Запустить проект. Щёлкнуть по кнопкам  Заполнить массив и Сортировать. В текстовом поле будет реализована визуализация процесса сортировки  числового массива по шагам.

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

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

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

Проект «Сортировка числового массива»
Материалы на данной страницы взяты из открытых истончиков либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.
10.03.2017