Разработать информационную технологию, позволяющую вычислить произведение элементов матрицы А размерности m×n, имеющих чётные значения индексов строк.
Входные данные: m – целое число; n – целое число;
A=[aij], , – массив вещественных чисел.
Выходные данные: р – произведение элементов матрицы, имеющих чётные значения индексов строк, вещественное число.
Математическая модель:
Схема алгоритма:
Код приложения:
Option Base 1
Private Sub Command1_Click()
Dim i As Integer, j As Integer, m As Integer, n As Integer,
Dim p As Single, a() As Single
m=InputBox(“Введите количество строк матрицы”)
n=InputBox(“Введите количество столбцов матрицы”)
Redim a(m,n)
For i=1 To m
For j=1 To n
a(i,j)=InputBox(“a(“ & i & ”,” & j & ”)”)
Next
Next
p=1
For i=2 To m Step 2
For j=1 To n
р=р*a(i,j)
Next
Next
Print “ Произведение элементов матрицы с четными индексами _ строк =” & р
Print “Для матрицы”
For i=1 To m
For j=1 To n
Print Format (a(i,j), “0.00”);
Next
Next
End Sub
Аналогичный алгоритм можно использовать для нахождения произведения членов степенного ряда. В этом случае дополнительной переменной присваивается значение, равное первому члену степенного ряда.
|
|