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