Методичка 044-66 ст.10
Скласти масив.Обчислити добуток модулів значення елементів масиву
Y(7)=(-2.2;0.2;3.1;2.1;-3.1;6.1;0.5.)
Private Sub Command1_Click()
Const n% = 7
Dim Dob As Single
Dim Y(1 To n%) As Single
Debug.Print "Масив Y"
For i% = 1 To n%
Title$ = "Введіть значення елементів масивуY"
Prt$ = "елементY(" & i% & ")"
Y(i%) = Val(InputBox(Prt$, Title$))
Debug.Print Format(Y(i%)); " ";
Next i%
Debug.Print
Dob = 1
For i% = 1 To n%
Dob = Dob * Abs(Y(i%))
Next
Debug.Print "Добуток=", Format(Dob, "00.00")
End Sub
Методичка 044-145 ст.13
a=(l-k)/3
b=(l+k)/1
c=l*k-3
Вибрати серед чисел від’ємні на друк, якщо вони є, та надрукувати їх кубічні корені.
Private Sub Command1_Click()
l = Val(Text1.Text)
k = Val(Text2.Text)
a = (l - k) / 3
b = (l + k) / l
c = l * k - 7
If a < 0 Then a1 = a ^ 1 / 3
If b < 0 Then b1 = b ^ 1 / 3
If c < 0 Then c1 = c ^ 1 / 3
Text3.Text = Str(a1)
Text4.Text = Str(b1)
Text5.Text = Str(c1)
End Sub

Методичка 044-66 ст.12
Скласти алгоритм одновимірні масиви.Знайти найменший серед додатніх елементів масиву.
А(11)=(-3.2;2.1;0.0;1.3;-4.2;-6.6;7.1;0.1;0.3;0.2;0.11).
Private Sub Command1_Click()
Const n% = 11
Dim A(1 To n) As Single
Debug.Print "масив А"
For i% = 1 To n%
Title$ = "введіть елементи масиву А"
prt$ = "елемент A(" & i% & ")"
A(i%) = Val(InputBox(prt$, Title$))
Debug.Print Format(A(i%)); " ";
Next i%
Debug.Print
Debug.Print "найменший елементи серед додатніх"
For i% = 1 To n%
If A(i) > 0 And Min = A(i%) Then Debug.Print ; " ";
Next
For i% = 1 To n%
If A(i%) = Min Then Min = A(i%)
Next
Debug.Print , Format(Min, "0.0")
End Sub
x
F(x)




Підбір параметрів

-7
-327

x
y

x
Y

-6,5
-250,375

-3,5
-0,625

-3,48134
-2,7E-05

-6
-185

-0,5
6,125

-0,5
6,125

-5,5
-130,125

6,5
-13,125

6,5
-13,125

-5
-85







-4,5
-48,875







-4
-21







-3,5
-0,625







-3
13







-2,5
20,625







-2
23







-1,5
20,875







-1
15







-0,5
6,125







0
-5







0,5
-17,625







1
-31







1,5
-44,375







2
-57







2,5
-68,125







3
-77







3,5
-82,875







4
-85







4,5
-82,625







5
-75







5,5
-61,375







6
-41







6,5
-13,125







7
23