Программный элемент заполнение / 30
.docxЗадание 1
1. Постановка задачи
Пересчитать значения элементов вектора F размерности d таким образом, чтобы они были увеличены на значения соответствующих элементов вектора G той же размерности.
Входные данные:
F – одномерный массив вещественных чисел,
G – одномерный массив вещественных чисел,
d – размерность массивов, переменная целого типа.
Выходные данные:
F – одномерный массив вещественных чисел.
2. Математическая модель задачи
где
3. Разработка алгоритма
4. Разработка визуальной части проекта
На форме располагаем только командную кнопку Command1.
В свойстве Caption кнопки записываем «Пересчитать вектор».
5. Код приложения
Private Sub Command1_Click()
Dim F() As Single, G() As Single, i As Integer, d As Integer
d = InputBox("d=")
ReDim F(1 To d), G(1 To d)
Print "{F} =";
For i = 1 To d
F(i) = InputBox("F(" & i & ")=")
Print F(i),
Next
Print "{F} =";
For i = 1 To d
G(i) = InputBox("G(" & i & ")=")
Print G(i),
Next
Print "---"
For i = 1 To d
F(i) = F(i) + G(i)
Next
Print "{F} =";
For i = 1 To d
Print F(i),
Next
End Sub
6. Отладка программы
Задание 2
1. Постановка задачи
Элементам матрицы U присвоить значение индекса столбца, если индекс столбца нечетный, и значение индекса строки, если индекс столбца четный.
Входные данные:
m, n – размерность массива, переменные целого типа.
Выходные данные:
U – массив целых чисел.
2. Математическая модель задачи
где
3. Разработка алгоритма
4. Разработка визуальной части проекта
На форме располагаем только командную кнопку Command1.
В свойстве Caption кнопки записываем «Заполнить матрицу».
5. Код приложения
Private Sub Command1_Click()
Dim i As Integer, m As Integer, j As Integer, n As Integer, U() As Integer
m = InputBox("m=")
n = InputBox("n=")
ReDim U(1 To m, 1 To n)
For i = 1 To m
For j = 1 To n
If j Mod 2 = 0 Then
U(i, j) = i
Else
U(i, j) = j
End If
Next
Next
Print "{U}="
For i = 1 To m
For j = 1 To n
Print U(i, j),
Next
Next
End Sub
6. Отладка программы
