ДЛЯ ОСОБО ТУПЫХ,СКАЖИТЕ КАК ЭТО ДЕЛАТЬ Используя текстовый редактор, подготовьте небольшой отчет на тему «Модели систем», выполнив два следующих задания.
ЗАДАНИЕ 2. Модель состава системы
Изобразите графическими средствами модель состава систем, рассмотренных в первом задании. Обоснуйте вашу модель с точки зрения ее назначения. Отметьте, какие составляющие системы в этой модели рассматриваются в качестве элементов, а какие в качестве подсистем.
Dim A(10, 10)
X0 = 6
h = 0.25
Max = -1000
x = X0
For i = 1 To 10
For k = 1 To 10
A(i, k) = Cos(x ^ 0.25 - 0.5 * x ^ 0.5 + 0.25 * x ^ 0.75)
If Max < A(i, k) Then
Max = A(i, k)
im = i
km = k
End If
x = x + h
Next k
Next i
' Вывод матрицы
For i = 1 To 10
For k = 1 To 10
Cells(i, k) = Int((0.0005 + A(i, k)) * 1000) / 1000 'Округление А до 3 знака
Next k
Next i
' вывод обрезаной матрицы
For i = 1 To 10
For k = 1 To 10
If i = im Then
Else
If k = km Then
Else
Cells(i + 12, k) = Int((0.0005 + A(i, k)) * 1000) / 1000
End If
End If
Next k
Next i
End Sub