Book of tasks on programming. Old version

 

 by Aliaksandr N. Prykhodzka

 

logical, online, servlet, текстовый, метод пузырьков, downto, динамический, author, select, variable, test, type, образование, else, with, vector, сохраненная процедура
 

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

Visual Basic. B.5. Nest of tasks. Operator While

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

B.5.1     Answer      Pascal-analogue      Java-analogue

Determine a value produced by function AA .


Function AA() As Integer
    zz = 0
    n = 2
    k = 1
    While n > k
        zz = zz + 1
        n = n + 5
        k = k * 2
    Wend
    AA = zz
End Function


 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

B.5.2     Answer      Pascal-analogue      Java-analogue

Determine a value produced by function AA .


Function AA() As Integer
    zz = 0
    n = 1
    While zz < 100
        zz = zz + n
        n = n + 1
    Wend
    AA = zz
End Function


 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

B.5.3     Answer      Pascal-analogue      Java-analogue

Determine a value produced by function AA .


Function AA() As Integer
    zz = 1
    While zz < 1000
        zz = zz * 2
    Wend
    AA = zz
End Function


 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

B.5.4     Answer      Pascal-analogue      Java-analogue

Determine a value produced by function AA .


Function AA() As Integer
    zz = 0
    k = 1
    While k < 5
        If k Mod 2 = 0 Then
            zz = zz - 3
        Else
            zz = zz + 5
        End If
        k = k + 1
    Wend
    AA = zz
End Function


 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

B.5.5     Answer      Pascal-analogue      Java-analogue

Determine a value produced by function AA .


Function AA() As Integer
    zz = 1000
    While zz > 10
        zz = zz / 3
    Wend
    AA = zz
End Function


 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

B.5.6     Answer      Pascal-analogue      Java-analogue

Determine a value produced by function AA .


Function AA() As Integer
    zz = 1
    k = 1
    While k < 5
        zz = zz * k
        k = k + 1
    Wend
    AA = zz
End Function


 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

B.5.7     Answer      Pascal-analogue      Java-analogue

Determine a value produced by function AA .


Function AA() As Integer
    zz = 1
    While Not (zz Mod 7 = 0)
        zz = zz + 1
    Wend
    AA = zz
End Function


 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

B.5.8     Answer      Pascal-analogue      Java-analogue

Determine a value produced by function AA .


Function AA() As Integer
    zz = 0
    b1 = True
    While b1
        zz = zz + 1
        b1 = b1 And (zz < 5)
    Wend
    AA = zz
End Function


 

©   Aliaksandr Prykhodzka    1993 - 2007