Программный элемент накопление / 24

Задание №1

1. Постановка задачи.

1.1 Словесное описание задачи.

Найти среднее арифметическое последних К элементов одномер­ного массива Z размерности N.

Проанализировать выполнение программы на примере К=5.

Z = {2; -6; -3; О; 2,1; 3; -4,1}

1.2 Состав входных и выходных переменных.

Входные переменные:

N – переменная целого типа,

K – переменная целого типа,

Z={z_i}, где 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

Print

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 = {l_ij}, где – массив вещественных чисел.

Выходные переменные:

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

Print

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. Отладка программы