Forum: Object-Pascal / Delphi-Language
by Michael II,
24. Mai 2021
uebrig := zahl - 2 mod teiler; ist nicht das, was du willst.
mod wird vor +*-/ ausgewertet.
Was du willst ist
uebrig := ( zahl - 2 ) mod teiler;
In deinem Code berechnest du in jeder Runde drei Mal, ob eine Zahl (du rechnest für zahl-2, zahl und zahl+2) prim ist. Wie du gesehen hast geht es auch mit einer Berechnung pro Runde: Du könntest dir jeweils prim oder nicht für zahl und zahl+2...
Forum: Object-Pascal / Delphi-Language
by Michael II,
24. Mai 2021
Dieser Code gibt dir aus, ob eine Zahl gerade ist, ob fibo, ob prim, ob zwillingsprim.
Da du sicher keine function istprim(zahl) verwenden darfst, merken wir uns halt in zwei booleschen Variablen, ob die letzte ungerade Zahl (zahl-2) prim war (letzte_warprim) und ob die nächste ungerade (zahl+2) es sein wird (naechste_istprim). So müssen wir jede zahl nur einmal auf prim prüfen.
Die...
Forum: Object-Pascal / Delphi-Language
by Michael II,
24. Mai 2021
Für zahl = 2 gibst du prim aus.
Du fragt wegen allen anderen Primzahlen. Hier Code.
var teiler, pruefebis, zahl : integer;
ist_prim : boolean;
....
zahl := 91;
Forum: Object-Pascal / Delphi-Language
by Michael II,
24. Mai 2021
DelphiNarium berechnet für jede Zahl zahl jedesmal alle Fibonaccizahlen bis zu zahl gemäss der Definition
f := f + f für alle n>=2
f=0*, f=1
(*Je nach Literatur gibt's ein 0-tes Glied f oder nicht (dann wird mit f=f=1 begonnen). Es ist eine Glaubensfrage: Die Entwicklung der Fibonacci Reihe wird oft mit der Vermehrung von Kaninchen verglichen. Wer glaubt, dass aus 0 und 1 Kaninchen etwas...
Forum: Object-Pascal / Delphi-Language
by Michael II,
24. Mai 2021
Falls du damit den Teil meinst bis sqrt(zahl) auf Teilbarkeit checken:
Jede Zahl lässt sich wie du weisst in Primfaktoren zerlegen oder eben nicht.
Du suchst mit deinem Test von 2 an aufwärts (bis zahl) nach einer Zahl p, welche echter Teiler von zahl ist.
Wenn es eine solche Zahl p < zahl gibt, dann kannst du zahl zerlegen in
zahl = p*q
Forum: Object-Pascal / Delphi-Language
by Michael II,
24. Mai 2021
Ich finde den in #1 gewählten Fibo-Ansatz via MB auch steil. U.a. auch weil für den "berechneten Index" noch gecheckt werden muss, ob's effektiv ein Fibo-Index ist... aber da in #1 auch das schöne Epsilon erwähnt wurde, dachte ich, es MUSS so gelöst werden. Das Epsilon kannst du ja bei Primzahlen schlecht verwenden ;-).
Hausaufgabe erledigt - mo53 und wir alle können die Sonne geniessen! In...
Forum: Object-Pascal / Delphi-Language
by Michael II,
23. Mai 2021
Fibonacci.
Da machst du diverse Fehler.
Du willst für die Berechnung offenbar Moivre-Binet (MB) verwenden. Mit MB kannst du die n-te Fibonacci Zahl ermitteln.
D.h. du musst bei deiner Überprüfung von "zahl" ein n finden, für welches f(n) = zahl gilt. Dann ist "zahl" Fibonacci Zahl.
Du verwendest in deiner Formel Power(a,b), was a^b entspricht. Schau dir noch einmal die Formel von MB...