ChangeLog
[01.07.2009 20°° v1.5]
- Rechenfehler aus #67 behoben
Plus1(-1) -> -0 statt 0
dieses Problem tritt hier nicht auf
(wie vermutzt, wird es durch die "Normalisierung" behandelt)
eventuell lag es ja an einem Fehler der Normalisierung, welchen ich vorhin schon behoben hatten
Delphi-Quellcode:
PotenzModulo(x,0,0) -> 1 statt Fehler
PotenzModulo(x,0,1) -> 1 statt 0
PotenzModulo(x,0,-1) -> 1 statt 0
diese Sonderfälle werden jetzt geprüft und behandelt
Negieren(0) -> -0 statt 0
Sonderfall 0 wird nun beachtet und nicht behandelt
Delphi-Quellcode:
Quotient(-0,-x) -> -0 statt 0
Produkt(-x,0) -> -0 statt 0
war auf den Fehler in Negieren zurückzuführen
PS: laß dir mal im Debugger das e anzeigen ... vonwegen -0 gäbe es nicht
Delphi-Quellcode:
e := 0;
PByte(@e)[9] := $80;
if e = 0 then ;