Delphi-PRAXiS
Seite 9 von 9   « Erste     789   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Neuen Beitrag zur Code-Library hinzufügen (https://www.delphipraxis.net/33-neuen-beitrag-zur-code-library-hinzufuegen/)
-   -   Delphi [Tutorial] Quadratische Gleichungen vollständig lösen (https://www.delphipraxis.net/137624-%5Btutorial%5D-quadratische-gleichungen-vollstaendig-loesen.html)

Wolfgang Mix 20. Feb 2010 19:43

Re: [Tutorial] Quadratische Gleichungen vollständig lösen
 
Auch gut :)

Wolfgang Mix 31. Mär 2010 19:42

Re: [Tutorial] Quadratische Gleichungen vollständig lösen
 
Ich habe das Tutorial als PDF wegen Übersichtlichkeit nach Post #1 verschoben.

Gruss

Wolfgang

Namenloser 1. Apr 2010 01:04

Re: [Tutorial] Quadratische Gleichungen vollständig lösen
 
Ich war mal so frei, das PDF mit LaTeX neu zu machen. Oh mann, das hat jetzt wieder viel länger gedauert als es eigentlich sollte :wall: :mrgreen:

[edit]
Aktuelle Version im 1. Beitrag.
[/edit]

alzaimar 1. Apr 2010 06:29

Re: [Tutorial] Quadratische Gleichungen vollständig lösen
 
Na, mit LaTex sieht das doch gleich viel besser aus.

Das 'geniale' Verfahren von Gammatester ist gar nicht so genial, weil es unnötigen Code produziert und am Thema vorbei geht. Wir haben es hier mit einer Fallunterscheidung zu tun, die in der Mathematik auch entsprechend gekennzeichnet wird (große öffnende geschweifte Klammer und dann untereinander die Fälle). Entsprechend sollte der Pseudocode auch aussehen:
Delphi-Quellcode:
Case sign(Value) of
  -1 : ... ;
   0 : ... ;
  +1 : ... ;
End;
oder so (das berücksichtigt sogar die ist-gleich-Null Problematik);
Delphi-Quellcode:
Case CompareValue (Value,0) of
  -1 : ... ;
   0 : ... ;
  +1 : ... ;
End;
Ich finde das Tutorial wirklich gut, denn es zeigt, wie knifflig scheinbar banale Dinge werden können, wenn man sie richtig angeht.

Da die begrenzte Genauigkeit und die damit verbundenen Probleme ausführlich behandelt werden (das ist ja der Kern der Abhandlung), müsste Wolfgang folgerichtig (und um das Thema abzurunden) auch auf die 'Ist-Gleich-Null' Problematik näher eingehen.

Z.B. Führt folgende einfache Schleife unsinnigen Ergebnissen:
Delphi-Quellcode:
Var
  x : Double;

Begin
  x:= -0.2;
  While x < 0.1 do begin
    if (x<0) or (x>0) then
      Writeln (x,' ist ungleich 0')
    else
      Writeln(x,' ist gleich 0');
    x := x + 0.1;
  End
End
Wir erwarten nach zwei Durchläufen die Ausgabe '0 ist gleich 0'. Das wird aber nicht passieren.

D.h. muss man eben Werte, die sehr nahe bei 0 liegen, als 0 behandeln. Dabei ist die Grenze vom gewählten Datentyp abhängig.

Wolfgang Mix 1. Apr 2010 19:03

Re: [Tutorial] Quadratische Gleichungen vollständig lösen
 
Updated :!:

Siehe Post #1

Wolfgang Mix 10. Apr 2010 20:14

Re: [Tutorial] Quadratische Gleichungen vollständig lösen
 
Ich bin überrascht, wieviel Interesse an diesem eigentlich
trockenen Thema besteht und natürlich auch erfreut darüber.
Vielleicht liegt es z.T. auch daran, dass Philip Zander (Namenloser)
das Ganze optisch noch optimiert hat, dem ich dafür hier noch
einmal herzlich danke!!!

Vielleicht ergibt sich demnächst ja etwas Ähnliches, wenn Interesse besteht.

Gruss

Wolfgang


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:45 Uhr.
Seite 9 von 9   « Erste     789   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz