Voorbereiding PI-dag

Ter gelegenheid ven de PI-dag kregen we van Luc Gheysens, begeleider wiskunde een programmaatje om 'PI' te benaderen.
We kregen zijn toestemming om het hier te publiceren.
Uit zijn mail:"Gebruik gerust dat programma om te schieten naar PI. De collega's kunnen er maar plezier aan beleven.
Volgend jaar maken we er een pi-hoogdag van."

SCHIETEN NAAR PI

PROGRAM:PI
:ClrHome
:Disp “AANTAL SCHOTEN:”
:Prompt N
:0→S
:For(I,1,N)
:rand→X
:rand→Y
:If X² + Y² ≤1
:Then
:S+1→S
:End
:End
:Disp “SUCCESSEN:”
:Disp S
:Disp “BENADERING PI:”
:Disp 4S/N

Op 13 maart tijdens de speeltijd...