Среднее арифметическое элементов на главной диагонали матрицы (Basic), страница 2

3) Математическая модель

4) Блок-схема алгоритма

5) Программа

Private Sub Command1_Click()

Dim i As Integer, N As Integer, x() As Double, y() As Double, z() As Double, p() As Double, Pr As Double, m As Integer

t = Val(InputBox("Введите размерность массивов x, y, z"))

k = Val(InputBox("Введите значение k"))

N = Val(InputBox("Введите значение N"))

ReDim x(1 To t)

ReDim y(1 To t)

ReDim z(1 To t)

ReDim p(1 To t)

For i = 1 To t

x(i) = Val(InputBox("Значение элемента x(" & i & ") равно "))

y(i) = Val(InputBox("Значение элемента y(" & i & ") равно "))

z(i) = Val(InputBox("Значение элемента z(" & i & ") равно "))

Next

S = Вывод(x)

V = Вывод(y)

W = Вывод(z)

Print "Значения элементов матрицы x={" & S & "}"

Print "Значения элементов матрицы y={" & V & "}"

Print "Значения элементов матрицы z={" & W & "}"

m = k - 1

Pr = 1

For i = m To N

p(i) = (x(i) ^ 2 + y(i) ^ 2 + z(i) ^ 2)

Pr = Pr * p(i)

Next

Print "Для k=" & k & " и N=" & N

Print "Произведение (x(i)^2+y(i)^2+z(i)^2) от (k-1) до N равно " & Pr

End Sub

Private Function Вывод(m As Variant) As String

Dim i As Integer, S As String

For i = LBound(m) To UBound(m)

S = S & m(i) & " "

Next

Вывод = S

End Function

6) Пример выполнения программы

Задача 2

Определить среднее арифметическое элементов на главной  диаго­нали матрицы

S=

Решение

1) Определить среднее арифметическое элементов на    главной  диаго­нали матрицы S.

2) Входные и выходные данные

Входные			Выходные
Имя	Тип	Примечание	Имя	Тип	Примечание
n	целое	размерность матрицы	SA	целое	Среднее арифметическое
S()	целое	Элемент матрицы S	S()	целое	Матрица S

3) Математическаямодель