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

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

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

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

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

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

от 25%

Подписываем

договор

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

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


Кузнецова Е.Ю
. В-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. Наполеон Бонапарт в восприятии русского общества (1800 1810-е годы)
2. тематическое моделирование.
3. Задание 1 Отразите в журнале операций следующие хозяйственные операции по поступлению основных средств
4. Брачный договор в российском праве
5. Система электроснабжения сельскохозяйственного населенного пункт
6. Толерантность 1.html
7. Не реже 1 раза в неделю; Б
8. Тема- ДІЯЛЬНІСТЬ СУБ~ЄКТІВ ПУБЛІЧНОЇ АДМІНІСТРАЦІЇ ПЛАН Діяльність суб~єктів публічної адмініст
9. Юриспруденция Учебная группа ЗВ
10. Разработка установки первичной переработки нефти