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