Лабораторные по Информатике / Лабораторная работа Накопление 4 / Вариант 19
.doc
“ Программный элемент НАКОПЛЕНИЕ ”
ЗАДАНИЕ 1
-
Математическое описание
-
Вычислить произведение элементов с индексами 2, 6, 8, 4 одномерного массива M размерности К. Проанализировать выполнение программы на примере
М={2; 4; 6; -3; 8; 12; -6, 1}
-
Входные данные: {X}; J – вещественного типа
-
Выходные данные: P – вещественного типа
-
Алгоритмизация
0 1
2
3
4 5 да нет 7 4 да нет 7 6
3
6
5
9 8
-
Программирование
Private Sub Command1_Click()
Dim M() As Single
Dim i As Integer
Dim P As Single
Dim j As Single
Dim k As Integer
k = InputBox("BBEDITE k")
ReDim M(1 To k)
P = 1
For i = 1 To k
M(i) = InputBox("BBEDITE M")
Next
For n = 1 To 4
i = InputBox("BBEDITE i")
P = P * Abs(M(i))
Next
Print "P=" & P
End Sub
-
Отладочный пример
ЗАДАНИЕ 2
-
Математическое описание
Вычислить сумму элементов первого столбца и последней строки матрицы S размерности М*N.
Для отладки программы принять N=З; М=4. Значение элементов матрицы выбрать самостоятельно.
-
Алгоритмизация
-
Программирование
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim n As Integer
Dim S() As Single
Dim S1 As Single
Dim S2 As Single
Dim Su As Single
m = InputBox("Введите количество строк")
n = InputBox("Введите количество столбцов")
ReDim S(1 To m, 1 To n)
For i = 1 To m
For j = 1 To n
S(i, j) = InputBox("Введите массив ")
Next
Next
S1 = 0
S2 = 0
For i = 1 To m
S1 = S1 + S(i, 1)
Next
For j = 1 To n
S2 = S2 + S(m, j)
Next
Su = S1 + S2
Print "Su=" & Su
End Sub
-
Отладочный пример
,
