Ich wollte mir mal in 'nem Miniprogramm pi berechnen. Ich hab versucht, das über Annäherung des Umfangs machen aber irgendwie ist noch ein Fehler drin.
Bitte schaut das mal durch:
So weit ich das überblicken kann ist der Fehler im "kreisteil"
Bitte schaut das mal durch:
VB.NET-Quellcode
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Dim radius As Double = 7 'Radius festlegen
- Dim zahl_kreisteile As Integer = 64 '≙ Winkel von 5,625°
- Dim kreisteil As Double = Math.Sqrt(radius * radius + radius * radius - 2 * radius * radius * Math.Cos(5.625)) 'eine Seitenlänge bestimmen
- Dim Umfang_Näherung As Double = zahl_kreisteile * kreisteil 'Umfang mit allen Strecken annähren
- Dim pi As Double = (Umfang_Näherung / radius) / 2 'Pi durch umgestellte Formel berechnen
- MessageBox.Show(pi) 'Ausgabe von Pi
- End Sub
- End Class
So weit ich das überblicken kann ist der Fehler im "kreisteil"