(i, j)=Int (Rnd * 30 - 15) 'випадкове число від - 15 до 15
Cells (2 + i, j + 1)=A (i, j) 'виводимо матріцуji (3 + N, 1)= Середнє арифм
For j=1 To M Step 2 'тільки непарні стовпці
S=0: K=0
For i=1 To N
'якщо елемент позитивний і парний
If (A (i, j) gt; 0) And (A (i, j) Mod 2=0) Then=S + A (i, j)=K + 1IfiK gt; 0 Then (3 + N, j + 1)=S/K: Cells (3 + N, j + 1)=0IfjSubb
Додаток 2
Сформувати матрицю Е (5x7)
Текст програми
Sub Zadanie_2 ()
Dim E (5, 7) As Single 'опис змінних
Dim i As Integer, j As Integer, N As Integer ( Завдання 2 ). Select 'поточним листом робимо Завдання 2
Cells (1, 1)= Матриця E
For i=1 To 5 'формування матриці
For j=1 To 7 j=1 Then 'в першому стовпці
E (i, j)=3
ElseIf j=2 Then 'у другому стовпці
E (i, j)=5i lt;=j - 2 Then E (i, j)=7 над «діагоналлю»: E (i, j)=0If (i + 1, j)=E (i, j) виводимо елементи в осередку
Next ji Sub
Додаток 3
Знайти максимальне і мінімальне значення функції y=F (x), а так само відповідні значення аргументу X при зміні аргументу від Xn до Xk з кроком h, використовуючи підпрограму-функцію для обчислення F (x).
Xn=- 8, Xk=- 2, h=0.5
Рішення:
Текст програми
Function F (x As Double) As Double 'підпрограма-функція
F=9 + 5 ^ (2 * x)
End Function
Sub Zadanie_3 () i As Integer 'опис переменнихx As Double, xmin As Double, xmax As Double ( Завдання 3 ). Select (1, 1)= X raquo ;: Cells ( 1, 2)= F (x) =- 8: xmax=- 8=0x=- 8 To - 2 Step 0.5 (2 + i, 1)=x: Cells (2 + i, 2)= F (x) F (x) gt; F (xmax) Then=xF (x) lt; F (xmin) Then=xIf=i + 1x
'висновок результатів (1, 4)= Максимум функції F (x)= + Str (F (xmax)) + при x= + Str (xmax) (2, 4)= Мінімум функції F (x)= + Str (F (xmin)) + при x= + Str (xmin) Sub
