Код программы на Visual Basic

Министерство образования и науки Российской Федерации Министерство образования республики Таджикистан Российско – Таджикский (славянский) Университет

Факультет Управления и ИТ

Кафедра информатики и информационных систем

Лабораторная работа №­4

По дисциплине: ТС и Са

На тему: «Определение существенных факторов методом экспертных оценок»

Выполнил: студент 4– го курса

Отделения Прикладная

Информатика группа «Б» Солиев А

Принял: ЛИ И Р.

Душанбе 2015

Цель работы

Целью работы является освоение метода экспертных оценок, на основе которого определяются существенные факторы моделей реальных явлений, процессов, объектов и систем на этапе моделирования в системном анализе.

Теоретическая сведения.

Моделирование-это процесс создания модели, отображающей свойства реального явления, процесса, объекта или системы.

Эксперт- это комплексное лицо, имеющие глубокие знания о предмете или объекте исследования и большой опыт практической работы.

Сущность метода экспертных оценок заключается в проведении специалистом работающими в данной области, интуитивно логического анализа проблемы количественной оценкой суждений и формальной обработкой результатов этого анализа.

Получаемое в результате обработки обобщенное мнение экспертов используется как решение исследуемой проблемы.

Решение Задачи № 8

Код программы на Visual Basic

Private Sub Command1_Click()

Dim x(1 To 5, 1 To 6)

Dim r(1 To 6)

Dim rot(1 To 6)

Dim q(1 To 6)

m = 0

s = 0

n = 6

x(1, 1) = 6: x(1, 2) = 5: x(1, 3) = 2: x(1, 4) = 1: x(1, 5) = 4: x(1, 6) = 3

x(2, 1) = 5: x(2, 2) = 6: x(2, 3) = 1: x(2, 4) = 2: x(2, 5) = 3: x(2, 6) = 4

x(3, 1) = 5: x(3, 2) = 6: x(3, 3) = 2: x(3, 4) = 1: x(3, 5) = 3: x(3, 6) = 4

x(4, 1) = 6: x(4, 2) = 5: x(4, 3) = 2: x(4, 4) = 1: x(4, 5) = 4: x(4, 6) = 3

x(5, 1) = 3: x(5, 2) = 4: x(5, 3) = 1: x(5, 4) = 2: x(5, 5) = 5: x(5, 6) = 6

For i = 1 To 6

For j = 1 To 5

r(i) = r(i) + x(j, i)

Next j

m = m + r(i)

Print r(i),

Next i

Print

Print m

m = 1 / n * m

Print m

For i = 1 To 6

rot(i) = r(i) - m

Print rot(i),

q(i) = rot(i) ^ 2

Print q(i),

s = s + q(i)

Next i

Print

Print s

w = 12 * s / (m ^ 2 * (n ^ 3 - n))

Print w

p = r(2) - r(2) * 0.1

Print p

End Sub

Выполнение программы:

И в результате получаем:

Так как факторы X3, X4, X5, X6 имеют , то они существенные, а факторы X1 и X2 – несущественные.