1747d Visual Basic. B.18. Гнездо задач. Функции. Сборник задач по программированию Александра Приходько
 

Сборник задач по программированию. Старая версия

 

 Приходько А. Н.

 
сборник, объект, html, prolog, клиент, обзоры, клиент, паскаль, язык программирования, обучение
 

Visual Basic. B.18. Гнездо задач. Функции

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.18.1    Ответы    Паскаль-аналог    Java-аналог

Определить значение, выдаваемое функцией AA .


Function Pr1(n As Integer) As Integer
    Pr1 = n * (n - 1)
End Function

Function Pr2(k As Integer, n As Integer) As Integer
    Pr2 = k * k - n * n
End Function

Function AA() As Integer
Dim i As Integer
    s = 0
    For i = 1 To 2
        s = s + Pr1(Pr2(i + 1, i))
    Next i
    AA = s
End Function

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.18.2    Ответы    Паскаль-аналог    Java-аналог

Определить значение, выдаваемое функцией AA .


Function Pr1(n As Integer) As Integer
    Pr1 = n + 1
End Function

Function AA() As Integer
Dim i As Integer
Dim s As Integer
    s = 1
    For i = 1 To 4
        s = Pr1(s)
    Next i
    AA = s
End Function

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.18.3    Ответы    Паскаль-аналог    Java-аналог

Определить значение, выдаваемое функцией AA .


Function Pr(n As Integer) As Integer
    s = 0
    For i = 1 To n
        s = s + i
    Next i
    Pr = s
End Function

Function AA() As Integer
Dim j As Integer
Dim m As Integer
    m = 1
    For j = 1 To 3
        m = m * Pr(j)
    Next j
    AA = m
End Function

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.18.4    Ответы    Паскаль-аналог    Java-аналог

Определить значение, выдаваемое функцией AA .


Function Pr1(n As Integer, k As Integer) As boolean
    Pr1 = Not (n * k > k \ 2)
End Function

Function AA() As Integer
Dim j As Integer
Dim m As Integer
    s = 0
    If Pr1(3, 4) Then
        s = 15
    Else
        For j = 1 To 3
            s = s + j
        Next j
    End If
    AA = s
End Function

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.18.5    Ответы    Паскаль-аналог    Java-аналог

Определить значение, выдаваемое функцией AA .


Function Pr1(n As Integer) As Integer
    Pr1 = n \ 2
End Function

Function Pr2(n As Integer) As Integer
    Pr2 = n * n
End Function

Function Pr3(n As Integer) As Integer
    Pr3 = n Mod 2
End Function

Function AA() As Integer
Dim i As Integer
Dim s As Integer
    s = 0
    For i = Pr1(3) To Pr2(3)
        s = s + Pr3(i)
    Next i
    AA = s
End Function

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.18.6    Ответы    Паскаль-аналог    Java-аналог

Определить значение, выдаваемое функцией AA .


Function Pr1(n As Integer) As Integer
    Pr1 = n \ 2
End Function

Function Pr2(n As Integer) As Integer
    Pr2 = n * n
End Function

Function Pr3(n As Integer) As Integer
    Pr3 = n Mod 2
End Function

Function AA() As Integer
Dim i As Integer
Dim j As Integer
Dim s As Integer
    s = 0
    For i = 1 To 2
        For j = Pr1(i) To Pr2(i)
            s = s + Pr3(j)
        Next j
    Next i
    AA = s
End Function

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.18.7    Ответы    Паскаль-аналог

Определить значение, выдаваемое функцией AA .


Function Pr(n As Integer) As Boolean
    m = 0
    For j = 1 To n
        m = m + j
    Next j
    Pr = (m Mod n = 0)
End Function

Function AA() As Integer
Dim k As Integer
Dim s As Integer
    s = 0
    k = 3
    Do
        s = s + k
        k = k + 1
    Loop Until Pr(k)
    AA = s
End Function

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.18.8    Ответы    Паскаль-аналог    Java-аналог

Определить значение, выдаваемое функцией AA .


Function A1(N As Integer) As Integer
    A1 = N * N
End Function

Function A2(N As Integer) As Integer
    A2 = A1(N) + 2
End Function

Function A3(N As Integer) As Integer
    A3 = A1(N) * 3
End Function

Function AA() As Integer
Dim k As Integer
Dim m As Integer
    XX = 0
    For k = 1 To 2
        For m = A2(k) To A3(k)
            XX = XX + 1
        Next m
    Next k
    AA = XX
End Function

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.18.9    Ответы    Паскаль-аналог    Java-аналог

Определить значение, выдаваемое функцией AA .


Function Pr1(n As Integer) As Integer
    Pr1 = n * (n - 1)
End Function

Function Pr2(k, n As Integer) As Integer
    Pr2 = k * k - n * n
End Function

Function AA() As Integer
    s = 0
    For i = 1 To 2
        s = s + Pr1(Pr2(i + 1, i - 1))
    Next i
    AA = s
End Function

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.18.10    Ответы    Паскаль-аналог    Java-аналог

Определить значение, выдаваемое функцией AA .


Function Pr1(n As Integer) As Integer
    Pr1 = n * 3 + 1
End Function

Function AA() As Integer
Dim s As Integer
    s = 1
    For i = 1 To 4
        s = Pr1(s)
    Next i
    AA = s
End Function

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.18.11    Ответы    Паскаль-аналог    Java-аналог

Определить значение, выдаваемое функцией AA .


Function Pr1(n, k As Integer) As Boolean
    Pr1 = ((n + k + 2) > ((k * 5) \ 3))
End Function

Function AA() As Integer
Dim s As Integer
    s = 0
    If Pr1(3, 4) Then
        s = s + 2
    End If
    If Pr1(3, 2) Then
        s = s + 3
    End If
    If Pr1(4, 6) Then
        s = s + 7
    End If
    If Pr1(5, 1) Then
        s = s + 11
    End If
    If Pr1(0, 2) Then
        s = s + 20
    End If
    AA = s
End Function

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.18.12    Ответы    Паскаль-аналог    Java-аналог

Определить значение, выдаваемое функцией AA .


Function Pr1(n As Integer) As Integer
    Pr1 = n \ 2
End Function

Function Pr2(n As Integer) As Integer
    Pr2 = n * n
End Function

Function Pr3(n As Integer) As Integer
    Pr3 = n Mod 2
End Function

Function AA() As Integer
Dim s As Integer
Dim i As Integer
    s = 0
    For i = Pr1(3) To 3
        s = s + Pr1(Pr2(Pr3(i)))
    Next i
    AA = s
End Function

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.18.13    Ответы    Паскаль-аналог    Java-аналог

Определить значение, выдаваемое функцией AA .


Function Pr1(n As Integer) As Integer
    Pr1 = n + 2
End Function

Function Pr2(n As Integer) As Integer
    Pr2 = n * n + 5
End Function

Function Pr3(n As Integer) As Integer
    Pr3 = n * 2
End Function

Function AA() As Integer
Dim s As Integer
Dim i As Integer, j As Integer
    s = 0
    For i = 1 To 2
        For j = Pr1(i) To Pr2(i)
            s = s + Pr3(j)
        Next j
    Next i
    AA = s
End Function


Гнездо B.19. Задачи на подстановку операторов.

 

©   Александр Приходько    1996 - 2006

69 0