Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

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

Читайте также:
  1. CASE-технологии: определение и описание.
  2. II. Описание трудовых функций, входящих в профессиональный стандарт
  3. III. Области применения психодиагностики и ее основные задачи.
  4. III. Описание правил обслуживания и ремонта электрооборудования
  5. XI. Описание объекта культурного наследия
  6. Аналитическое библиографическое описание
  7. Аппаратура акустического каротажа. Решаемые задачи.

Задание №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; просмотров: 362 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Двумерные массивы| Постановка задачи.

mybiblioteka.su - 2015-2024 год. (0.013 сек.)