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

Задача 6.

Задача 1.2 | Задача 1.4. | Задача 1.5. | Задача 1.6. | Задача 1.7. | Задание 2 | Задача 1. | Задача 2. | Задача 3. | Задача 4. |


Читайте также:
  1. VI. Общая задача чистого разума
  2. XV. СВЕРХЗАДАЧА. СКВОЗНОЕ ДЕЙСТВИЕ
  3. Возможно выделение определенных этапов развития семьи по соответствующим им задачам.
  4. Главная задача химии и основные этапы ее развития
  5. ДОКЛАД О ЗАДАЧАХ КРАСНОАРМЕЙСКИХ ДРАМКРУЖКОВ 13 января 1924 года
  6. Другие команды — и та же боевая задача
  7. Его задача — превращение индивидуальных знаний, опыта, навыков в доступные всем сотрудникам компании технологии реализации.

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

 

 

Блок – схема.

 

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

 

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-09-05; просмотров: 41 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Задача 5.| Перестановка столбцов.

mybiblioteka.su - 2015-2024 год. (0.005 сек.)