Book of tasks on programming. Old version

 

 by Aliaksandr N. Prykhodzka

 

algol, algol, итерация, table, type, array, абстрактный, публикация, downto, обучение, constructor, параметр, протокол, подсказка, client, function, string
 

for valuable work you must have JavaScript (allow active content)

Visual Basic. B.6. Nest of tasks. Arrays

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

B.6.1     Answer      Pascal-analogue      Java-analogue

Determine values of four array's first elements returned by function AA .


Private Type mo
    moon(1 To 10) As Integer
End Type

Private Function AA() As mo
    For i = 1 To 10
        AA.moon(i) = i
    Next i
    For i = 5 To 7
        AA.moon(i) = AA.moon(i) / 2
    Next i
End Function

Private Sub Form_Load()
Dim a1 As String
Dim a2 As String
Dim a3 As String
Dim a4 As String
    a1 = AA.moon(1)
    a2 = AA.moon(2)
    a3 = AA.moon(3)
    a4 = AA.moon(4)
    Label1.Caption = a1 + " " + a2 + " " + a3 + " " + a4
End Sub


 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

B.6.2     Answer      Pascal-analogue      Java-analogue

Determine values of four array's first elements returned by function AA .


Private Type mo
    moon(1 To 10) As Integer
End Type

Private Function AA() As mo
    For k = 1 To 10
        AA.moon(k) = 11 - k
    Next k
    For k = 1 To 10
        AA.moon(k) = AA.moon(k) * k
    Next k
    For k = 1 To 5
        n1 = k * 2 - 1
        n2 = k * 2
        m = AA.moon(n1)
        AA.moon(n1) = AA.moon(n2)
        AA.moon(n2) = m
    Next k
End Function


 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

B.6.3     Answer      Pascal-analogue      Java-analogue

Determine values of four array's first elements returned by function AA .


Private Type mo
    moon(1 To 10) As Integer
End Type

Private Function AA() As mo
    For k = 1 To 10
        AA.moon(k) = 1
    Next k
    For k = 1 To 3
        n = k * 3 - 2
        AA.moon(n) = 2
    Next k
End Function


 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

B.6.4     Answer      Pascal-analogue      Java-analogue

Determine values of four array's first elements returned by function AA .


Private Type mo
    moon(1 To 10) As Integer
End Type

Private Function AA() As mo
    For k = 1 To 3
        n = k * 3 - 2
        AA.moon(n) = 1
    Next k
    For k = 1 To 3
        n = k * 3 - 1
        AA.moon(n) = 2
    Next k
    For k = 1 To 3
        n = k * 3
        AA.moon(n) = 3
    Next k
    AA.moon(4) = 4
End Function


 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

B.6.5     Answer      Pascal-analogue      Java-analogue

Determine values of four array's first elements returned by function AA .


Private Type mo
    moon(1 To 10) As Integer
End Type

Private Function AA() As mo
    For i = 1 To 10
        AA.moon(i) = i * 3 - 2
    Next i
End Function


 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

B.6.6     Answer      Pascal-analogue      Java-analogue

Determine values of four array's first elements returned by function AA .


Private Type mo
    moon(1 To 10) As Integer
End Type

Private Function AA() As mo
    For i = 1 To 10
        AA.moon(i) = i
    Next i
    For i = 1 To 3
        For j = i To i * 3
            AA.moon(i) = AA.moon(i) + AA.moon(j)
        Next j
    Next i
End Function


 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

B.6.7     Answer      Pascal-analogue      Java-analogue

Determine values of four array's first elements returned by function AA .


Private Type mo
    moon(1 To 10) As Integer
End Type

Private Function AA() As mo
    For i = 1 To 10
        AA.moon(i) = i + (i Mod 4)
    Next i
End Function


 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

B.6.8     Answer      Pascal-analogue      Java-analogue

Determine values of four array's first elements returned by function AA .


Private Type mo
    moon(1 To 10) As Boolean
End Type

Private Function AA() As mo
    For i = 1 To 10
        AA.moon(i) = (i Mod 3 = 1)
    Next i
End Function


 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

B.6.9     Answer      Pascal-analogue      Java-analogue

Determine values of four array's first elements returned by function AA .


Private Type mo
    moon(1 To 10) As Boolean
End Type

Private Function AA() As mo
    For i = 1 To 10
        AA.moon(i) = (i Mod 2 = 1)
    Next i
    For i = 1 To 5
        AA.moon(i + 5) = Not AA.moon(i)
    Next i
End Function


 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

B.6.10     Answer      Pascal-analogue      Java-analogue

Determine values of four array's first elements returned by function AA .


Private Type mo
    moon(1 To 10) As Boolean
End Type

Private Function AA() As mo
    For i = 1 To 5
        k = 2 * i - 1
        AA.moon(k) = False
        k = 2 * i
        AA.moon(k) = True
    Next i
    For i = 1 To 10
        AA.moon(i) = AA.moon(i) And (i Mod 3 = 0)
    Next i
End Function


 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

B.6.11     Answer      Pascal-analogue      Java-analogue

Determine a value produced by function AA .


Function AA() As Integer
Dim k(1 To 5) As Integer
Dim man As Integer
    For i = 1 To 5
        k(i) = i
    Next i
    For i = 1 To 4
        k(i) = k(i) + k(i + 1)
    Next i
    man = 0
    For i = 1 To 5
        man = man + k(i)
    Next i
    AA = man
End Function


 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

B.6.12     Answer      Pascal-analogue      Java-analogue

Determine a value produced by function AA .


Function AA() As Integer
    man = 0
    J = 10
    For I = 1 To 4
        If I Mod 2 = 0 Then
            J = J - 2
        Else
            J = J + 1
        End If
        man = man + J
    Next I
    AA = man
End Function


 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

B.6.13     Answer      Pascal-analogue      Java-analogue

Determine the content of array produced by function AA


Private Type mm
    Tiger(1 To 4) As Integer
End Type

Private Function AA() As mm
Dim I As Integer
Dim J As Integer
Dim M As Integer
Dim KKK As Integer
    AA.Tiger(1) = 5
    AA.Tiger(2) = 3
    AA.Tiger(3) = 10
    AA.Tiger(4) = 8
    For I = 1 To 3
        For J = 1 To I
            M = J + 1
            If AA.Tiger(J) > AA.Tiger(M) Then
                KKK = AA.Tiger(J)
                AA.Tiger(J) = AA.Tiger(M)
                AA.Tiger(M) = KKK
            End If
        Next J
    Next I
End Function

Private Sub Form_Load()
Dim a1 As String
Dim a2 As String
Dim a3 As String
Dim a4 As String
    a1 = AA.Tiger(1)
    a2 = AA.Tiger(2)
    a3 = AA.Tiger(3)
    a4 = AA.Tiger(4)
    Label1.Caption = a1 + " " + a2 + " " + a3 + " " + a4
End Sub



 

©   Aliaksandr Prykhodzka    1993 - 2007