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
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
(sry, aber die smileys musst ich jetzt ma bringen...find die so gaiiiil
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.