Forum: Sonstige Fragen zu Delphi
Delphi
by gammatester,
16. Mär 2007
Diese Diskussion wird ja immer absurder. Wenn überhaupt irgendetwas halbwegs sinnvoll auf Gleichheit getestet werden kann, dann sollte doch wohl a=a für alle Elemente gelten.
Wenn (und leider ist da kein Link) Wikipedia das schreibt, dann ist es halt schlicht und einfach falsch.
Schönes Wochenende
Gammatester
Forum: Sonstige Fragen zu Delphi
Delphi
by gammatester,
16. Mär 2007
Das ist ziemlicher Blödsinn aus mindestens zwei Gründen:
1. Wie reden hier von integern, da gibts es kein NaN
2. Wenn Du schon Fließkommazahlen benutzen willst und solche Behauptungen aufstellst, solltest Du sie vielleicht vorher mal testen. Rate mal, was auf dem Button erscheint, wenn Du den das folgende Stück in ein Programm einbaust.
uses math;
procedure TForm1.Button1Click(Sender:...
Forum: Sonstige Fragen zu Delphi
Delphi
by gammatester,
15. Mär 2007
Das ist erstens nicht ganz richtig, weil -abs(0) nicht kleiner ist als abs(0), und zweitens hier völlig irrerelevant, denn es wird doch offensichtlich die Standardinterpretation von ganzen Zahlen (im 32 Bitbereich betrachtet.
Allerdings würde mich ein Beispiel interessieren, wo "-"], "<"] und "abs" definiert sind aber -abs(d) <= abs(d) nicht gilt.
Gammatester
Forum: Sonstige Fragen zu Delphi
Delphi
by gammatester,
15. Mär 2007
Alles richtig, aber es besteht doch wirklich keine Notwendigkeit dazu. Du nimmts doch auch nicht den Ergebnistyp
type posint = 0..MaxInt
Forum: Sonstige Fragen zu Delphi
Delphi
by gammatester,
15. Mär 2007
Richtig ist abs, das kann man leicht einsehen: ggt ist der größte gemeinsame Teiler. Wenn also -abs(d) und abs(d) gemeinsame Teiler sind, ist doch wohl abs(d) der größere.
Genau, also warum sollte der Ergebnistyp ein anderer sein als der gemeinsame Ausgangstyp? Er ist ja auch nicht int64 oder uint64.
Gammatester
Forum: Sonstige Fragen zu Delphi
Delphi
by gammatester,
14. Mär 2007
Zur Klarstellung:
nicht der Beitrag von Cöster ist fehlerhaft, sondern der Delphicode den Chakotay1308 in Code-Library-Eintrag zum Euklidschen Algorithmus daraus ableitet.
function ggT(A, B: Integer): Cardinal;
var
Rest: Integer;
begin
while B <> 0 do
begin