У вас вопросы?
У нас ответы:) SamZan.net

Задание 1 Математическое описание

Работа добавлена на сайт samzan.net: 2015-07-05

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 20.2.2025

PAGE  1

В-407  Брель И.К. 1 вариант

«Программный элемент НАКОПЛЕНИЕ»

Y

10

Sg

8

7

6

5

17

j=j+1

i<=m

a(i,j)

i=1

j<=n

j=1

16

Конец

15

m, n

P=P*A(i,j)

j<=n

4

3

2

1

Sg=P/(m*n)

8

P=1

нет

0

да

14

13

j=1

Начало

i<=m

i=i+1

Y=0

k

Y= Y+(A(i)/(i+k))

i=i+1

i<=n

A(i)

i=i+1

i<=n

n

Начало

12

11

да

нет

10

9

i=i+1

j=j+1

Конец

0

1

2

5

3

4

6

7

8

9

11

да

нет

нет

да

Задание 1

  1.  Математическое описание.
    1.  Выбор математической модели

Вычислить значение    у = ,

        где А - одномерный массив размерности n. Проанализировать выполнение программы на примере:

                      k = 3,     А = {2,7; 3; -6; 2; 4}

  1.  Входные данные: A, k,  - вещественные

  1.  Выходные данные: y  - вещественные

Задание 2

  1.  Математическое описание.
    1.  Выбор математической модели

 Вычислить  среднее  геометрическое  элементов  матрицы  B размерности m*n.

Для  отладки  программы  матрицу  выбрать самостоятельно.

P=P*A(i,j)

Sg=P/(m*n)

  1.  Входные данные:  A - вещественные
    1.  Выходные данные:  Sg - вещественные

  1.  Алгоритмизация

  1.  Программирование

Private Sub Command1_Click()

Dim n As Integer

Dim i As Integer

Dim k As Single

Dim A() As Single

n = InputBox("Введите размерность массива")

ReDim A(1 To n)

For i = 1 To n

A(i) = InputBox("Введите массив")

Next

k = InputBox("Введите k")

Y = 0

For i = 1 To n

Y = Y + (A(i) / (i + k))

Next

Print "Y=" & Y

End Sub

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

  1.  Алгоритмизация

  1.  Программирование

Private Sub Command1_Click()

Dim P As Single

Dim Sg As Single

Dim i As Integer

Dim j As Integer

Dim m As Integer

Dim n As Integer

Dim A() As Single

m = InputBox("Введите количество строк массива")

n = InputBox("Введите количество столбцов массива ")

ReDim A(1 To m, 1 To n)

For i = 1 To m

For j = 1 To n

A(i, j) = InputBox("Введите массив")

Next

Next

P = 1

For i = 1 To m

For j = 1 To n

P = P * A(i, j)

Next

Next

Sg = P / (m * n)

Print "Sg=" & Sg

End Sub

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




1. .Этапы операций с медикобиологическими данными.
2. тематика Толкалина Светлана Викторовна 5 318 Биология
3. ВВЕДЕНИЕ В современных условиях каждое предприятие заинтересовано в эффективном управлении своей маркети
4. Согласовано Согласовано Согласовано Руководитель МО Заместитель
5. Производство этанола методом сернокислотной гидратации
6. Разработка технологического процесса механической обработки детали типа Вал
7. Цель работы. Изучение прямых и итерационных методов решения систем алгебраических уравнений с позиций то
8. Российский союз молодых ученых Курский региональный центр мониторинга и оценки качества образования К
9. раза в день на ночь можно смазывать акне линиментом Синтамицина
10. Южный Федеральный Университет Юридический факультет Рассмотрено и рекомен