Программный элемент накопление / 24
.docxЗадание №1
1. Постановка задачи.
1.1 Словесное описание задачи.
Найти среднее арифметическое последних К элементов одномерного массива Z размерности N.
Проанализировать выполнение программы на примере К=5.
Z = {2; -6; -3; О; 2,1; 3; -4,1}
1.2 Состав входных и выходных переменных.
Входные переменные:
N – переменная целого типа,
K – переменная целого типа,
Z={zi}, где i= – массив вещественных чисел.
Выходные переменные:
Sa – переменная вещественного типа.
2. Математическая модель задачи.
3. Схема алгоритма.
4. Код программы.
Private Sub Command1_Click()
Dim Z() As Single, N As Integer, i As Integer, K As Integer, Sa As Single
N = InputBox("N=")
ReDim Z(1 To N)
Print "Z=";
For i = 1 To N
Z(i) = InputBox("Z(" & i & ")=")
Print Z(i);
Next
K = InputBox("K=")
For i = 1 To K
Sa = Sa + Z(N - K + i)
Next
Sa = Sa / K
Print "Ср. арифметическое последних " & K & " эл. равно " & Sa
End Sub
5. Отладка программы
Задание №2
1. Постановка задачи.
1.1 Словесное описание задачи.
1.2 Состав входных и выходных переменных.
Входные переменные:
m – переменная целого типа,
n – переменная целого типа,
k – переменная целого типа,
A – переменная вещественного типа,
L = {lij}, где – массив вещественных чисел.
Выходные переменные:
X – переменная вещественного типа.
2. Математическая модель задачи.
3. Схема алгоритма.
5. Код программы.
Private Sub Command1_Click()
Dim L() As Single, m As Integer, n As Integer, i As Integer, j As Integer, k As Integer, X As Single, A As Single
m = InputBox("m=")
n = InputBox("n=")
ReDim L(1 To m, 1 To n)
Print "L="
For i = 1 To m
For j = 1 To n
L(i, j) = InputBox("L(" & i & ", " & j & ")=")
Print L(i, j),
Next
Next
k = InputBox("k=")
A = InputBox("A=")
Print "k = " & k & " A = " & A
For i = 1 To m
For j = 1 To k
X = X + L(i, j) - A
Next
Next
Print "X = " & X
End Sub
6. Отладка программы