Kreiszahl Pi berechnen                               zurück

Dieses kleine Programm berechnet die Kreiszahl Pi

Ganz schnell

Pi = 4*Atn(1)

Hinter dem Befehl  Pi2  steht folgender Code:

Sub Befehl2_Click ()

Rem pi/4 = 1/1 - 1/3 + 1/5 - 1/7 + 1/9 - 1/11 ....+ 1/n - 1/(n-2)

Dim pie, a, b As Double

pie = 0

For n = 1 To 10000000 Step 4

• pie = pie + 1 / n - 1 / (n + 2)
• If n < 200 Then Print n, n + 2, pie * 4
• Rem beim Rechnen zuschauen

Next n

pi = pie * 4

Print "Pi = " & pi

End Sub

Hinter dem Befehl Pi3 steht folgender Code:

Link zur Seite über die Kreiszahl Pi