Feedback

VB - Ganzzahlige Wurzel

Veröffentlicht von am 07.03.2011
(0 Bewertungen)
Diese Funktion ermittelt jene Ganzzahl, welche kleiner oder gleich der Wurzel der übergebenen Zahl n ist. Beispiel:

isr(38) = 6, da gilt: 6² = 36 < 38 und 7² = 49 > 36
isr(121) = 11, da gilt: 11² = 121
GFU-Schulungen  [Anzeige]

C# Grundlagen

Die Schulung vermittelt Ihnen die Grundlagen von C# in der Arbeit mit Datentypen sowie bei Klassenbibliotheken. Sie lernen, mit Variablen umzugehen und deren verschiedene Formen zu konvertieren. 

VB.NET 2017/2015/2013 Komplett

Ziel des Seminars ist der flexible Umgang mit VB.NET, wie z.B. die damit verbundene eigenständige Entwicklung von Programmen oder das Verwenden von Datenbanken.

Function isr(ByVal n As Integer) As Integer
    Dim res As Integer = 0, l As Integer = 1073741824 '= 2^30
    While l > n
        l >>= 2
    End While

    While l
        If n >= res + l Then
            n -= res + l
            res += l << 1
        End If
 
       res >>= 1
        l >>= 2
    End While

    Return res
End Function

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!