How to calculate square root (or floor square if not perfect square) of an integer in VB.NET

1 Answer

0 votes
Imports System

Public Class Test
    Public Shared Function sqrt_(n As Integer) As Integer
        If n = 0 Or n = 1 Then
            return n
        End If
        
        Dim i As Integer = 1 
        Dim sq As Integer = 1
          
        Do While sq <= n
          i += 1
          sq = i * i
        Loop
        
        return i - 1
    End Function
    
    Public Shared Sub Main()
        Console.WriteLine(sqrt_(9))
        Console.WriteLine(sqrt_(5))
        Console.WriteLine(sqrt_(26))
        Console.WriteLine(sqrt_(16))
    End Sub
End Class



' Run:

' 3
' 2
' 5
' 4

 



answered May 7, 2019 by avibootz
...