AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Pi mit Pythagoras berechnen

Ein Thema von bender123 · begonnen am 21. Nov 2004 · letzter Beitrag vom 16. Dez 2004
 
bender123

Registriert seit: 21. Nov 2004
3 Beiträge
 
#1

Pi mit Pythagoras berechnen

  Alt 21. Nov 2004, 16:48
Hallo!

Ich bin am verzweifeln , denn folgendes klappt einfach nicht:

pi mit Pythagoras berechnen
Ein Halbkreis wird durch Rechtecke angenähert. Zunächst hat der erste Rechenlauf ein Rechteck mit der Höhe R im Vergleich mit der Halbkreisfläche. Dann wird die Höhe halbiert, 2 Rechtecke haben jeweils die Höhe R/2. Die Breite des Rechtecks ergibt sich jeweils aus dem Satz des Pythagoras. Dann wird der Radius gedrittelt, und neue Rechtecke bestimmt. Die Summe der Rechteckflächen wird jedes mal mit der Fläche des Halbkreises verglichen, die am Anfang des Programms ausgerechnet wurde. Ist die Abweichung kleiner als 1/10 Promille wird die Rechnung abgebrochen und das Ergebnis ausgegeben (mit der Anzahl der Rechtecke).


Mein Ansatz bisher:

Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
  begin
    close;
  end;

procedure TForm1.Button1Click(Sender: TObject);
  var i,
      kasten :integer;
      radius,
      breite,
      hoehe,
      kflaeche,
      p,
      halbkreis :double;
      genau :boolean;


  begin
    radius:=strtofloat(edit1.Text);
    halbkreis:=(pi*Sqr(radius))/2;
    kasten:=0;
    genau:=false;
    while not genau do
    begin
      inc(kasten);
      kflaeche:=0;
      for i:=0 to kasten do
      begin
        hoehe:=radius/kasten;
        if i=0
          then breite:=2*radius
          else breite:=2*(power((Sqr(radius)-Sqr(i*hoehe)),(1/2)));
        kflaeche:=kflaeche+(hoehe*breite);
      end;
      if halbkreis >= (kflaeche*0.8) then genau:=true;
    end;
    p:=(kflaeche*2)/(Sqr(radius));
    label3.caption:=floattostr(p);
    label4.caption:=inttostr(i);
  end;

Sobald ich die Genauigkeit aber höher als 80% setze, erscheint folgende Fehlermeldung:

"Im Projekt project1.exe ist eine Exception der Klasse EInvalidOp aufgetreten. Meldung:'Ungültige Gleitkommaoperation'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen."

Was mache ich falsch ?!?

Im Anhang das gezippte Projekt
Angehängte Dateien
Dateityp: zip pi.zip (251,4 KB, 3x aufgerufen)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz