Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
PAGE 3
Васильев А.А. В-407 Вариант 2
“ Программный элемент НАКОПЛЕНИЕ ”
6
5
4
3
1
0
Конец
P
k=k+k
P=P*(a(k)-b(k))
k<=n
17
P=P1+P2
16
k=k+1
bk
k<=n
k=k+1
нет
да
14
18
P=1
9
8
P2=P2*C(m,j)
6
5
да
нет
4
3
2
ak
k<=n
А, В, n
Начало
7
8
13
j=j+1
12
10
1
P1=P1*C(1,j)
12
14
да
да
9
да
нет
нет
P1=P2=0
нет
1
0
11
нет
да
да
Конец
19
P
7
j=j+1
j=j+1
нет
10
j=1
j<=n
13
2
15
k=1
i=i+1
j<=n
C(i,j)
j<=n
j=1
i<=m
i=1
m, n
Начало
ЗАДАНИЕ 1
Вычислить значение Функции L =
где А и В - векторы одинаковой размерности.
Для отладки программы значения n, А и В выбрать самостоятельно.
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