Summer aller Teiler < Maple < Mathe-Software < Mathe < Vorhilfe
|
| Status: |
(Frage) beantwortet  | | Datum: | 16:14 Fr 09.11.2007 | | Autor: | mcyonx |
| Aufgabe | Bei Eingabe einer natürlichen Zahl m soll die Summe S(m) aller Teiler von m, die
kleiner als m sind, bestimmt werden. Bestimmen Sie mit Hilfe dieser Prozedur eine
MAPLE-Liste aller Zahlen m < 1000, so dass m = S(m) gilt. |
Hallo.
Das Programm gibt mir zwar die Summer der Teiler aus, aber mit einem +a dahinter. Kann mir vielleicht einer sagen woran es liegt?
summe:=proc(n);
> a=0:
> for i from 1 to n while i<n do
> if n mod i = 0 then
> a:=a+i;
> print(i);
> fi;
> od;
> print(a);
> end proc;
Gruß
mcyonx
Ich habe diese Frage in keinem Forum auf anderen Internetseiten gestellt.
|
|
| |
|
Hallo und ![[willkommenmr]](/images/smileys/willkommenmr.png "[willkommenmr]") ,
du hast einen typischen Flüchtigkeitsfehler begangen. Statt
> a=0:
muss es
> a:=0:
heißen.
Ach, kleiner Tipp: Es reicht, wenn die Schleife nur bis n/2 läuft. Warum wohl?
Gruß
Martin
|
|
|
| |
|
| Status: |
(Frage) beantwortet | | Datum: | 19:45 Fr 09.11.2007 | | Autor: | mcyonx |
Wenn 2 der kleinste Teiler ist, kann nur n/2 der größte Teiler sein.
Ich muss ja nun noch den zweiten Teil der Aufgabe behandeln. Ich denke, dass ich noch eine for-Schleife einbauen muss, die die Zahlen von 1 bis 1000 abläuft und nachher prüfen, ob die aktuelle Zahl der Schleife gleich der Summer der Teiler ist und die Zahlen dann ausgeben. Doch weiß ich nicht genau, wie ich anfangen soll.
Kannst du mir vielleicht ein wenig auf die Sprünge helfen?
Gruß mcyonx
|
|
|
| |
|
Hallo,
> Wenn 2 der kleinste Teiler ist, kann nur n/2 der größte Teiler sein.
Jepp!
> Ich denke, dass ich noch eine for-Schleife einbauen muss, die die Zahlen von 1 bis 1000 abläuft und nachher prüfen, ob die aktuelle Zahl der Schleife gleich der Summer der Teiler ist und die Zahlen dann ausgeben. Doch weiß ich nicht genau, wie ich anfangen soll.
Na ja, erstmal eine for-Schleife von 1 bis 1000, darin immer summe(i) berechnen und mit i vergleichen. Bei Gleichheit das i ausgeben oder in einer Liste sammeln.
Ich will dir aber mal einen alternativen Weg andeuten. Schau mal, was man mit dem Befehl select anstellen kann:
durch_113_teilbar := select(x -> x mod 113 = 0,[$1..1000]);
[113, 226, 339, 452, 565, 678, 791, 904]
Das bedeutet, der Befehl liefert dir eine Liste der Elemente, die eine Bedingung erfüllen. Das könntest du auf dein Problem übertragen.
Gruß
Martin
|
|
|
| |
|
| Status: |
(Frage) beantwortet | | Datum: | 17:37 Sa 10.11.2007 | | Autor: | mcyonx |
Hm, habe jetzt noch ein wenig rumprobiert und meiner Meinung nach müsste es ungefähr so aussehen:
summe:=proc(n);
> a:=0:
> for k from 1 to n while k<n do
> for i from 1 to k while i<k do
> if k mod i = 0 then
> a:=a+i;
> if k=a then
> print(a);
> fi;
> fi;
> od;
> od;
> end proc;
Jetzt würd ich für n 1000 eingeben und er sollte mir die Zahlen ausgeben, aber es passiert nichts.
Gruß mcyonx
|
|
|
| |
|
Hallo,
der Code enthält nur richtige Codestücke, allerdings in der falschen Reihenfolge. Zwei Teile musst du verschieben:
1. Überleg, an welcher Stelle du den Wert von a zurücksetzen musst, und
2. überleg, an welcher Stelle die Ausgabe stattfinden soll, damit weder falsche noch mehrfache Ausgaben stattfinden.
Zur Kontrolle: Bis 1000 gibt es genau 3 perfekte Zahlen: 6, 28 und 496. Genau das muss am Ende herauskommen.
Gruß
Martin
|
|
|
|
