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