Студопедия

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника



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

Читайте также:
  1. E) Работа в цикле
  2. II. Работа над текстом и его оформление
  3. IV. Работа над задачами.
  4. IV. Работа над задачами.
  5. IV. Работа над задачами.
  6. IV. Работа над задачами.
  7. IV. Работа над задачами.
  8. IV. Работа над новым материалом.
  9. IV. Работа над новым материалом.
  10. IV. Работа над новым материалом.

Задание.

 

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

 

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

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

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

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

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

 

Наша блок-схема разбита на два блока: 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» (с предусловием)

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

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

 


Дата добавления: 2014-11-13; просмотров: 34; Нарушение авторских прав


<== предыдущая лекция | следующая лекция ==>
Практическая работа №4. Программирование повторений | Практическая работа №6. Процедуры и функции
lektsii.com - Лекции.Ком - 2014-2018 год. (0.008 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав
Главная страница Случайная страница Контакты