Методичка 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)
