Einzelnen Beitrag anzeigen

Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
1.041 Beiträge
 
Delphi XE2 Professional
 
#1

"Pezision" die zweite

  Alt 10. Dez 2011, 02:35
Hallo boxer123.
Wenn ich deinen Beitrag richtig verstanden habe, dann möchtest du folgendes machen:
1) Ähnlich wie man die Quersumme einer Zahl bildet, willst du ein "Querprodukt" einer Zahl ermitteln, indem du alle Ziffern der Zahl multiplizierst.
2) Wenn das "Querprodukt" mehr als eine Ziffer enthält, willst du von diesem wieder das "Querprodukt" bilden, und du willst das solange machen, bis das Ergebnis nur noch eine Ziffer hat.
3) Die Anzahl der Iterationen, bis das "Querprodukt" nur noch eine Ziffer hat, zählst du.
4) Du willst eine Zahl finden, bei der 9 Iterationen erforderlich sind, um ein einziffriges "Querprodukt" zu erhalten.
Ein Beispiel:
Nehmen wir mal die Zahl 99988644 und los gehts
1: 9 * 9 * 9 * 8 * 8 * 6 * 4 * 4 = 4478976
2: 4 * 4 * 7 * 8 * 9 * 7 * 6 =338688
3: 3 * 3 * 8 * 6 * 8 * 8 = 27648
4: 2 * 7 * 6 * 4 * 8 = 2688
5: 2 * 6 * 8 * 8 = 768
6: 7 * 6 * 8 = 336
7: 3 *3 * 6 = 54
8: 5 * 4 =20
9: 2 * 0 = 0

Huch, das waren ja schon 9 Durchläufe. Was für ein Zufall.
Statt der 99988644 kannst du natürlich auch eine der anderen 7447 8-stelligen Zahlen aus anhängender Liste "HighCounts_9.txt" ausprobieren.
Auch bei insgesamt 282852 9-stelligen Zahlen wirst du fündig.
Übrigens, alle 8- und 9-stelligen Zahlen, die 9 Durchläufe brauchen haben beim ersten Durchlauf das "Querprodukt" 4478976
Im Anhang sind ist der Source-Code des Programms, mit dem ich das ermittelte.
Ist allerdings 'ne 64-Bit Version.
Angehängte Dateien
Dateityp: zip QP_Main.zip (102,4 KB, 11x aufgerufen)
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  Mit Zitat antworten Zitat