Приклад виконання лабораторної роботи № 7

а) Постановка задачі.

Отримати нову матрицю, розділивши кожний елемент даної матриці на її найменший елемент.

б) Блок-схема алгоритму.

Блок-схему алгоритму роз’язання задачі наведено на рис. 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с.