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

Выбор математической модели- ki^2 входные данные- n

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

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

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

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

от 25%

Подписываем

договор

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

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

Машкова О.М.                                          Вариант №13                                     группа В-407

1. Пересчитать значения элементов вектора К размерности n, возведя их в квадрат.

Проанализировать выполнение программы на примере:

К={З; 6; 9; 12; 15}

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

k(i)=k(i)^2

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

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

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

Private Sub Command1_Click()

   Dim n As Integer

   Dim i As Integer

   Dim K() As Double

   n = Val(InputBox("n="))

   ReDim K(1 To n)

   For i = 1 To n

       K(i) = Val(InputBox("K(" & i & ")"))

   Next i

   Print "Матрица": Print

   For i = 1 To n

       Print K(i);

   Next i

   Print

   For i = 1 To n

       K(i) = K(i) ^ 2

   Next i

   Print "Матрица": Print

   For i = 1 To n

       Print K(i);

   Next i

End Sub

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


2. Заполнить в памяти ЭВМ матрицу W размерности m*n по правилу:

Wij=Zij+Eij-Tij

где Z,E,T - матрицы той же размерности.

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

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

Wij=Zij+Eij-Tij

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

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

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

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

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

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

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

Private Sub Command1_Click()

   Dim n As Integer

   Dim m As Integer

   Dim W() As Single

   Dim Z() As Single

   Dim E() As Single

   Dim T() As Single

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

   n = Val(InputBox("n="))

   ReDim W(1 To m, 1 To n)

   ReDim Z(1 To m, 1 To n)

   ReDim E(1 To m, 1 To n)

   ReDim T(1 To m, 1 To n)

   For i = 1 To m

       For j = 1 To n

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

       Next j

   Next i

   For i = 1 To m

       For j = 1 To n

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

       Next j

   Next i

   For i = 1 To m

       For j = 1 To n

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

       Next j

   Next i

   For i = 1 To m

       For j = 1 To n

           W(i, j) = Z(i, j) + E(i, j) - T(i, j)

       Next j

   Next i

   For i = 1 To m

       For j = 1 To n

           Print W(i, j);

       Next j

       Print

   Next i

End Sub

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




1. Екологічне право з урахуванням практики його застосування та наукових концепцій в юридичній літературі.
2. 60 Глава 48 повествующая о том как братья Се освободились из заключения и как братья Сунь разнесли тюрьму
3. Кандалакша
4. Полуполя, являющиеся простыми расширениями с помощью комплексного числа
5. Тема Обучающее изложение текста по вопросам
6. Меркантилизм - первая система экономических воззрений
7. окно Начертить контур окна ПОЛИЛИНИЕЙ
8. теория познания та область философии кот изучает природу познания условия способы и форму познания отнош
9. Тема 11 Финансовый рынок 1
10. таки каждые имеют свои особенности