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

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

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

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

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

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

от 25%

Подписываем

договор

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

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


Поиск

Вариант 27

Павлов В. ЭС-104

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

Найти минимальное значение  функции    на  промежутке

3 < Х < 9 с шагом х= 0.3. Напечатать таблицу значений функции.

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

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

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

  1.  Алгоритм

  1.  Код программы

Private Sub Command1_Click()

Dim X As Single

Dim Ymin As Single

Dim Y As Single

X = 3

Ymin = Sqr(X) - Cos(X)

For X = 3 To 9 Step 0.3

Y = Sqr(X) - Cos(X)

If Ymin > Y Then

Ymin = Y

End If

Next

Print "Ymin=" & Ymin

End Sub

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

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

Определить индексы первого положительного элемента К-й  строки матрицы Т размерности  М*N.

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

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

  1.  Входные данные: K, M, N, {T} - вещественные

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

  1.  Алгоритм

  1.  Код программы

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Dim K As Integer

Dim M As Integer

Dim N As Integer

Dim T() As Single

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

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

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

ReDim T(1 To M, 1 To N)

For i = 1 To M

For j = 1 To N

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

Next

Next

For j = 1 To N

If T(K, j) = 0 Then

GoTo 1

End If

Next

1:

MsgBox ("T(" & K & "," & j & ")=" & T(K, j))

End Sub

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

2


Конец

10

ачало

x

1

x<=9

x=x+0.3

4

8

да

x=3

2

Ymin

9

Y=sqr(x)-cos(x)

Ymin>Y

Ymin= sqr(x)-cos(x)

3

Ymin=Y

7

0

5

6

K, M, N, {T}

0

1

i<=M

3

да

нет

K, j

Конец

13

14

T(K,j)=0

да

нет

11

j<=N

5

да

нет

i=1

2

j=1

4

j=j+1

8

T(i,j)

i=i+1

j<=N

10

да

нет

j=1

9

j=j+1

12

6

7

начало




1. Использование математических методов в психологии
2.  Экранизация Исторические сложилось так что первой задачей компьютерной графики стала экранизация или ре
3. тема права понятие и структура Система права это внутренняя структура права которая выражается в единст.html
4. Договор перевозки грузов автомобильным транспортом
5. Статья- Что конкурентная разведка может сделать для вашей компании
6. 20гпротокол Председатель подпись расшифровка подписи
7. Многотысячелетнее развитие китайской культуры с ее материальным и духовным богатством с ее развитой теоре
8. Историко-культурный туристский потенциал Наро-фоминского района Московской области
9. хорошие руки для наших питомцев а такие уж они хорошие Знаем ли мы что это не
10. командної системи яка спотворила економічну природу методів управління виробництвом перетворила їх у форм