Порядок выполнения задания №1. 1. Использовать алгоритмы, разработанные в лабораторной работе №2

1. Использовать алгоритмы, разработанные в лабораторной работе №2

2. Интерфейс пользователя соответствует рис. Л7.1.

3. Ввод элементов массива с помощью функции InputBox.

4. Способ вывода результатов представлен в табл. Л7.1.

5. Составить программу решения и решить ее на ПК.

Пример выполнения лабораторной работы

Составить алгоритм и программу сортировки по возрастанию одномерного массива Х=х_i, i=1,2,...,6 вещественных чисел. 1. Алгоритм упорядочения:

 

 

2. Таблица свойств объектов

Объект	Свойство	Значение свойства
Форма 1	Caption	Обработка одномерного массива
CommandButton1	Caption	Запуск программы
CommandButton2	Caption	Закрыть проект
TextBox1	Text
Label1	Caption	Результат решения

3. Интерфейс на рис. Л7.1. Вывод результата решения по условию нулевого варианта не в окно TextBox1, а в окно отладки Immediate Window.

4. Процедура отклика кнопки 1:

Private Sub CommandButton1_Click()

Dim x(1 To 6), a As Single

Dim i, p As Integer

For i = 1 To 6 ‘ Цикл для ввода массива

x(i) = Val(InputBox(" Введите " & i & " элемент массива "))

Next i

1: p = 0

For i = 1 To 5 ‘ Цикл для обработки массива

If x(i) > x(i + 1) Then a = x(i): x(i) = x(i + 1): x(i + 1) = a: p = 1

Next i

If p = 1 Then GoTo 1

Debug.Print "Упорядоченный по возрастанию массив " ‘ Вывод заголовка

For i = 1 to 6 ‘ Цикл для вывода упорядоченного массива

Debug.Print x(i) ‘ Вывод в окно отладкиImmediate Window

Введем массив: 6, 4,3,1,2, 5 Результат решения в окне отладки Immediate Window (рис. Л7.3).

Next i

End Sub

Private Sub CommandButton2_Click()

End

End Sub