Информатика_ЗФ / Лабораторный практикум по программированию / Лабораторный_практикум_по_программированию_4

Чтобы их увидеть, создадим процедуру обработки события Click для четвертой командной кнопки CmdRezultat с надписью «Визуализация результатов» и впишем в нее программный код.

Private Sub CmdRezultat_Click() TxtMin.Value = amin TxtI.Value = imin

End Sub

Пояснение. Переменные amin и imin выводим в элементы управления TextBox (Текстовое поле или окно ввода) TxtMin и TxtI при помощи свойства Value.

Программный код полностью представлен в окне программы VBA на рисунке 12.

Рис. 12. Программный код в окне программы VBA

31

Запустите ваше приложение, выбрав команду Run Run Sub/UserForm или нажав функциональную клавишу F5. Появится экранная форма (рис. 13).

В качестве тестовых значений исходных данных возьмем одномерный массив А, состоящий из семи элементов: массив А = (3,-6,4,5,-3,8,2),

Рис. 13. Экранная форма после запуска приложения

После щелчка на первой командной кнопке с надписью «Ввод (заполнение) массива» появится диалоговое окно ввода переменной n (рис. 14).

Рис. 14. Диалоговое окно ввода переменой n – результат использования функции InputBox("Введите n")

Введем количество элементов массива – 7 – и нажмем кнопку ОК либо клавишу Enter.

Появится диалоговое окно ввода 1-го элемента массива a(1) c соответствующей поясняющей надписью (рис. 15).

32

Задачи для самостоятельного выполнения

Разработать алгоритм и составить программу решения следующих задач. Произвести ввод, редактирование, тестирование, отладку программы, решение и анализ результатов решения задач на компьютере.

Вариант 1. Дан массив А (а1, а2, ..., аn). Найти среднее арифметическое отрицательных элементов. Найти максимальный элемент из элементов, стоящих на четных местах.

Вариант 2. Дан массив А (а1, а2, ..., аn). Найти индекс максимального элемента из элементов, стоящих на четных местах и произведение отрицательных элементов.

Вариант 3. Дан массив А (а1, а2, ..., аn). Найти среднее арифметическое положительных элементов, стоящих на четных местах. Найти индекс максимального элемента.

Вариант 4. Дан массив А (а1, а2, ..., аn). Найти произведение отрицательных элементов, стоящих на четных местах, и отсортировать массив по возрастанию.

Вариант 5. Дан массив А (а1, а2, ..., аn). Переместить нулевые элементы массива в конец, сдвинув остальные элементы влево.

Вариант 6. Дан массив А (а1, а2, ..., аn). Переместить нулевые элементы массива в начало, сдвинув остальные элементы вправо.

Вариант 7. В массиве А (а1, а2, ..., аn) определить первый отрицательный элемент и его номер.

Вариант 8. В одномерном массиве А (а1, а2, ..., аn) перенести в начало максимальный элемент.

Вариант 9. Дан массив А (а1, а2, ..., аn), где n – число четное. Получить новый массив B (b1, b2, ..., bn/2) по следующему правилу (b1=а1 + аn, b2=а2+аn-1 и т.д.). Найти минимальный элемент полученного массива.

Вариант 10. В одномерном массиве А (а1, а2, ..., аn) перенести в конец минимальный элемент.

Вариант 11. Дан массив А (а1, а2, ..., аn). Найти максимальный и минимальный элементы массива А и поменять их местами.

Вариант 12..Дан массив А (а1, а2, ..., аn). Переписать в массив В подряд положительные элементы массива А.

Вариант 13. Дан массив А (а1, а2, ..., аn). Переписать в массив В подряд сначала отрицательные элементы массива А, а затем положительные.

Вариант 14. Дан массив А (а1, а2, ..., аn). Переписать в массив В подряд элементы массива А (а1, а2, ..., аn), значения которых по модулю лежат в заданном диапазоне от b до с (b ai c). Значения переменных b и с вводятся.

Вариант 15. Дан массив А (а1, а2, ..., аn). Переписать в массив N подряд индексы элементов массива А (а1, а2, ..., аn), значения которых по модулю лежат в заданном диапазоне от b до с (b ai c). Значения переменных b и с вводятся.

34

Методические указания к выполнению задания B

Самый простой способ – заполнить двумерный массив элементами (как, впрочем, и одномерный) с помощью операторов присваивания. Например:

A(1,1)=3

A(1,2)=1

A(2,1)=-5

A(1,2)=7

Следующий простой способ – последовательная запись вводимых элементов массива в операторе ввода. Но этот способ применим только для ввода небольшого количества элементов. При больших размерах массивов операторы ввода помещают внутри цикла, и при каждом выполнении цикла осуществляется ввод одного элемента.

Ввод и вывод элементов двумерного массива представляют собой сложный циклический процесс с количеством вложений, равным двум, т.е. цикл в цикле, т.к. элементы двумерного массива имеют два индекса – индекс строки и индекс столбца.

В нижеприведенном фрагменте программы на языке QBasic ввод элементов матрицы размером m × n производится по строкам.

10 INPUT “Введите размер матрицы – M и N”;M,N

Номера строк приведены, чтобы на них можно было сослаться, а вообще они необязательны.

В строках 50–100 происходит построчный ввод матрицы. Для этого оператор INPUT помещен внутрь двух вложенных циклов. Имеет смысл разобрать алгоритм ввода матрицы более подробно. Оператор внешнего цикла (строка 50) задает параметру цикла I значение, равное 1. Так как I<М, то выполняются все операторы, входящие в этот цикл. Первым таким оператором является оператор внутреннего цикла (строка 60), который задает параметру J значение 1. Затем вводится элемент массива А(1,1) (строка 80). С помощью строки 70 на экран выводится подсказка, в которой указывается, какой элемент должен вводится в этом цикле. В строке 90 осу-

35

ществляется переход на продолжение внутреннего цикла J=2,3,...,N. Как только параметр J превысит значение N, внутренний цикл считается выполненным для данного значения I. После окончания внутреннего цикла оператор внешнего цикла (строка 50) присваивает параметру I значение 2 и снова повторяет внутренний цикл N раз. После M-кратного выполнения внешнего цикла ввод матрицы считается выполненным.

Последовательность записи значений элементов при вводе по строкам следующая (при установлении нижней границы индекса равной 1):

A(1,1), A(1,2), A(1,3), ..., A(1,M), A(2,1), A(2,2), A(2,3), ..., A(2,M), ..., A(M,1), A(M,2), A(M,3), ..., A(M,N),

т.е. элементы первой строки, затем второй и т.д., и наконец – элементы последней M-й строки.

Элементы двумерного массива могут быть введены по столбцам: 10 INPUT “Введите размер матрицы – M и N”;M,N

20 OPTION BASE 1

Вэтом случае внешний цикл организуется по параметру J (столбец),

авнутренний – по параметру I (строка). Последовательность записи при вводе по столбцам:

A(1,1), A(2,1), A(3,1), ..., A(M,1), A(1,2), A(2,2), A(3,2), ..., A(M,2), ..., A(1,N), A(2,N), A(3,N), ..., A(M,N),

т.е. элементы первого столбца, затем второго и т.д., и наконец – последнего N-го столбца.

Вывод массивов может осуществляться такими же последовательностями операторов, что и ввод, но вместо оператора INPUT записываются операторы PRINT или PRINT USING. Эти операторы рекомендуется использовать на этапе отладки и тестирования программы. Ввод и вывод массивов рассмотрим в конкретных примерах.

Вычислить сумму всех отрицательных чисел матрицы А размерно-

стью M × N, где M<100 и N<100.

Визуальное представление алгоритма вычисления суммы всех отрицательных чисел двумерного массива (матрицы) А размерностью M × N представлено на рисунке 17.

36

Сначала это построчный ввод элементов матрицы (блок 3), т.е. происходит заполнение двумерного массива. Блок 3 представляет собой сложный циклический процесс, т.к. элемент двумерного массива A(I, J) имеет два индекса: индекс строки I и индекс столбца J.

Вблоке 4 происходит вывод данного массива на экран – визуализация массива (с поясняющей надписью). Блок 4 представляет собой также сложный циклический процесс.

Вданной задаче необходимо вычислить сумму отрицательных элементов всей матрицы, поэтому начальное значение суммы задаем перед внешним циклом, а накапливаем сумму во внутреннем цикле. Перед тем как суммировать очередной элемент, проверяем его знак. В случае, если элемент отрицательный, прибавляем его к сумме. В противном случае переходим к следующему элементу матрицы.

120 REM печать элементов матрицы

130 PRINT SPC(12) "ИСХОДНАЯ МАТРИЦА"

270 PRINT "Сумма отрицательных чисел равна ";S

280 END

38

Пояснение. Номера строк в программе приведены, чтобы на них можно было сослаться, а вообще они необязательны.

Ввод матрицы происходит построчно. Для этого оператор INPUT помещен внутрь двух вложенных циклов. Заголовок внешнего цикла (строка 10) задает параметру цикла I значение, равное 1. Так как I<М, то выполняются все операторы, входящие в этот цикл. Первым таким оператором является заголовок внутреннего цикла (строка 20), который задает параметру J значение 1. Затем вводится элемент массива А (1,1) (строка 40). С помощью строки 30 на экран выводится подсказка, в которой указывается, какой элемент должен вводиться в этом цикле. В строке 50 осуществляется переход на продолжение внутреннего цикла J=2,3,...,N. Как только параметр J превысит значение N, внутренний цикл считается выполненным для данного значения I. После окончания внутреннего цикла оператор внешнего цикла (строка 10) присваивает параметру I значение 2 и снова повторяет внутренний цикл N раз. После M-кратного выполнения внешнего цикла ввод матрицы считается выполненным.

Последовательность присваивания значений элементов при вводе по строкам следующая (при установлении нижней границы индекса, равной 1):

A(1,1), A(1,2), A(1,3),..., A(1,M), A(2,1), A(2,2), A(2,3),...,A(2,M),..., A(M,1), A(M,2), A(M,3),..., A(M,N),

Строки программы, в которых происходит вывод исходной матрицы, так же, как и ввод матрицы, представляют собой вложенный цикл. Отметим использование функции TAB для выравнивания элементов матрицы при выводе. Знак «;» в конце оператора

PRINT TAB(10*J) A(I, J);

ставится, чтобы все элементы одной строки массива А находились на одной и той же строке вывода. Пустой оператор PRINT нужен, чтобы в конце строки массива перейти к следующей строке вывода.

Обработка матрицы также представляет собой вложенный цикл, внутрь которого включена структура «ветвление» для того, чтобы каждый элемент матрицы сравнивать с нулем. Если очередной элемент матрицы меньше нуля (A(I,J)<0), происходит суммирование отрицательных элементов матрицы.

В качестве тестового варианта возьмем матрицу размером 3×3, в которой есть отрицательные элементы

то результаты выполнения программы следующие (рис. 18).

39