danke ^^
man schätzt, dass man um den umfang des universums zu berechnen gerade mal 50 nachkommastellen braucht. naja wir sind ja bereits bei mehr als einer billion stellen xD
ich hab grad en bischen langeweile und wollt schon immer ma pi berechnen xD
und denn mach ich ein zahlensystem mit der basis PI auf xD
hier ein weiterer algo, der nich ganz so leistungsstark is:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var x,y,a,b,c,pi:extended;
i:integer;
begin
x:=1;
a:=1;
b:=1/sqrt(2);
c:=0.25;
for i:=0 to 3 do begin
y:=a;
a:=( a + b ) / 2;
b:=sqrt( b * y );
c:=c - x * sqr( a - y );
x:=2*x;
pi:=sqr( a + b ) / (4 * c);
Memo1.Lines.Add(FloatToStr(pi));
end;
end;