Программный элемент заполнение / 17 (2)
.docxЗАДАНИЯ К ЛАБОРАТОРНОЙ РАБОТЕ №5
«ПРОГРАММНЫЙ ЭЛЕМЕНТ ЗАПОЛНЕНИЕ»
1.1 Словесное описание задачи:
Заполнить вектор A размерности n по правилу: где B и С – заданные векторы той же размерности.
Для отладки программы контрольный пример выбрать самостоятельно.
1.2 Описание постановки задачи
Состав входных и выходных данных:
Входные данные: n – переменная целого типа, {B} – массив вещественных чисел, {C} – массив вещественных чисел.
Выходные данные: {A} – массив вещественных чисел.
1.3 Математическое описание задачи: где i=1, 2, …, n
1.4 Схема алгоритма решения задачи:
1.5 Листинг кода программы:
Private Sub Command1_Click()
Dim A() As Single, B() As Single, C() As Single, n As Integer, i As Integer
n = InputBox("n=")
ReDim A(1 To n), B(1 To n), C(1 To n)
Print "B="
For i = 1 To n
B(i) = InputBox("B(" & i & ")=")
Print B(i),
Next
Print "C="
For i = 1 To n
C(i) = InputBox("C(" & i & ")=")
Print C(i),
Next
For i = 1 To n
If i Mod 2 = 0 Then
A(i) = C(i)
Else
A(i) = B(i)
End If
Next
Print "A="
For i = 1 To n
Print A(i),
Next
End Sub
1.6 Выполнение проекта:
2.1 Словесное описание задачи:
Пересчитать элементы матрицы K размерности m*n, разделив каждый из них на элемент, расположенный в той же строке в первом столбце.
Проанализировать выполнение программы на примере:
2.2 Описание постановки задачи
Состав входных и выходных данных:
Входные данные: m – переменная целого типа, n – переменная целого типа, {K} – массив вещественных чисел.
Выходные данные: {K} – массив вещественных чисел.
2.3 Математическое описание задачи:
a=Ki1 Kij=Kij/a, где j=1, 2, … n где i=1, 2, … m.
2.4 Схема алгоритма решения задачи:
2.5 Листинг кода программы:
Private Sub Command1_Click()
Dim a As Single, K() As Single, i As Integer, j As Integer, m As Integer, n As Integer
m = InputBox("m=")
n = InputBox("n=")
ReDim K(1 To m, 1 To n)
Print "K(исх)="
For i = 1 To m
For j = 1 To n
K(i, j) = InputBox("K(" & i & ", " & j & ")=")
Print K(i, j),
Next
Next
For i = 1 To m
a = K(i, 1)
For j = 1 To n
K(i, j) = K(i, j) / a
Next
Next
Print "K(пер)="
For i = 1 To m
For j = 1 To n
Print K(i, j),
Next
Next
End Sub
2.6 Выполнение проекта: