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

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 20.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.  Кислоты Классификация
4. Организация творческой деятельности школьников в процессе изучения информатики
5. Субъекты трипартизма и механизм социального партнерства
6. немецкий философидеалист; снискал себе славу как блестящий эссеист
7. Основы геодезии и картографии Предмет геодезии и картографии их задачи.html
8. Московский государственный университет путей сообщения Воронежский филиал МИИТ ХАРАКТЕРИС
9. Какой из приведенных ниже методов широковещания используется передающей средой Ethernet для получения и переда
10. Проектирование информационно-справочной системы ГОУ НПО ПУ 33