PI berechnen mit Ramanujan 2. Methode

[jokerfacehro]

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;