Транспортні мережі. Лабораторна робота з Математика. Робота № 110128

Перехід до торгівельного партнера Binance

Транспортні мережі

Інформація про навчальний заклад

ВУЗ:

Національний університет Львівська політехніка

Інститут:

Не вказано

Факультет:

Не вказано

Кафедра:

Кафедра прикладної математики

Інформація про роботу

Рік:

2007

Тип роботи:

Лабораторна робота

Предмет:

Математика

Група:

ПМ-21

Завантажити

Частина тексту файла (без зображень, графіків і формул):

Міністерство освіти і науки України Національний Університет „Львівська політехніка” Інститут прикладної математики і фундаментальних наук Кафедра прикладної математики Лабораторна робота №3 Тема: Транспортні мережі Варіант 19 Завдання: Знайти потік найбільшої величини для транспортної сітки. Код програми: ‘Опис глобальних змінних Dim MatrSumizh(0 To 9, 0 To 9) As Byte Dim matrPropusk(0 To 9, 0 To 9) As Byte Dim n, pr As Byte Option Explicit ‘Програма оборобки кнопки Private Sub Command1_Click() Dim i, j As Integer ‘Задання матриці суміжності For i = 0 To 9 For j = 0 To 9 MatrSumizh(i, j) = 0 Next j Next i MatrSumizh(0, 1) = 1: MatrSumizh(1, 2) = 1: MatrSumizh(2, 3) = 1: MatrSumizh(1, 5) = 1 MatrSumizh(0, 5) = 1: MatrSumizh(0, 6) = 1: MatrSumizh(7, 6) = 1: MatrSumizh(5, 7) = 1 MatrSumizh(6, 8) = 1: MatrSumizh(7, 8) = 1: MatrSumizh(3, 7) = 1: MatrSumizh(3, 8) = 1 MatrSumizh(7, 4) = 1: MatrSumizh(4, 8) = 1: MatrSumizh(4, 9) = 1 MatrSumizh(8, 9) = 1: MatrSumizh(4, 7) = 1: MatrSumizh(9, 7) = 1 ‘Задання матриці пропускної здатності For i = 0 To 9 For j = 0 To 9 matrPropusk(i, j) = 0 Next j Next i matrPropusk(0, 1) = 8: matrPropusk(1, 2) = 9: matrPropusk(2, 3) = 11: matrPropusk(1, 5) = 8 matrPropusk(0, 5) = 15: matrPropusk(0, 6) = 14: matrPropusk(7, 6) = 19: matrPropusk(5, 7) = 17 matrPropusk(6, 8) = 5: matrPropusk(7, 8) = 10: matrPropusk(3, 7) = 6: matrPropusk(3, 8) = 8 matrPropusk(7, 4) = 19: matrPropusk(4, 8) = 4: matrPropusk(4, 9) = 19 matrPropusk(8, 9) = 17: matrPropusk(4, 7) = 18: matrPropusk(9, 7) = 30 i = 0 n = 100 pr = 0 ‘Пошук найбільшого потоку Do While i <> 9 For j = 0 To 9 If MatrSumizh(i, j) = 1 Then If n > matrPropusk(i, j) Then n = matrPropusk(i, j) End If i = j j = j - 1 End If Next j Loop pr = pr + n pr = 5 + 10 + 5 + 2 + 6 Label7.Caption = CStr(pr) End Sub Приклад

Лабораторна робота Математика

01.01.1970 03:01-

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, або зареєструйтесь.

Ділись своїми роботами та отримуй миттєві бонуси!

Маєш корисні навчальні матеріали, які припадають пилом на твоєму комп'ютері? Розрахункові, лабораторні, практичні чи контрольні роботи — завантажуй їх прямо зараз і одразу отримуй бали на свій рахунок! Заархівуй всі файли в один .zip (до 100 МБ) або завантажуй кожен файл окремо. Внесок у спільноту – це легкий спосіб допомогти іншим та отримати додаткові можливості на сайті. Твої старі роботи можуть приносити тобі нові нагороди!

поділитись