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

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. Строки.

69 0