Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.054 Beiträge
 
Delphi 12 Athens
 
#17

Re: qwertz543221 kleine String-Math-Lib

  Alt 12. Jun 2009, 19:37
die innere Schleife etwas anders geordnet:
Zitat:
erstmal den Divisor auf die Stellenanzahl des Dividenden bringen
und gleichzeitig die Stellen zu merken

also

456789
123000
=3 verschobeneStellen

den Quotient mit 0 initialisieren

Schleife:

* * wenn neuer Divisor größer-gleich Dividend dann wiederhole Schleife2
* * * * (ohne mit dem Dividend in den negativen Bereich zu kommen)
* * * * den Quotient um 10^verschobeneStellen erhöhen (dazuaddieren)
* * ende Schleife2

* * nun Dividend durch 10 (eine Stelle wieder entfernen)
* * verschobeneStellen minus 1

wenn verschobeneStellen größer 0, dann wiederhole die Schleife
also im Prinzip das
Quotient := summe(Quotient, potenz(10, verschobeneStellen));
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat