Программный элемент заполнение / 8
.docx
ЗАДАНИЯ К ЛАБОРАТОРНОЙ РАБОТЕ №5
«ПРОГРАММНЫЙ ЭЛЕМЕНТ ЗАПОЛНЕНИЕ»
1.1 Словесное описание задачи:
Заполнить одномерный массив M размерности i так, чтобы значения каждого элемента было на единицу меньше значения его индекса.
Для отладки программы принять i=5.
1.2 Описание постановки задачи
Состав входных и выходных данных:
Входные данные: i – переменная целого типа.
Выходные данные: {M} – массив целых чисел.
1.3 Математическое описание задачи: Mk=k-1 где k=1, 2, …..i
1.4 Схема алгоритма решения задачи:
1.5 Листинг кода программы:
Private Sub Command1_Click()
Dim i As Integer, M() As Integer, k As Integer
i = InputBox("i=")
ReDim M(1 To i)
For k = 1 To i
M(k) = k - 1
Next
Print "{M}=";
For k = 1 To i
Print M(k) & " ";
Next
End Sub
1.6 Выполнение проекта:
2.1 Словесное описание задачи:
Пересчитать значения элементов матрицы S размерности 4×m по правилу:
Sij=Sij/(i+j)
Исходный и полученный массивы напечатать.
Проанализировать выполнение программы на самостоятельно выбранном контрольном примере.
2.2 Описание постановки задачи
Состав входных и выходных данных:
Входные данные: m – переменная целого типа, {S} – массив вещественных чисел.
Выходные данные: {S} – массив вещественных чисел.
2.3 Математическое описание задачи:
где i=1, 2, 3, 4; j=1, 2,…..m
2.4 Схема алгоритма решения задачи:
2.5 Листинг кода программы:
Private Sub Command1_Click()
Dim S() As Single, m As Integer, i As Integer, j As Integer
m = InputBox("m=")
ReDim S(1 To 4, 1 To m)
Print "S="
For i = 1 To 4
For j = 1 To m
S(i, j) = InputBox("S(" & i & ", " & j & ")=")
Print S(i, j),
Next
Next
For i = 1 To 4
For j = 1 To m
S(i, j) = S(i, j) / (i + j)
Next
Next
Print "S="
For i = 1 To 4
For j = 1 To m
Print Format(S(i, j), "0.##"),
Next
Next
End Sub
2.6 Выполнение проекта: