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

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

Машкова О.М.                                          Вариант №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. і. Тому Ренесанс до певної міри є еталоном культурного розвитку у світовій історії який можна порівняти з VIII
2. Общефилософская спецификация знания и познания.
3.  Экономика как сфера жизнедеятельности общества
4. Множества и операции над ним
5. Е~бекті рационалды ~йымдастыру прициптері
6. Тема Классификация проективных методик Фамилия студента
7. Результати дослідження сімейних відносин
8.  Книга одного автора Портер М
9. реферат дисертації на здобуття наукового ступеня кандидата філологічних наук
10. Интеллект дегеніміз- А а~ыл ойсана Б сезім а~ыл С жігер сана Д а~ыл т~зім Е барлы~ жауап д~рыс
11. ЛЕКЦИЯ 1 ОСНОВЫ ФИЗИОЛОГИИ ВКУСОВЫХ ОЩУЩЕНИЙ
12. на тему Национальные традиции в развитии торговли экономики и культуры
13. Психология ревности
14. 1625 Пирский Марк Жмайло 1625 Григорий Черный 16291630 Тарас Федорович Трясило 16
15. Арабский Восток Феодальный общественно ~ экономический строй начал развиваться в странах Арабског
16. Контрольная работа- Платежный баланс
17. Реформаторская деятельность Владимира Святого
18. Об утверждении квалификационных характеристик должностей служащих государственных предприятий телевизи
19. Особенности формирования словаря детей старшего дошкольного возраста
20. Антропология для студентов специальности 020400 Психология Автор- Сметанина Н

Материалы собраны группой SamZan и находятся в свободном доступе