Программный элемент накопление / 7 (3)

ЗАДАНИЯ К ЛАБОРАТОРНОЙ РАБОТЕ №7

«ПРОГРАММНЫЙ ЭЛЕМЕНТ НАКОПЛЕНИЕ»

В АРИАНТ 7

1.1) Словесное описание задачи:

Вычислить значение величины

1.2) Описание постановки задачи:

Состав входных и выходных данных:

Входные данные:

N – переменная целого типа,

{X} – массив вещественных чисел, {Y} – массив вещественных чисел.

{Z} – массив вещественных чисел.

Выходные данные:

M – переменная вещественного типа.

1.3) Математическое описание задачи:

1.4) Схема алгоритма решения задачи:

1.5) Листинг кода программы:

Private Sub Command1_Click()

Dim N As Integer, X() As Single, Y() As Single, Z() As Single, i As Integer, M As Single

N = InputBox("N=")

ReDim X(1 To N), Y(1 To N), Z(1 To N)

Print "{X}=";

For i = 1 To N

X(i) = InputBox("X(" & i & ")=")

Print X(i) & " ";

Next

Print

Print "{Y}=";

For i = 1 To N

Y(i) = InputBox("Y(" & i & ")=")

Print Y(i) & " ";

Next

Print

Print "{Z}=";

For i = 1 To N

Z(i) = InputBox("Z(" & i & ")=")

Print Z(i) & " ";

Next

Print

M = 1

For i = 1 To N

M = M * (X(i) ^ 2 + Y(i) ^ 2 + Z(i) ^ 2)

Next

Print "M=" & M

End Sub

1.6) Выполнение проекта:

2.1) Словесное описание задачи:

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

2.2) Описание постановки задачи

Состав входных и выходных данных:

Входные данные:

m – перменная целого типа,

n – перменная целого типа,

{S} – массив вещественных чисел.

Выходные данные:

A – перменная вещественного типа.

2.3) Математическое описание задачи:

2.4) Схема алгоритма решения задачи:

2.5) Листинг кода программы:

Private Sub Command1_Click()

Dim m As Integer, n As Integer, S() As Single, k As Integer, i As Integer, j As Integer, A As Single

m = InputBox("Введите количество строк")

n = InputBox("Введите количество столбцов")

ReDim S(1 To m, 1 To n)

Print "S="

For i = 1 To m

For j = 1 To n

S(i, j) = InputBox("S(" & i & ", " & j & ")=")

Print S(i, j) & " ";

Next

Print

Next

A = 0

If m <= n Then

k = m

Else

k = n

End If

For i = 1 To k

A = A + S(i, i)

Next

A = A / k

Print "Ср. арифметическое гл. диагонали=" & A

End Sub

2.6) Выполнение проекта: