8.9. Программа поиска наибольшего элемента массива

Public Sub Massiv() 'Начало

'Список данных

Dim a, b, c, d As Integer 'в ОЗУ отводится место для переменных

Dim mas(4, 4) As Integer 'в ОЗУ отводится место для массива

'Конец списка

'Ввод значений элементов массива размером 4 на 4

For i = 1 To 4 'начинаем цикл по переменной i, изменение первого индекса

For j = 1 To 4 'изменение второго индекса

'в следующем операторе используется функция InputBox для ввода данных

'при выполнении функции выводится окно диалога InputBox

mas(i, j) = InputBox("Ввод значения элемента mas( " & i & ", " & j & " )", , 10)

Next j 'конец цикла по j

Next i 'конец цикла по i

'определение наибольшего элемента массива

b = mas(1, 1) 'переменной b присваивается значение элемента mas(1,1)

For i = 1 To 4

For j = 1 To 4

If mas(i, j) > b Then 'если очередной элемент массива больше

b = mas(i, j) 'записать его значение в переменную b

c = i 'в переменную с записать значение первого индекса

d = j 'в переменную с записать значение второго индекса

End If

Next j

Next i

'вывод значения наибольшего элемента массива в окно диалога MsgBox

MsgBox "Наибольший элемент массива mas( " & c & " , " & d & " )" & " , равен " & b

End Sub 'Конец

8.10. Линейные алгоритмы

Ход занятия. Используя стандартные средства VBA разработать программы, для решения задач, связать их с кнопками на панелях инструментов. Программы разрабатывать в документе Word. Предлагаемый перечень задач:

ЗАДАЧА 1

Составить алгоритм на VBA для вычисления и печати значений функции Y, заданной формулой:

;

в алгоритме предусмотреть ввод аргумента x и вывод на печать введенной информации и результатов решения.

ЗАДАЧА 2

Известно, что система уравнений

имеет решение:

Составить алгоритм на VBA для вычисления и печати значений x и y по известным численным значениям коэффициентам A1, B1, C1, A2, B2, C2, являющихся исходными данными для алгоритма.

ЗАДАЧА 3

Составить алгоритм на VBA в случае (а), обеспечивающий присваивание переменной A значение “1” при выполнении следующего условия:

а). переменная X принадлежит отрезку ]0;1[

ЗАДАЧА 4

Составить алгоритм на VBA для вычисления и печати значений функции Y, заданной формулой:

В алгоритме предусмотреть ввод аргументов X и Z на вывод на печать введенной информации и результатов расчета.

ЗАДАЧА 5

Разработать алгоритм для вычисления и печати значения переменной X равному квадрату наименьшего одного из двух чисел A и B.