Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Машкова О.М. Вариант №13 группа В-407
1. Пересчитать значения элементов вектора К размерности n, возве дя их в квадрат.
Проанализировать выполнение программы на примере:
К={З; 6; 9; 12; 15}
k(i)=k(i)^2
Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim K() As Double
n = Val(InputBox("n="))
ReDim K(1 To n)
For i = 1 To n
K(i) = Val(InputBox("K(" & i & ")"))
Next i
Print "Матрица": Print
For i = 1 To n
Print K(i);
Next i
For i = 1 To n
K(i) = K(i) ^ 2
Next i
Print "Матрица": Print
For i = 1 To n
Print K(i);
Next i
End Sub
2. Заполнить в памяти ЭВМ матрицу W размерности m*n по правилу:
Wij=Zij+Eij-Tij
где Z,E,T - матрицы той же размерности.
Отладку программы выполнить на самостоятельно выбранном конт рольном примере.
Wij=Zij+Eij-Tij
Z=[z(i,j)], i=1…m, j=1…n – массив вещественных чисел
E=[e(i,j)], i=1…m, j=1…n – массив вещественных чисел
T=[t(i,j)], i=1…m, j=1…n – массив вещественных чисел
Private Sub Command1_Click()
Dim n As Integer
Dim m As Integer
Dim W() As Single
Dim Z() As Single
Dim E() As Single
Dim T() As Single
m = Val(InputBox("m="))
n = Val(InputBox("n="))
ReDim W(1 To m, 1 To n)
ReDim Z(1 To m, 1 To n)
ReDim E(1 To m, 1 To n)
ReDim T(1 To m, 1 To n)
For i = 1 To m
For j = 1 To n
Z(i, j) = Val(InputBox("Z(" & i & "," & j & ")"))
Next j
Next i
For i = 1 To m
For j = 1 To n
E(i, j) = Val(InputBox("E(" & i & "," & j & ")"))
Next j
Next i
For i = 1 To m
For j = 1 To n
T(i, j) = Val(InputBox("T(" & i & "," & j & ")"))
Next j
Next i
For i = 1 To m
For j = 1 To n
W(i, j) = Z(i, j) + E(i, j) - T(i, j)
Next j
Next i
For i = 1 To m
For j = 1 To n
Print W(i, j);
Next j
Next i
End Sub