Question

How to find all pythagorean triples (a^2 + b^2 = c^2) from an array in VB.NET

Answer 1

Public Class Program
    Private Shared Sub PrintPythagoreanTriples(ByVal arr As Integer())
        Dim size As Integer = arr.Length

        For i As Integer = 0 To size - 2 - 1
            For j As Integer = i + 1 To size - 1 - 1
                For k As Integer = i + 2 To size - 1
                    Dim a As Integer = arr(i)
                    Dim b As Integer = arr(j)
                    Dim c As Integer = arr(k)

                    If a * a + b * b = c * c Then
                        Console.WriteLine(a & " " & b & " " & c)
                    End If
                Next
            Next
        Next
    End Sub

    Public Shared Sub Main(ByVal args As String())
        Dim arr As Integer() = New Integer() {2, 3, 4, 5, 6, 7, 8, 9, 10}

        PrintPythagoreanTriples(arr)
    End Sub
End Class




' run:
' 
' 3 4 5
' 6 8 10
'

 

70+ SQL courses for beginners and professionals