Программный элемент заполнение / 7
.docx
ЗАДАНИЯ К ЛАБОРАТОРНОЙ РАБОТЕ №4
«ПРОГРАММНЫЙ ЭЛЕМЕНТ ЗАПОЛНЕНИЕ»
ВАРИАНТ 7
1.1) Словесное описание задачи:
Найти сумму D трёх векторов A, B и C размерности n.
Проанализировать выполнение программы на примере:
n=2; A={5; 6,1}; B={1; 4,9}; C={9; 4}
1.2) Описание постановки задачи:
Состав входных и выходных данных:
Входные данные:
n – переменная целого типа,
{A} – массив вещественных чисел,
{B} – массив вещественных чисел,
{C} – массив вещественных чисел.
Выходные данные:
{D} – массив вещественных чисел.
1.3) Математическое описание задачи:
Di=Ai+Bi+Ci
Где i=1, 2, ……n
1.4) Схема алгоритма решения задачи:
1.5) Листинг кода программы:
Private Sub Command1_Click()
Dim A() As Single, B() As Single, C() As Single, D() As Single, n As Integer, i As Integer
n = InputBox("n=")
ReDim A(1 To n), B(1 To n), C(1 To n), D(1 To n)
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 "{D}=";
For i = 1 To n
D(i) = A(i) + B(i) + C(i)
Print D(i) & " ";
Next
End Sub
1.6) Выполнение проекта:
2.1) Словесное описание задачи:
Заполнить и напечатьать матрицу:
2.2) Описание постановки задачи
Состав входных и выходных данных:
Входные данные:
k – перменная целого типа,
n – перменная целого типа,
Выходные данные:
{M} – массив вещественных чисел.
2.3) Математическое описание задачи:
где i=1, 2,….., k; j=1, 2,….., n;
2.4) Схема алгоритма решения задачи:
2.5) Листинг кода программы:
Private Sub Command1_Click()
Dim M() As Single, k As Integer, n As Integer, i As Integer, j As Integer
k = InputBox("k=")
n = InputBox("n=")
ReDim M(1 To k, 1 To n)
For i = 1 To k
For j = 1 To n
If i = j Then
M(i, j) = 1
Else
M(i, j) = j
End If
Next
Next
Print "{M}"
For i = 1 To k
For j = 1 To n
Print M(i, j),
Next
Next
End Sub
2.6) Выполнение проекта: