Лабораторные по Информатике / Лабораторная работа Накопление 4 / Вариант 22
.doc
“ Программный элемент НАКОПЛЕНИЕ ”
-
Словесное описание
В каждом варианте задания необходимо определить требуемые входные и выходные данные, для вычисления предложенных функций составить схемы алгоритмов и программы решения задач. Предусмотреть печать всех входных и выходных данных.
Подготовить контрольные варианты, самостоятельно выбрать значение входных данных, отладить программы.
ЗАДАНИЕ 1
-
Математическое описание
Вычислить скалярное произведение трех векторов размерности N.
Проанализировать выполнение программы на примере векторов
А={2; 6; 3; -2}; В={1; -3; 2; 6}; С={3; 2; -4; 5};
-
Входные данные: {A}; {B}; {C}; N – вещественного типа
-
Выходные данные: S – вещественного типа
-
Алгоритмизация
0
1
2 да
3 4
нет
5 7 да
6
нет
8 да
10
9
нет
11
12 да
S=S+ai*bi*ci 14
13
нет
15
16
-
Программирование
Private Sub Command1_Click()
Dim A() As Single
Dim B() As Single
Dim C() As Single
Dim D() As Single
Dim i As Integer
Dim m As Integer
m = InputBox("BBEDITE m")
ReDim A(1 To m)
ReDim B(1 To m)
ReDim C(1 To m)
For i = 1 To m
A(i) = InputBox("BBEDITE A")
Next
For i = 1 To m
B(i) = InputBox("BBEDITE B")
Next
For i = 1 To m
C(i) = InputBox("BBEDITE C")
Next
S=1
For i = 1 To m
S = S+A(i)* B(i)* C(i)
Next
Print "S=" & S
End Sub
-
Отладочный пример
ЗАДАНИЕ 2
-
Математическое описание
Вычислить произведение элементов первой, третьей и четвертой строк матрицы S6 размерности М*N. Проанализировать выполнение программы на примере:
,
-
А
0
лгоритмизация
1
2
3
S1=S1*S6(1,j) 4 5 6 да нет
S3=S3*S6(3,j) 7 8 9 да нет
S4=S4*
S6 (4,j) 10 11 12 да нет
13
14
15
-
Программирование
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim n As Integer
Dim S6() As Single
Dim S1 As Single
Dim S3 As Single
Dim S4 As Single
Dim S As Single
m = InputBox("Ведите число строк")
n = InputBox("Введите число столбцов ")
ReDim S6(1 To m, 1 To n)
For i = 1 To m
For j = 1 To n
S6(i, j) = InputBox("Введите массив")
Next
Next
S1 = 1
For j = 1 To n
S1 = S1 * S6(1, j)
Next
S3 = 1
For j = 1 To n
S3 = S3 * S6(3, j)
Next
S4 = 1
For j = 1 To n
S4 = S4 * S6(4, j)
Next
S = S1 * S3 * S4
Print "S=" & S
End Sub
-
Отладочный пример
