Основы алгоритмизации и программирования. «ss4r Проект «Поиск в числовом массиве»

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

1. Поместить на форму f rml кнопку cmdl и создать для нее
событийную процедуру cmdl_Click (), реализующую за­
полнение массива случайными числами.

Значение минимального элемента будем хранить в пере­менной bytMin, а его индекс — в переменной bytN. Будем считать сначала, что минимальный элемент равен первому элементу массива bytA(l), поэтому присвоим переменной bytMin его значение.

Затем в цикле сравним последовательно элементы масси­ва со значением переменной bytMin. Если какой-либо эле­мент окажется меньше, присвоим его значение переменной bytMin, а его индекс — переменной bytN — и так до самого последнего элемента. Результат поиска выведем на форму.

2. Поместить на форму кнопку cmd2 и создать для нее собы­
тийную процедуру cmd2_Click (), реализующую поиск:

Dim bytA (l To 100), bytl, bytN As Byte Sub cmd2_Click() 'Поиск минимального элемента bytMin = bytA(l) bytN = 1

For bytl = 2 To 100 If bytA(bytl) < bytMin Then bytMin = bytA(bytl): bytN = bytl Next bytl

frml. Print "Минимальный элемент "; bytMin; "его индекс"; bytN End Sub

ISLsi

1 его индекс7 0 его индекс 25 1 его индекс 57 О его индекс 50 0 его индекс 13

Найти Мш элемент

Запустить проект. Щелк­нуть по кнопкам Запол­нишь массив и Найти Min элемент несколько раз. На форме будут напечата­ны результаты поиска ми­нимального элемента для различных вариантов за­полнения массива.

*. Поисквьисловоммжсузае

Минимальный элемент Минимальный элемент Минимальный элемент Минимальный элемент Минимальный элемент

? Заполнить I массив

Проект хранится в каталоге *_ -_Л.. *т<з^
\textbook\VB\prjVB15\ CD-ROM 1Щ³