Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
PAGE 1
24 вариант
«Программный элемент НАКОПЛЕНИЕ»
18
17
6
15
13
12
14
8
7
6
5
11
j=j+1
i<=m
a(i,j)
i=1
j<=n
j=1
i=i+1
S3=S3*a(i,j)
i<=m
m, n
10
9
4
3
2
1
Конец
S
S=S2*S3/a(2,3)
j=3
0
j=j+1
S2=S2*a(i,j)
j<=n
S2=1
Начало
i=2
i=i+1
нет
i=i+1
S=S+(a(i)*b(i)*c(i) *d(i))
i<=m
S
да
13
12
11
j=j+1
19
20
да
нет
нет
да
нет
да
17
i=1
нет
да
c(i)
i<=m
нет
да
24
23
S=0
22
21
20
нет
да
9
16
5
4
8
7
j=j+1
b(i)
i<=m
3
2
1
0
Конец
6
j=j+1
a(i)
нет
да
i<=m
i=1
m
Начало
15
j=j+1
d(i)
i<=m
i=1
i=1
i=1
10
14
18
19
Задание 1
Определить скалярное произведение четырех векторов. Для от ладки программы векторы выбрать самостоятельно.
S=S*ai*bi*ci*di
Задание 2
Вычислить произведение элементов второй строки и третьего столбца матрицы В размерности m*n. Проанализировать выполнение программы на примере
B=
Private Sub Command 1_Click()
Dim i As Integer
Dim m As Integer
Dim A() As Single
Dim B() As Single
Dim C() As Single
Dim D() As Single
m = InputBox("Введите количество элементов массива")
ReDim A(l To m)
ReDim B(l To m)
ReDim C(l To m)
ReDim D(l To m)
For i = 1 To m
A(i) = InputBox("Введите массив А")
Next
For i = 1 To m
B(i) = InputBox("Введите массив В")
Next
For i = 1 To m
C(i) = InputBox("Введите массив С")
Next
For i = 1 To m
D(i) = InputBox("Введите массив D")
Next
S = 0
For i = 1 To m
S = S + (A(i) * B(i) * C(i) * D(i))
Next
Print "S=" & S
End Sub
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim n As Integer
Dim A() As Single
Dim S2 As Single
Dim S3 As Single
Dim S As Single
m = InputBox("Введите количество строк массива")
n = InputBox("Введите количество столбцов массива ")
ReDim A(1 To m, 1 To n)
For i = 1 To m
For j = 1 To n
A(i, j) = InputBox("Введите массив")
Next
Next
i = 2
S2 = 1
For j = 1 To n
S2 = S2 * A(i, j)
Next
j = 3
S3 = 1
For i = 1 To m
S3 = S3 * A(i, j)
Next
S = S2 * S3 / A(2, 3)
Print "S=" & S
End Sub