      Solved

# Opdracht 009

Er zijn 2 reacties in dit onderwerp

Beheerder VBIB

• • Beheerder
• • 3601 berichten
Laatst bezocht 08 aug 2020 23:23
• 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.

Beheerder VBIB

• • Beheerder
• • 3601 berichten
Laatst bezocht 08 aug 2020 23:23
• 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
•   • 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 [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)