yo ich hab nen ähnliches problem habe schon alles ausprobiert aber das programm hängt sich beim ausführen auf bzw. ich vermute das die for schleife unendlich ausgeführt wird!
oder meine abbruch bedingung ist falsch kann mir jemand helfen!
studiere maschinenbau und habe nun informatik als fach dazu bekommen!
hier ist mein delphi code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
R,
anzahl,
i
:integer;
summe,
flaeche,
hoehe,
genau,
breite
:double;
begin
R:=100;
anzahl:=0;
summe:=0;
//Pi:=3.1415926535897932385;
repeat
inc(anzahl);
summe:=2*R*R/anzahl;
if anzahl=1 then
begin
hoehe:=R;
breite:=2*R;
flaeche:=breite*hoehe;
summe:=summe+flaeche;
genau:=(summe-0.5*Pi*R*R)/(0.5*Pi*R*R);
end
Else
for i:=2 to anzahl do
begin
hoehe:=(i-1)*(R/anzahl);
breite:=Sqrt(R*R-(hoehe*hoehe));
flaeche:=breite*hoehe;
summe:=summe+flaeche;
end;
genau:=(summe-0.5*Pi*R*R)/(0.5*Pi*R*R);
until genau < (1/10000);
LabeledEdit2.Text:=IntToStr(anzahl);
LabeledEdit3.Text:=FloatToStr(summe*2/10000);
end;
end.
[edit=Luckie]Delphi-Tags Mfg, Luckie[/edit]