Befreundete Zahlen V 1.00

[rolaf]

Für was zahl ich immer?

Für 6?

Jo, aus 49!

[cxAlex]

Ne, in Österreich 6 aus 45 ^^

[alter Mann]

falls es jemanden interessiert, es gibt nicht nur befreundete Zahlen

http://www.mathe.tu-freiberg.de/~hebisc ... ahlen.html

[Andesdaf]

toll dass ihr euch so fein zum Thema unterhalten habt.
Der Ursprungspost war in nem anderen Forum. Und da wollt ich es jetzt auch
mal hier posten.

[cxAlex]

> Der Ursprungspost war in nem anderen Forum.

Wir können uns gerne auch dort so toll unterhalten wenn du willst ^^

[Little John]

Nur mal so nebenbei etwas zum Thema ...

2Andesdaf:
Für einen Beitrag im Abschnitt "Code, Tipps und Tricks" lohnen sich IMHO doch einige Verbesserungen.
Hier einiges, das mir auf den ersten Blick aufgefallen ist:

a) Du benutzt den Befehl OpenConsole nicht richtig. Er gehört nicht in die Schleife, sondern ganz an den Anfang der Ausgabe. Wenn man das Programm so wie es momentan ist startet und für die Grenzen des Zahlenbereichs beispielsweise 100 und 200 eingibt, bekommt man eine Fehlermeldung.

b) Die Prozedur IsTeiler() wird nicht benötigt, dafür hat PB den Mod-Operator.

c) Wegen des Programmierstils, und weil solche Berechnungen bei größeren Zahlen lange dauern können, ist es nicht empfehlenswert die Berechnungen doppelt auszuführen. Im Moment ermitteln die Prozeduren SummeAllerTeiler() und AusgabeAllerTeiler() beide jeweils die Teiler der als Argument übergebenen Zahl -- die erste Prozedur addiert sie dann, die zweite erzeugt einen String aus ihnen.
Bei "Mehrfachbenutzung" ist viel besser: Die Teiler nur 1x ermitteln und für die spätere Verwendung speichern. Danach kann man sie dann bequem und zeitsparend addieren, auflisten oder was immer.

d) Der Algorithmus zum Ermitteln der Teiler kann effektiver (d.h. schneller) gestaltet werden.

Hier ist ein kleiner Beispielcode, der die obigen Punkte b) bis d) berücksichtigt:

Code: Alles auswählen

EnableExplicit

Procedure ProperDivisors (n, List divisor())
   ; liefert alle *echten* Teiler von n (d.h. alle ohne n selbst)
   ; in der verknüpften Liste divisor()
   Protected k

   ClearList(divisor())   
   If n < 2
      ProcedureReturn
   EndIf

   AddElement(divisor())
   divisor() = 1
   If n % 2 = 0
      For k = 2 To n/2
         If n % k = 0
            AddElement(divisor())
            divisor() = k
         EndIf
      Next
   Else
      ; In diesem Fall brauchen wir nur ungerade Teiler zu suchen:
      For k = 3 To Int(n/3) Step 2
         If n % k = 0
            AddElement(divisor())
            divisor() = k
         EndIf
      Next
   EndIf
EndProcedure


;-- Demo
Define n, last, sum.q
Define temp.s
NewList teiler()

Debug "Summe der echten Teiler von ..."
Debug ""
For n = 2 To 20
   ProperDivisors(n, teiler())
   last = ListSize(teiler()) - 1
   temp = ""
   sum = 0
   ForEach teiler()
      temp + Str(teiler())
      If ListIndex(teiler()) < last
         temp + "+"
      EndIf 
      sum + teiler()
   Next
   Debug Str(n) + ": " + temp + " = " + Str(sum)
Next

Gruß, Little John

[Special-Agent-J]

kranke scheiße was sind befreundete zahlen xD
gibts dann auch verfeindetete zahlen?

na ja trotzdem der code war bestimmt nicht ganz leicht zu schreiben
nice work allein schon zu verstehen was befreundete zahlen sind

p.s. hab bei wikipedia nach 2 zeilen augehört zu lesen was isn das für ne komplizierte scheiße

[Kaeru Gaman]

so kleiner, du tust jetzt fünf euro in die kaffekasse...

zweimal in einem posting scheiße sagen darf man erst ab einundzwanzig.

[DarkDragon]

Ne, in Österreich 6 aus 45 ^^

Hä.. wie jetz? Ich glaub ich spiel in Österreich auch mal Lotto, da gibts bessere Chancen .

[Andesdaf]

@Spezialagent: Ja, musste mich auch erst mal reinlesen, aber nicht in Wiki
sondern woanderes wo die Sprache etwas verständlicher war.

@Kaeru: ist das das Forenschutzgesetz?

@Little John: Danke für die Verbesserung des Codes