hallo ich hab ein problem
ich hab ein programm geschrieben das pi berechnen sollte!
aber es rechnet brav vor sich dahin und am ende hat die zahl nur 12 nachkommastellen was kann ich dagegen tun
hier der code:
Imports System.IO
Imports System
Module Module1
Dim x, y
Dim erg
Dim txt As StreamWriter
Sub Main()
Console.WriteLine("PI wird berechnet...")
rechnen()
Console.WriteLine("Das Ergebnis wurde unter C:\Pi.txt gespeichert.")
Console.ReadLine()
End Sub
Sub rechnen()
x = 1
y = 3
Dim gh
erg = 0
For gh = 0 To 9999999
erg += 1 / x - 1 / y
'Console.WriteLine(4 * erg)
x += 4
y += 4
Next
txt = New StreamWriter("C:\pi.txt")
txt.WriteLine(4 * erg)
txt.Close()
End Sub
End Module
ich hab ein programm geschrieben das pi berechnen sollte!
aber es rechnet brav vor sich dahin und am ende hat die zahl nur 12 nachkommastellen was kann ich dagegen tun
hier der code:
Imports System.IO
Imports System
Module Module1
Dim x, y
Dim erg
Dim txt As StreamWriter
Sub Main()
Console.WriteLine("PI wird berechnet...")
rechnen()
Console.WriteLine("Das Ergebnis wurde unter C:\Pi.txt gespeichert.")
Console.ReadLine()
End Sub
Sub rechnen()
x = 1
y = 3
Dim gh
erg = 0
For gh = 0 To 9999999
erg += 1 / x - 1 / y
'Console.WriteLine(4 * erg)
x += 4
y += 4
Next
txt = New StreamWriter("C:\pi.txt")
txt.WriteLine(4 * erg)
txt.Close()
End Sub
End Module