. 4.7.4-2.
Function Pr742(ByRef a() As Single) As Single Dim i As Integer, z Fs Single z = 1 For i = 0 To Ubound(a) If a(i) <> 0 Then z = z * a(i) Next i End Sub Private Sub Button1_Click() Dim z As Single vvodSngMac15(a): vivodSngMac17(a, ListBox1) z = Pr742(a): vivodSngMac17 (z, TextBox1) End Sub |
. 4.7.4-2. Pr742()
4.7.4-2
4.7.4-3. -Function, t().
. 4.7.4-3.
Sub Pr743(ByRef t() As Double) As Double Dim i, n, j, k As Integer Dim xmax As Single n = UBound(t) xmax = x(0) For i = 1 To n If x(i) > xmax Then xmax = x(i) End If Next i Return xmax End Sub |
. 4.7.4-3. Pr743()
4.7.4-3
4.7.4-4. -Function, t().
Sub Pr744(ByRef t() Double) As Integer Dim i, n, j, k As Integer Dim xmin As Double n = UBound(t) xmin = x(0): k = 0 `For i = 1 To n If x(i) < xmin Then xmax = x(i) k = i End If Next i Return End Sub |
. 4.7.4-4. Pr744()
4.7.4-4
4.7.4-5. , c() .
Sub Pr745(ByRef () As Single) Dim temp As Single, i, k As Integer For i = 0 To UBound(c) If c(i) - Fix(c(i)) = 0 Then temp = c(k): c(k) = c(i) c(i) = temp: k = k + 1 End If Next i End Sub Private Sub Button1_Click() Dim (9) As Single vvodSngMac15(): vivodSngMac17(,ListBox1) Pr7475(): vivodSngMac17(,ListBox2) End Sub |
. 4.7.4-5. Pr745()
4.7.4-5
, k , . , , c(i) .
c(i) Fix(). c(i) , c(k) c(i) c temp.
. 4.7.4-5.
4.7.4-6. -Sub, c(), :
. 4.7.4-6.
Sub Pr746(ByRef c()As Single) Dim i, k As Integer For i = 0 To UBound(c) If i < 5 Then c(i) = (i^3 - 4)/(i + 1) Else c(i) = (i^2 - 36) / i End If Next i End Sub Private Sub Button1_Click() Dim (9) As Single Pr746() vivodSngMac17(, ListBox1) End Sub |
|
|
. 4.7.4-6. Pr746()
4.7.4-6
4.7.4-7. -Sub, y(), x().
Sub Pr747(ByRef x() As Single, _ ByRef y() As Single) Dim i, n As Integer For i = 0 To UBound(x) If x(i) > 0 Then ReDim Preserve y(n) y(n) = x(i): n = n + 1 End If Next i End Sub Private Sub Button1_Click() Dim x(), y() As Single vvodSngMac15(x) vivodSngMac173(x, ListBox1) Pr747(x, y) vivodSngMac17(y, ListBox2) End Sub |
. 4.7.4-7. Pr747()
4.7.4-7
(). n y() i (). n ().
, () n .
. 4.7.4-7.
4.7.4-8. -Sub, p() r() v() p() r().
v() k, v(). v(): k i - p(), (k+1) i - r().
. 4.7.4-8 .
Sub Pr748(ByRef p() As Single, _ ByRef r() As Single, ByRef v() As Single) Dim i, k As Integer For i = 0 To UBound(p) v(k) = p(i) v(k + 1) = r(i) k = k + 2 Next End Sub Private Sub Button1_Click() Dim p(), r(), v() As Single vvodSngMac15(p) vivodSngMac17(p, ListBox1) vvodSngMac15(r) vivodSngMac17(r, ListBox2) Pr748(p, r, v) vivodSngMac17(v, ListBox3) End Sub |
. 4.7.4-8. Pr748()
4.7.4-8