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

Задание №11Постановка задачи.

Определить среднее геометрическое элементов вектора L раз­мерности К. Найденное значение присвоить первому элементу вектора. Для отладки программы вектор выбрать самостоятельно.

Определение состава входных и выходных данных.

Входные данные:
- размерность K вектора L
- элементы вектора L
Выходные данные:
- среднее геометрическое элементов вектора L

Математическое описание.


K=1, 2, 3,...

1

L(1)=P^(1/K)

Конец

L

P=P*L(i)

L(i)

L(i)

i=i+1

i=i+1

нет

да

i<=K

P=1

i=1

нет

да

i<=K

i=1

K

Начало

Разработка схемы алгоритма.

2 Разработка визуальной части.

4 Разработка кода приложения.

Private Sub Command1_Click()

Dim L() As Single, K As Integer, i As Integer, P As Single

K = Text1

ReDim L(K) As Single

Print "L=";

For i = 1 To K

L(i) = InputBox("Введите элемент вектора L под номером " & i)

Print L(i);

Next

Print

P = 1

For i = 1 To K

P = P * L(i)

Next

L(1) = P ^ (1 / K)

Print "L=";

For i = 1 To K

Print L(i);

Next

End Sub

5 Отладочный пример.

Дата добавления: 2015-07-11