Springen naar inhoud


- - - - -
Solved

Opdracht 009



  • Log in a.u.b. om te beantwoorden
Er zijn 2 reacties in dit onderwerp

#1 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3592 berichten
    Laatst bezocht vandaag, 09:12
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 14 oktober 2010 - 12:54

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.


#2 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3592 berichten
    Laatst bezocht vandaag, 09:12
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 14 oktober 2010 - 12:54

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

#3 Dominiek

Dominiek

    Senior Developer

  • Leden
  • PipPipPip
  • 120 berichten
    Laatst bezocht 11 mei 2016 14:42

Geplaatst op 02 december 2010 - 16:41

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






Ook met taq Solved voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[Solved] Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)