а) Постановка задачі.
Отримати нову матрицю, розділивши кожний елемент даної матриці на її найменший елемент.
б) Блок-схема алгоритму.
Блок-схему алгоритму роз’язання задачі наведено на рис. 7.
в) Текст програми:
Sub Dvovymirniy_masiv ()
' Оголошення змінних
Dim A(20,20) As Single
Dim B(20,20) As Single
Dim n As Integer, m As Integer
Dim i As Integer, j As Integer
Dim min As Single
' Уведення вихiдних даних
n = InputBox("Задайте кiлькiсть рядкiв матрицi n=")
m = InputBox("Задайте кiлькiсть стовбцiв матрицi m=")
' Уведення елементiв масива A
For i=1 To n
For j=1 To m
A(i,j) = InputBox("Уведіть елемент масива A(" + str(i) + "," + str(j) + ")=")
Next j
Next i
' Обрахування мiнiмального елемента
min = A(1,1)
For i=1 to n
For j=1 to m
If (A(i,j)<min) Then
min = A(i,j)
End If
Next j
Next i
If min = 0 Then
MsgBox("Найменший елемент дорiвнює нулю")
Else
' Обрахування масива результатiв i вивiд
For i=1 to n
For j=1 to m
B(i,j) = A(i,j)/min
MsgBox("Eлемент масива B(" + str(i) + "," + str(j) + ")=" + str(B(i,j)))
Next j
Next i
End If
End Sub
г) Контрольний приклад:
Виконаємо тестування програми при таких вихідних даних:
|
|
n=2, m=3,
Мінімальний елемент min=2
Задайте кiлькiсть рядкiв матрицi n=2;
Задайте кiлькiсть стовбцiв матрицi m=3;
Задайте елемент масива А[1,1]=2;
Задайте елемент масива А[1,2]=4;
Задайте елемент масива А[1,3]=6;
Задайте елемент масива А[2,1]=8;
Задайте елемент масива А[2,2]=10;
Задайте елемент масива А[2,3]=12;
B[1,1]=1
B[1,2]=2
B[1,3]=3
B[2,1]=4
B[2,2]=5
B[2,3]=6
Список літератури
1) Камминг, Стив. VBA для "чайников", 3-е издание.: Пер.с англ. – М.: Издательский дом "Вильямc", 2001. – 448 c.
2) А. Васильев, А. Андреев. VBA в Office 2000. C.-Пб.: Питер, 2001. – 409 c.
3) Демидова Л.А., Пылькин А.Н. Программирование в среде Visual Basic for Application. М.: Телеком, 2004 – 362 с.
4) Гетц К., Джилберт М. Программирование в Microsoft Office. К.: Издательская группа BHV, 1999 – 286 с.
5) Глушаков С.В. Microsoft Office 2000. – Харьков: Фолио, 2001 – 184 с.
6) Вальдрат О. Робота в Microsoft Office 2000. – К.: ЦУЛ, 2000 – 215с.
7) Слепцова Л.Д. Программирование на языке VBA. Самоучитель. М.: Вильямс, 2003 – 312с.