Студопедия
Новини освіти і науки:
МАРК РЕГНЕРУС ДОСЛІДЖЕННЯ: Наскільки відрізняються діти, які виросли в одностатевих союзах


РЕЗОЛЮЦІЯ: Громадського обговорення навчальної програми статевого виховання


ЧОМУ ФОНД ОЛЕНИ ПІНЧУК І МОЗ УКРАЇНИ ПРОПАГУЮТЬ "СЕКСУАЛЬНІ УРОКИ"


ЕКЗИСТЕНЦІЙНО-ПСИХОЛОГІЧНІ ОСНОВИ ПОРУШЕННЯ СТАТЕВОЇ ІДЕНТИЧНОСТІ ПІДЛІТКІВ


Батьківський, громадянський рух в Україні закликає МОН зупинити тотальну сексуалізацію дітей і підлітків


Відкрите звернення Міністру освіти й науки України - Гриневич Лілії Михайлівні


Представництво українського жіноцтва в ООН: низький рівень культури спілкування в соціальних мережах


Гендерна антидискримінаційна експертиза може зробити нас моральними рабами


ЛІВИЙ МАРКСИЗМ У НОВИХ ПІДРУЧНИКАХ ДЛЯ ШКОЛЯРІВ


ВІДКРИТА ЗАЯВА на підтримку позиції Ганни Турчинової та права кожної людини на свободу думки, світогляду та вираження поглядів



Контакти
 


Тлумачний словник
Авто
Автоматизація
Архітектура
Астрономія
Аудит
Біологія
Будівництво
Бухгалтерія
Винахідництво
Виробництво
Військова справа
Генетика
Географія
Геологія
Господарство
Держава
Дім
Екологія
Економетрика
Економіка
Електроніка
Журналістика та ЗМІ
Зв'язок
Іноземні мови
Інформатика
Історія
Комп'ютери
Креслення
Кулінарія
Культура
Лексикологія
Література
Логіка
Маркетинг
Математика
Машинобудування
Медицина
Менеджмент
Метали і Зварювання
Механіка
Мистецтво
Музика
Населення
Освіта
Охорона безпеки життя
Охорона Праці
Педагогіка
Політика
Право
Програмування
Промисловість
Психологія
Радіо
Регилия
Соціологія
Спорт
Стандартизація
Технології
Торгівля
Туризм
Фізика
Фізіологія
Філософія
Фінанси
Хімія
Юриспунденкция






Код програми

 

Private Sub CommandButton1_Click()

Dim n As Integer, i As Integer, j As Integer, sa As String

Dim a() As Single, m1 As Single, m2 As Single, m As Single

n = InputBox("Введіть розмір матриці n=")

ReDim a(n, n)

sa = ""

For i = 1 To n

For j = 1 To n

a(i, j) = InputBox("a(" & CStr(i) & "," & CStr(j) & ")=")

sa = sa & CStr(a(i, j)) & " "

Next j

sa = sa & vbCrLf

Next i

TextBox1.Text = sa

If CheckBox1.Value = True Then

m1 = a(1, 2)

For i = 1 To n - 1

For j = i + 1 To n

If a(i, j) > m1 Then m1 = a(i, j)

Next j

Next i

m = m1

End If

If CheckBox2.Value = True Then

m2 = a(1, 1)

For i = 1 To n - 1

For j = 1 To n - i

If a(i, j) > m2 Then m2 = a(i, j)

Next j

Next i

m = m2

End If

If CheckBox1.Value = True And CheckBox2.Value = True Then

If m1 > m2 Then m = m1 Else m = m2

End If

TextBox2.Text = CStr(m)

End Sub

 

Результати розрахунків наведені на рис. 4.23.

 

 

Рисунок 4.23 - Результати розрахунків



Читайте також:

  1. II. Вимоги до складання паспорта бюджетної програми
  2. II. ПРОГРАМИ ДИСЦИПЛН
  3. А.2.1. Розрахунок річної виробничої програми міських СТОА
  4. А.2.2.Розрахунок виробничої програми дорожніх СТОА
  5. Авторське право на комп’ютерні програми
  6. Алгоритм розроблення програми комплексу маркетингу
  7. Алгоритм створення тренінгової програми
  8. Алфавіт мови і структура програми
  9. Аналіз формування й виконання виробничої програми
  10. Анімаційні програми
  11. Антивірусні програми
  12. Важливою складовою економічної політики 60-х рр. була реалізація програми “нових рубежів” президента Дж. Кенеді.




Переглядів: 374

<== попередня сторінка | наступна сторінка ==>
Приклад 4.3.3 | ЗАГАЛЬНІ ПОЛОЖЕННЯ

Не знайшли потрібну інформацію? Скористайтесь пошуком google:

 

© studopedia.com.ua При використанні або копіюванні матеріалів пряме посилання на сайт обов'язкове.


Генерація сторінки за: 0.004 сек.