AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Quersumme erstellen die durch 9 teilbar ist
Thema durchsuchen
Ansicht
Themen-Optionen

Quersumme erstellen die durch 9 teilbar ist

Ein Thema von MiniKeks · begonnen am 24. Dez 2004 · letzter Beitrag vom 26. Dez 2004
Antwort Antwort
Seite 3 von 3     123   
Benutzerbild von Nikolas
Nikolas

Registriert seit: 28. Jul 2003
1.528 Beiträge
 
Delphi 2005 Personal
 
#21

Re: Quersumme erstellen die durch 9 teilbar ist

  Alt 25. Dez 2004, 13:40
Nimm dir doch einfach eine Random-Zahl (x) , berechne die Quersumme, rechne x mod 9 und addierst diese Zahl zu x. Diese Zahl sollte dann durch 9 teilbar sein. Wenn x mod 9 kleiner als 5 sein sollte, musst du diese Zahl von x subtrahieren.
Die Lösung ist noch nicht vollständig durchdacht, aber der Ansatz ist sicher richtig.
Erwarte das Beste und bereite dich auf das Schlimmste vor.
  Mit Zitat antworten Zitat
Urba

Registriert seit: 8. Dez 2002
Ort: Ketsch
120 Beiträge
 
Delphi 6 Personal
 
#22

Re: Quersumme erstellen die durch 9 teilbar ist

  Alt 25. Dez 2004, 14:46
Hallo,

Hab mal ein bisschen rumgeschaut und einen schönen Beweis gefunden bzw selbst formuliert :

zu beweisen ist ja :

Ist die Quersumme einer Zahl durch 9 teilbar, dann ist auch die Zahl selbst durch 9 teilbar.

also nimmt man eine Zahl a deren Quersumme durch 9 teilbar ist (Für "Quersumme" setzte ich jetzt einfach mal die Zahl in geschweifte Klammern) :

a = a0 * 10^0 + a1 * 10^1 + ... + an * 10^n

{a} = a0 + a1 + ... + an

{a}
--- = n, n € N
9

nun wandelt man die eigentliche Zahl etwas um ...

a = a0 * 10^0 + a1 * 10^1 + ... + an * 10^n
= a0 * (10^0 - 1) + a0 + a1 * (10^1 - 1) + a1 + ... + an * (10^n - 1) + an

etwas umgeformt ergibt das

a = [ a0 + a1 + ... + an ] + [ a0 * (10^0 - 1) + a1 * (10^1 - 1) + ... + an * (10^n - 1) ]

unschwer zu erkennen ist dass im 2ten Block alle Summanden durch 9 teilbar sind (10-1, 100-1, 1000-1 ...). Der erste Block wissen wir allerdings aus unserer Vorraussetzung ist auch durch 9 teilbar und somit sind ALLE Summanden von a durch 9 teilbar und somit auch a selbst !!! Damit ist bewiesen : wenn die Quersumme durch 9 teilbar ist, dann ist auch die Zahl selbst durch 9 teilbar. (sonst wäre der erste Block nicht durch 9 teilbar)


Ich weiß dass das jetzt nicht unbedingt die Antwort auf die Frage ist, aber so lernt jeder (eingeschlossen mich) mal wieder was dazu und vielleicht hilft es auch MiniKeks weiter.

Zu seinem eigentlichen Problem würde ich immernoch sagen, dass er die Zahlen von 9 bis [beliebige Anzahl] mit einer for-Schleife durchgeht und schaut, ob die Quersumme 9 ist. Ist dies der Fall ist die Zahl - wie wir ja jetzt wissen - durch 9 teilbar und er hat seine Zahl gefunden. Von daher gesehen ist es sogar doch hilfreich dass er den Beweis kennt, denn so muss er nur die Quersumme bilden, was bedeutend einfacher ist als immer zu testen ob die Zahl durch 9 teilbar ist.

Wünsche noch schöne Feiertage

Gruss
Urba
Es gibt keine blöden Fragen, nur blöde Antworten
  Mit Zitat antworten Zitat
Oxmyx

Registriert seit: 21. Sep 2004
499 Beiträge
 
#23

Re: Quersumme erstellen die durch 9 teilbar ist

  Alt 26. Dez 2004, 02:20
Zitat von Dani:
Zitat:
Doch! Die Quersumme jedes vielfachen von 9 ist durch 9 teilbar:
Toll, was hab ich denn gestern um 23:36 geschrieben *g*
Mit falsifizieren meinte ich eigentlich, du musst nur eine einzige Zahl finden, auf die meine Annahme nicht zutrifft, und du hast die Annahme widerlegt. Ich kenne leider kein Verfahren, mit dem es sich beweisen lässt. Vielleicht gibts auch keines.
Man kann durch vollständige Induktion beweisen, dass die Quersumme jedes Vielfachen von 9 durch 9 teilbar ist.
  Mit Zitat antworten Zitat
Urba

Registriert seit: 8. Dez 2002
Ort: Ketsch
120 Beiträge
 
Delphi 6 Personal
 
#24

Re: Quersumme erstellen die durch 9 teilbar ist

  Alt 26. Dez 2004, 02:37
Vollständige Induktion ist ein Grundverfahren, richtig gut sind Beweise die nicht darauf basieren. Kennst du Euklids Beweis dass Wurzel 2 irrational ist ? Genial, weil ohne vollständige Induktion. Will hier jetzt keine Mathediskussion herbeirufen und ich hab auch nichts dagegen, aber wenn es ohne geht finde ich um einiges esthetischer!

Was hast du denn gegen meinen Beweis ?

Gruss
Urba
Es gibt keine blöden Fragen, nur blöde Antworten
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 3 von 3     123   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:08 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz