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

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 20.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. Реферат- Дисбактериоз кишечника
3. Бэтафункции 6 Бэта ~ ф
4. Диарейный синдром о чем нужно помнить при подборе препарата
5. тема 10; Н Д Егоров докт
6. Человек и социальная сфера
7. Тема- Іван Франко
8. Окончено производством 43 гражданских дела в том числе 37 дел с вынесением решения
9. Задачи на длинную арифметику.html
10. на тему- Развитие педиатрии и акушерства в новое время16401918г