Verwijderde inhoud Toegevoegde inhoud
Nieuw kopje aangemaakt: →Pythagorese drietallen. |
|||
Regel 86:
Beste Bob,<br>
Misschien is het volgende leuk om eens uit te proberen.<br>
Ik heb een eenvoudige macro in Excel geschreven voor het genereren van Pythagorese drietallen.<br>
In mijn kladblok vind je onder de titel Pythagorese drietallen hoe ik aan de formules, die ik heb gebruikt, kom.<br>
Hieronder vind je de brontekst van de macro.<br>
<br>
Option Explicit<br>
Sub generate()<br>
Dim p As Integer<br>
For p = 1 To 100<br>
Cells(p, 1).Value = 2 * p<br>
Cells(p, 2).Value = (p ^ 2 - 1)<br>
Cells(p, 3).Value = (p ^ 2 + 1)<br>
Cells(p, 4).Value = 2 * p + 1<br>
Cells(p, 5).Value = 2 * p * (p + 1)<br>
Cells(p, 6).Value = 2 * p * (p + 1) + 1<br>
Next p<br>
End Sub<br>
<br>
Met vriendelijke groeten, Wim<br>
| |||