Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Kürzen bei einem Bruchrechner (https://www.delphipraxis.net/78876-kuerzen-bei-einem-bruchrechner.html)

Cöster 12. Okt 2006 22:37

Re: Kürzen bei einem Bruchrechner
 
Zitat:

Zitat von SnuffMaster23
Du könntest z.B. solange nach rechts shiften bis bei einer Zahl hinten keine 1 mehr steht. Dann hast du schonmal mit ner Potenz von 2 gekürzt.
Aber ich denke das is jetzt wieder zu hoch für dich^^.

Und warum erzählst du's dann? Ich glaub kaum, dass du dich bei deinen ersten Programmierversuchen schon mit bitweisen Operatoren beschäftigt hast.

Zum Thema:
Du müsstest dir eine Funktion schreiben, der 2 Integerzahlen als Parameter übergeben werden und die dann den größten gemeinsamen Teiler zurückliefert. In der Funktion sollten in einer Schleife die ganzen Zahlen bei 2 beginnend aufwärtsgezählt durchgegangen werden.
a) Wenn man beide Parameter durch diese Zahl teilbar sind, teilst du sie dadurch und multiplizierst result mit dieser Zahl (ganz am Anfang der Funktion sollte result auf 1 gesetzt werden). Dann versuchst du es nochmal mit derselben Zahl.
b) Wenn NICHT beide Parameter durch diese Zahl teilbar sind, erhöhst du die Zahl und versuchst das ganze mit dieser erhöhten Zahl.

Das ist jetzt kein fertiger Code, sondern das, was der Code machen sollte. Das musst du nur noch in Code umschreiben. Wenn du dazu nochmal ne Frage hast, kannst du sie hier stellen, aber wir werden dir nicht ALLE Arbeit abnehmen können.

Alexander Roth 13. Okt 2006 06:39

Re: Kürzen bei einem Bruchrechner
 
Viel effizienter und um weiten einfacher zu programmieren ist das:
http://de.wikipedia.org/wiki/Euklidischer_Algorithmus

Es findet den GGt raus und den willst du ja auch haben. Dann kanst du mit dem GGt kürzen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:16 Uhr.
Seite 2 von 2     12   

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