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