Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Задача 6. Вычислить количество нулевых элементов матрицы А, расположенных выше главной диагонали




Вычислить количество нулевых элементов матрицы А, расположенных выше главной диагонали. Найти минимальный элемент среди положительных элементов матрицы.

 

 

Блок – схема.

 

Добавить необходимые элементы управления (см. рисунок).

 

TextBox2
TextBox1
CommandButton1

 

 

Событийная процедура кнопки Вычислить.

 

Private Sub CommandButton1_Click()

Dim A(1 To 5, 1 To 5) As Single, i, j, k As Integer, min As Single

Вычисление количества нулевых элементов матрицы, расположенных выше главной диагонали

k = 0

For i=1 To 5

For j=1 To 5

A(i, j) = Cells(i+1, j)

If i < j And A(i, j) = 0 Then k = k + 1

Next j

Next i

Вычисление минимального среди положительных элементов

min = 10 ^ 5

For i=1 To 5

For j=1

If A(i, j) > 0 And A(i, j )< min Then min = A(i, j)

Next j

Next i

TextBox1.Value = k

TextBox2.Value = min

End Sub







Дата добавления: 2015-08-12; просмотров: 317. Нарушение авторских прав


Рекомендуемые страницы:


Studopedia.info - Студопедия - 2014-2020 год . (0.001 сек.) русская версия | украинская версия