Программный элемент заполнение / 31
.docxЗадание №1
1. Постановка задачи
Входные данные: m – целого типа
Выходные данные: H() – целого типа
2. Математическая модель:
Для i =
Если i-чет тогда Hi = 1 Иначе Hi =0
3. Разработка алгоритма:
4. Разработка визуальной части проекта
На форме располагаем только командную кнопку Command1.
В свойстве Caption кнопки записываем «Заполнить вектор».
5. Код приложения:
Private Sub Command1_Click()
Dim i As Integer
Dim m As Integer
Dim H() As Integer
m = InputBox("Введите m")
ReDim H(1 To m)
Print "H = [";
For i = 1 To m
If i Mod 2 = 0 Then
H(i) = 1
Else
H(i) = 0
End If
Next
For i = 1 To m
Print H(i) & ", ";
Next
Print "]"
End Sub
6. Отладка приложения: **
Задание №2
1. Постановка задачи
Входные данные: m, n, Z()- вещественного типа
Выходные данные: A()– вещественного типа
2. Математическая модель:
3. Разработка алгоритма:
4. Разработка визуальной части проекта
На форме располагаем только командную кнопку Command1.
В свойстве Caption кнопки записываем «Пересчитать матрицу».
5. Код приложения:
Private Sub Command1_Click()
Dim i As Integer, j As Integer, m As Integer, n As Integer
Dim Z() As Single
Dim A As Single
m = InputBox("Введите m")
n = InputBox("Введите n")
ReDim Z(1 To m, 1 To n)
For i = 1 To m
For j = 1 To n
Z(i, j) = InputBox("Введите Z")
Print Z(i, j),
Next
Next
Print "-----"
For j = 1 To n
A = Z(1, j)
For i = 1 To m
Z(i, j) = Z(i, j) / A
Next
Next
For i = 1 To m
For j = 1 To n
Print Format(Z(i, j), "0.00"),
Next
Next
End Sub
6. Отладка приложения: **