bb2e Visual Basic. B.9. Гнездо задач. Оператор If с другими операторами. Сборник задач по программированию Александра Приходько
 

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

 

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

 
апплет, образование, язык программирования, программа, xml, учебник, файл, visual basic
 

Visual Basic. B.9. Гнездо задач. Оператор If с другими операторами

 

 

Калькулятор

/ - деление

\ - остаток

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

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

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

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


Function AA() As Integer
    dd = 0
    For i = 1 To 15
        If i Mod 4 = 1 Then
            dd = dd + 1
        End If
    Next i
    AA = dd
End Function

 

 

Калькулятор

/ - деление

\ - остаток

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

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

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

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


Function AA() As Integer
    dd = 0
    k = 0
    Do
        k = k + 1
        If (k \ 3) > 3 Then
            dd = dd + 1
        End If
    Loop Until (k = 15)
    AA = dd
End Function

 

 

Калькулятор

/ - деление

\ - остаток

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

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

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

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


Function AA() As Integer
    dd = 0
    k = 15
    Do
        k = k - 1
        If k \ 3 > 3 Then
            dd = dd + 1
        End If
    Loop Until k = 1
    AA = dd
End Function

 

 

Калькулятор

/ - деление

\ - остаток

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

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

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

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


Function AA() As Integer
    dd = 0
    k = 0
    While k < 15
        k = k + 1
        If k Mod 2 = 1 Then
            dd = dd + 1
        End If
    Wend
    AA = dd
End Function

 

 

Калькулятор

/ - деление

\ - остаток

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

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

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

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


Function AA() As Integer
    dd = 0
    k = 16
    While k > 1
        k = k - 1
        If k Mod 2 = 1 Then
            dd = dd + 1
        End If
    Wend
    AA = dd
End Function


Гнездо B.12. Строки.

 

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

69 0