Практическая работа №5. Работа с массивами

Задание.

 

Найдите значение максимального элемента одномерного массива

 

Массив – это совокупность нескольких переменных одного типа, которые могут принимать одинаковые или различные значения, объединенных одним общим именем (идентификатором) и идентифицируемых (адресуемых) вычисляемым индексом.

Различают статические и динамические массивы. Границы статических массивов устанавливаются на этапе разработки и могут изменяться только в новой версии программы. Динамические массивы изменяют свои границы в ходе выполнения программы.

Компонентами массива могут быть не только простейшие данные, но и структурные, в том числе массивы. В этом случае мы получаем массив массивов - многомерный массив. Для индексации элементарных компонент в этом случае может потребоваться два, три и более индексов.

Для решения этой задачи мы будем использовать две локальные процедуры – в первой введём элементы массива, а во второй – находить максимальный элемент, а также его вывод

è Блок-схема.

 

Наша блок-схема разбита на два блока: 1) ввод элементов массива, 2) нахождение максимального элемента. Каждый блок представляет собой отдельную программу (процедуру), которая выполняет определённую операцию. Для заполнения массива можно использовать цикл с предусловием или с постусловием.

 

è Откройте приложение MS Excel.

è Выполните команду Сервисà Макросà Редактор Visual Basic или нажмите < Alt+F11 >.

è Добавьте форму (команда Insertà UserForm)

è Для изменения размеров формы используйте указатель мыши помещённый в правый нижний угол окна Формы(UserForm)

è Разработайте пользовательский интерфейс, расположив на форме с помощью панели инструментов управления ( Viewà ToolBox ), следующие объекты управления: Label (Метка), TextBox (Текстовое поле), CommandButton (Командная кнопка), ListBox (Список).

è В окне Properties (Свойства) для каждого объекта управления установить свойства, приведённые в таблице 4.

 

Таблица 4

Элемент управления	Свойства	Значения
UserForm	Caption	Нахождение максимального элемента
Label1	Caption	Число элементов
TextBox1	Name	txtRazmer
Label2	Caption	Массив
ListBox1	Name	lstMassiv
Label3	Caption	Максимальный элемент
TextBox2	Name	txtMax
CommadButton1	Name	cmdVvodMassiva
Caption	Ввод массива
CommadButton2	Name	cmdMaxElement
Caption	Максимальный элемент

 

è Примерный интерфейс программы может выглядеть так:

 

 

è Код программы:

Dim Massiv() As Single, Size As Integer

Private Sub cmdVvodMassiva_Click()

Dim i As Integer

Size = Val(txtSize.Text)

ReDim Massiv(Size)

i = 1

Do While i < = Size

Massiv(i) = Val(InputBox(" Массив(" + Str(i) + Ä ")=", " Ввод массива"))

lstMassiv.AddItem " A(" + Str(i) + ")=" + Ä Str(Massiv(i))

i = i + 1

Loop

End Sub

Private Sub cmdMaxElement_Click()

Dim i As Integer

Max! = Massiv(1)

i = 1

Do Until i > Size

If Massiv(i) > Max Then Max = Massiv(i)

i = i + 1

Loop

txtMax.Text = Str(Max)

End Sub

è Задайте массив из 15 элементов и посмотрите как работает программа.

è Измените циклы в программе первый сделайте используя ключевое слово «Until» (с постусловием), а второй с ключевым словом «While» (с предусловием)

è Измените, код программы так, что бы она искала минимальный элемент в массиве

è Сохраните файл под именем «Нахождение максимального элемента»