Будь умным!


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

Вариант 9 Программный элемент ЗАПОЛНЕНИЕ SG 11 10 x0 нет

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

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

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

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

от 25%

Подписываем

договор

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

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


Кузнецова Е.Ю
. В-407   Вариант 9

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


SG

11

10

x=0

нет

да

9

x<=2 pi

3

n=1

8

x=x+ pi/12

7

n=n+1

6

SG(n,2)=cosx

5

6

4

SG(n,1)=sinx

0

Начало

2

x=0

12

Ri=Ri/ i

Конец

2

i=1

13

Конец

нет

да

4

n<=m

1

pi=3.14

нет

да

5

3

1

0

i=i+1

i<=N

R,N

Начало

R

  1.  Словесное описание.

Пересчитать одномерный массив R размерности n по правилу:

Ri=Ri/ i

Проанализировать выполнение программы на примере:

Р={10; 20; 30; 40; 50}

  1.  Математическое описание.
    1.  Входные данные: R(i)- вещественные, i-целое, N-целое
    2.  Выходные данные: R(i)- вещественные

Математическая модель:R(i)=R(i)/i

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

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

Private Sub Command1_Click()

Dim N As Integer

i As Integer

R() As Single

N = InputBox(“Введите размерность вектора R”)

ReDim R(1 To N)

For i = 1 To N

R (i) = InputBox(“Введите элементы массива ”)

Next

For i = 1 To N

R (i) = R(i)/i

Next

For i = 1 To N

Print R(i)

Next

End Sub

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

  1.  Словесное описание

Заполнить матрицу SC размерности 25*2 значениями Функции SinX

(первый столбец) , CosX (второй столбец) . Х меняется от 0 до 2 с шагом /12.

Полученную матрицу напечатать в два столбца.

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

  1.  Входные данные: SG- вещественные, x- вещественные, -целое

  1.  Выходные данные: SG(25*2)

Математическая модель:

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

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

Private Sub Command1_Click()

Dim x As Single

Dim n As Integer

Dim m As Integer

Dim SG(1 To 25, 1 To 2) As Single

Const pi As Single = 3.14

n = 1

Do While n <= 25

SG(n, 1) = Sin(x)

SG(n, 2) = Cos(x)

n = n + 1

x = x + pi / 12

If x > 2 * pi Then

x = 0

End If

Loop

For n = 1 To 25

Print

For m = 1 To 2

Print SG(n, m);

Next

Next

End Sub

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




1. Безопасность жизнедеятельности в техносфере
2. инвестиционный маркетинг связанный с освоением новой продукции и новых рынков что находит отражение в инв
3. Заповідники Естонії
4. ОБЩИЕ ПОЛОЖЕНИЯ 1.html
5. РЕФЕРАТ дисертації на здобуття наукового ступеня кандидата історичних наук Луганськ ~
6. Форимирование и реализация государственной политик
7. нм техпроцесса с использованием FinFETтранзисторов
8. Реферат- Проектирование специализированного процессора
9. тех которые западноевропейская литература не знала или почти не знала
10. Духовно-нравственное развитие и воспитание обучающихся средствами урока иностранного языка в основной школе
11.  Сутність і завдання представництва прокуратурою інтересів громадянина або держави в суді Підручники онла
12. Тема Антиинфляционная политика как фактор повышения темпов экономического развития
13. Механическая обработка металла на станках и линиях; эксплуатация и ремонт автомобилей квалификация
14. Признаки однокоренных слов.html
15. первых земельный участок может предоставляться для застройки размещения строений сооружений или какихли
16. панель настроек Word ~ разметка страницы ~ поля ~ настраиваемые поля- Верхнее 152 см подчеркнутое предпочт
17. Сны и сновидения в русской литературе
18. Источники церковного права
19. омолаживание заболевания в нисходящих поколениях избирательность поражения определенного пола в
20. Вариант 1 Выполнил-Ануфриева В