Delphi-PRAXiS - Delphi mehr Nachkomma-stellen???

Hey leutz...is mein erster post, darum erst ma DANKE...is echt ne dolle page und hat mir schon wiel geholfen...thx
Hab jetzt noch'n problämchen: schreib meine facharbeit über Pi und will ads jetzt nach der methode vom archimedes bercehnen. Mein Quelltext hängt hinten dran...Jetzt hab ich mir so gedacht, dass diese Verfahren ja eigendlcih ne dolle sache is, aber wenn man nur 14 nachkommastellen ausgeben kann is's ja och wiedre sinnlos...andre ham ja immerhin schon über 1 billion stellen bercehnet :gruebel:
kennt ihr möglichkeiten, mit den ich paar mehr stellen anzeigen kann? Hab mir so überlegt, dass man ja die zahlen in strings speichern könnte und dann in paar functions dem rechner die multiplikation, addition, division bebringen...da is's prob aber wieder, dass ich das beim wurzelziehn ni wirklich hinkrieg...also wär suuuuper wenn mir jemand helfen könnte
danke schon mla

:dancer2: :witch: :firejump: (sry, aber die smileys musst ich jetzt ma bringen...find die so gaiiiil :love: :tongue:

ach übrigens...i mach's so hier:

http://www.uni-leipzig.de/~sma/pi_ei...rchimedes.html

Code:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Borland.Vcl.StdCtrls, System.ComponentModel, Math;

type

  TForm1 = class(TForm)

    Start: TButton;

    Ende: TButton;

    zahl_a: TLabel;

    zahl_b: TLabel;

    Weiter: TButton;

    ecken: TLabel;

    procedure WeiterClick(Sender: TObject);

    procedure StartClick(Sender: TObject);

    procedure EndeClick(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

  a, b, n: Real;

implementation

{$R *.nfm}

procedure TForm1.EndeClick(Sender: TObject);

begin

  close;

end;

procedure TForm1.StartClick(Sender: TObject);

begin

  a:= 2* (power (3, 0.5));

  b:= 3;

  n:=0;

  form1.Weiter.Click;

end;

procedure TForm1.WeiterClick(Sender: TObject);

begin

  n:= n + 1;

  a:= (2*a*b)/(a+b);

  b:= power ((a*b),0.5);

  zahl_a.Caption:= floattostr (a);

  zahl_b.Caption:= floattostr (b);

  ecken.Caption:= floattostr (6* power (2,n)) + ' Ecken';

  application.ProcessMessages;

end;

end.