Das deutsche QBasic- und FreeBASIC-Forum

[Dome15042000]

Das Programm sieht folgendermaßen aus:

cls
summe = 0
input "reichweite",y
for n = 1 to y
for i = 1 to n
if n mod i = 0 then
summe = summe +1
end if
if summe = 2 then
print n; "primzahl"
else
print n; "keine primzahl"
end if next

Bis auf die äußere for next schleife läuft alles einwandfrei(manuelle eingabe von n mit einer ausgabe, ob primzahl ja oder nein). dann wollte ich diese manuelle eingabe durch eine schleife ersetzen, die die zahlen von 1-y durchgehen kann. allerdings wird nur das ergebnis"keine primzahl" ausgegeben. Woran liegt das?

[nemored]

Ich habe den Code etwas geändert. Schau mal, was die Änderung bewirkt.

[Eternal_pain]

Wollte eigentlich ein Veto einlegen und vorschlagen 'if summe = 2 then' durch 'if summe < 3 then' zu ersetzen, ich meine in der Grundschule noch gelernt zu haben das auch 1 eine Primzahl ist auf der begründung, alles was nur durch 1 und sich selbst teilbar ist eine primzahl ist, habe aber vorsichtshalber noch einmal nachgelesen....
Hatte mich eben etwas verwirrt... wie vor einigen jahren schon das '0^0=1 Thema'

https://de.wikibooks.org/wiki/Mathematik:_Zahlentheorie:_Warum_1_keine_Primzahl_ist

zur überprüfung kann man für die ersten 100 zahlen mal hier gucken (gibt aber genug andere seiten)

http://metricconversion.biz/de/liste-der-ersten-100-primzahlen.html

Lesenswert sind auch die komplexeren Algorithmen unter 'Bekannte Primzahltest-Verfahren' hier:
https://de.wikipedia.org/wiki/Primzahltest
_________________

[Dome15042000]

Vielen Dank, 1 ist keine Primzahl, da die Primfaktorzerlegung sonst nicht anwendbar wäre. und ja, da summe nicht zurückgesetzt wird, klappt es auch nicht