HP 39g-Grafenberechner - Handbuch (Seite 165)

Exakte Berechnungen und Mathematik mit HP40G
Arithmetische Programme 165
/Funktion/
Erste Verbesserung
Wir bemerken, daß wir folgendes testen können, ob N gerade ist, wenn nicht,
dann feststellen, ob N einen ungeraden Teiler hat.
Funktion Ist-eine-Primzahl(N)
Lokal PREM, I, J
E(
ÖN) ->J
Wenn (N = 1) oder (N mod 2 = 0) und (N
¹2) dann
Falsch-
>PREM (falsch)
Sonst
Richtig-
>PREM (richtig)
/wenn/
3-
>I
solange PREM und I
£ J durchführen
wenn N mod I = 0 dann
Falsch -
> PREM
sonst
I+2-
>I
/wenn/
/solange/
Ergebnis PREM
/Funktion/
Zweite Verbesserung
Bemerken wir, ob N teilbar durch 2 oder 3 ist, wenn nicht, stellen wir fest, ob
N einen Formteiler hat
6
´ k – 1 oder 6 ´ K + 1.
Funktion Ist-eine-Primzahl(N)
lokal PREM, I, J