Er zijn 2 reacties in dit onderwerp

[RedThread]

Citeren

A Pythagorean triplet is a set of three natural numbers, a b c, for which, a2 + b2 = c2 For example, 32 + 42 = 9 + 16 = 25 = 52.
There exists exactly one Pythagorean triplet for which a + b + c = 1000.Find the product abc.

[RedThread]

Visual Basic Code:

Function Problem9() As Long
	For k As Long = 500 To 1 Step -1
		For j As Long = k - 1 To 1 Step -1
			For i As Long = j - 1 To 1 Step -1
				If i + j + k = 1000 Then
					If (i ^ 2) + (j ^ 2) = (k ^ 2) Then
						Return (i * j * k)
					End If
				End If
			Next
		Next
	Next
End Function

Note : Coded by Vozzie

[Dominiek]

Je kan dit nog net iets korter, aangezien je weet dat c=wortel(a²+b²)
Visual Basic Code:

Function Problem9() As Long
	For j As Long = 500 To 1 Step -1
		For i As Long = j - 1 To 1 Step -1
			If i + j + Math.Sqrt(i ^ 2 + j ^ 2) = 1000 Then
				Return (i * j * Math.Sqrt(i ^ 2 + j ^ 2))
			End If
		Next
	Next
End Function