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

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 9.6.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. выставочный стиль
2. на тему- Управление каналами сбыта Группа Студент зачетной книжки Рецензент
3. Управление государственным долгом в Царской России 1
4. Тверской государственный университет УТВЕРЖДАЮ- Декан факультета управления и социологии
5. Планирование инновационных процессов
6. первых на работе а вовторых в семье
7. РЕФЕРАТ Развитие строительного Искусства Древнего Египта от мастабы до Великих пирамид Строительст
8. х ~ Голубев В.С. ~ Урываев В.
9. Test effect onto the environment re the crbon monoxide crbon dioxide hydrocrbons sulfur dioxide nitrogen oxides dust prticles rdioctive isotopes nd chlorofluorocrbons
10. Пермский национальный исследовательский политехнический университет Кафедра микропроцессорных средст