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