Программный элемент заполнение / 22
.docxЗадание №1
1. Постановка задачи
1.1. Словесное описание задачи
Заполнить в памяти машины одномерный массив:
K={1, 2, 3, 4, 5, 6, …, 20}
1.2. Состав входных и выходных данных
Входные данные:
n – переменная целого типа,
Выходные данные:
K={ki}, i= – массив целых чисел.
2. Математическая модель задачи
3. Схема алгоритма
4. Визуальная часть проекта
5. Код приложения
Private Sub Command1_Click()
Dim K() As Integer, i As Integer, n As Integer
n = InputBox("n=")
ReDim K(1 To n)
For i = 1 To n
K(i) = i
Next
Print "K=";
For i = 1 To n
Print K(i) & " ";
Next
End Sub
6. Отладка программы
Задание №2
1. Постановка задачи
1.1. Словесное описание задачи
Пересчитать квадратную матрицу P размерности n так, чтобы поменялись местами первая и последняя строки. Напечатать исходную и полученную матрицы.
Для отладки программы значения P и n выбрать самостоятельно.
1.2. Состав входных и выходных данных
Входные данные:
n – переменная целого типа,
P={pij}, i= ; j= – массив вещественных чисел.
Выходные данные:
P={pij}, i= ; j= – массив вещественных чисел.
2. Математическая модель задачи
3. Схема алгоритма
4. Визуальная часть проекта
5. Код приложения
Private Sub Command1_Click()
Dim P() As Single, i As Integer, j As Integer, n As Integer, a As Single
n = InputBox("n=")
ReDim P(1 To n, 1 To n)
Print "P(исх)="
For i = 1 To n
For j = 1 To n
P(i, j) = InputBox("P(" & i & ", " & j & ")=")
Print P(i, j),
Next
Next
For j = 1 To n
a = P(1, j)
P(1, j) = P(n, j)
P(n, j) = a
Next
Print "P(пер)="
For i = 1 To n
For j = 1 To n
Print P(i, j),
Next
Next
End Sub
6. Отладка программы