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

тематическое описание- Выбор математической модели- Mii1 входные данные- K целое

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

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

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

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

от 25%

Подписываем

договор

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

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

1. Заполнить одномерный массив М размерности K так, чтобы  значения каждого элемента было на единицу меньше значения  его  индекса.

Для отладки программы принять K=5.

  1.  Математическое описание:
    1.  Выбор математической модели:

M(i)=i-1

  1.  входные данные: K - целое число
    1.  выходные данные: M=[m(i)], i=1…K – массив вещественных чисел

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

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

Private Sub Command1_Click()

   Dim i As Integer

   Dim K As Integer

   Dim L() As Single

   K = Val(InputBox("K="))

   ReDim L(1 To K)

   For i = 1 To K

       L(i) = i - 1

   Next i

   For i = 1 To K

       Print L(i);

   Next i

End Sub

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


2. Пересчитать значения элементов матрицы S  размерности  4*m  по правилу:

Sij =Sij /(i+j)

Исходный и полученный массивы напечатать.

Проанализировать выполнение программы на  самостоятельно  выбранном контрольном примере.

  1.  Математическое описание:
    1.  Выбор математической модели:

Sij =Sij /(i+j)

  1.  входные данные: m - целое число

S=[s(i,j)], i=1…4, j=1…m – массив вещественных чисел

  1.  выходные данные: S=[s(i,j)], i=1…4, j=1…m – массив вещественных чисел

  T=[t(i,j)], i=1…4, j=1…m – массив вещественных чисел

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

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

Private Sub Command1_Click()

   Dim i As Integer

   Dim j As Integer

   Dim m As Integer

   Dim S() As Single

   Dim T() As Single

   m = Val(InputBox("m="))

   ReDim S(1 To 4, 1 To m)

   ReDim T(1 To 4, 1 To m)

   For i = 1 To 4

       For j = 1 To m

           S(i, j) = Val(InputBox("S(" & i & "," & j & ")="))

       Next j

   Next i

   For i = 1 To 4

       For j = 1 To m

           T(i, j) = S(i, j)

       Next j

   Next i

   For i = 1 To 4

       For j = 1 To m

           S(i, j) = S(i, j) / (i + j)

       Next j

   Next i

   Print "Исходная матрица:"

   For i = 1 To 4

       For j = 1 To m

           Print T(i, j);

       Next j

       Print

   Next i

   Print "Полученная матрица:"

   For i = 1 To 4

       For j = 1 To m

           Print S(i, j);

       Next j

       Print

   Next i

End Sub

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




1. Тема- Начало философии.
2. Реферат на тему- Курбас Куліш Крушельницький ~ коло друзівтворців Мистецтво як творчий фено
3. алкоголизм для обозначения совокупности патологических изменений в организме вследствие неумеренного по
4. И Скрыпник Россия встает на путь целостного и гармоничного развития общества Российская национальная ид
5.  немецкий философ и ученый основоположник классического немецкого идеализма родился 22 апреля 1724 года в
6. Особенности организации деятельности банка как агента валютного контроля
7. Контрольна діяльність податкових органів у сфері непрямого оподаткування
8. Исторические взгляды декабристов.html
9. Коммерческий банк (по Казахстану)
10. КОНСПЕКТ ЛЕКЦИЙ 3