Программный элемент заполнение / 2
.docxЗадание №1
1) Постановка задачи
1.1) Словесное описание задачи
Пересчитать элементы вектора A размерности n по правилу: Ai=Bi*Ci/Ai, при Ai≠0
где B и С – заданные векторы той же размерности.
Для отладки программы контрольный пример выбрать самостоятельно.
1.2) Состав входных и выходных данных
Входные данные:
n – переменная целого типа,
A={ai}, i= – массив вещественных чисел,
B={bi}, i= – массив вещественных чисел,
C={ci}, i= – массив вещественных чисел.
Выходные данные:
A={ai}, i= – массив вещественных чисел.
2) Математическая модель задачи
Ai=Bi*Ci/Ai, при Ai≠0
где i= .
3) Схема алгоритма
4) Визуальная часть проекта
5) Код приложения
Private Sub Command1_Click()
Dim A() As Single, B() As Single, C() As Single, i As Integer, n As Integer
n = InputBox("n=")
ReDim A(1 To n), B(1 To n), C(1 To n)
Print "Исходные векторы:"
Print "A=";
For i = 1 To n
A(i) = InputBox("A(" & i & ")=")
Print A(i) & " ";
Next
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
Print "A=";
For i = 1 To n
A(i) = B(i) * C(i) / A(i)
Next
Print "Пересчитанный вектор A:"
Print "A=";
For i = 1 To n
Print A(i) & " ";
Next
End Sub
6) Отладка программы
Задание №2
1) Постановка задачи
1.1) Словесное описание задачи
Заполнить матрицу L размерности m*n так, чтобы значение каждого элемента было равно индексу строки, в которой он расположен. Напечатать столбец с номером n. Проанализировать выполнение программы на примере: m=4, n=5.
1.2) Состав входных и выходных данных
Входные данные:
m – переменная вещественного типа,
n – переменная вещественного типа.
Выходные данные:
L={lin}, i= – массив вещественных чисел.
2) Математическая модель задачи
где i= ; j= .
3) Схема алгоритма
4) Визуальная часть проекта
5) Код приложения
Private Sub Command1_Click()
Dim m As Integer, n As Integer, i As Integer, j As Integer, L() As Single
m = InputBox("m=")
n = InputBox("n=")
ReDim L(1 To m, 1 To n)
Print n & " столбец массива L:"
For i = 1 To m
For j = 1 To n
L(i, j) = i
Next
Print L(i, n)
Next
End Sub
6) Отладка программы