HP 39g-Grafenberechner - Handbuch (Seite 143)

Exakte Berechnungen und Mathematik mit HP40G
Programmieren 143
TAB+1 -
> TAB
/für/
0 + TAB -> TAB
2-
> P
/ / man führte die Punkte 1 und 2 durch
/ / das Durchstreichen 1 wurde durchgeführt und durch 0 ersetzt
/ / TAB ist eine Reihe 0 2 3 4 …N
wenn P*P
£ N durchführen
für I von P bis E(N/P) durchführen
//E(N/P) bezeichnet einen ganzen Teil N/P
0 -
> TAB [I*P]
/für/
// Man hat alle Vielfachen P beginnend ab P*P durchgestrichen
P+1-
> P
/ / Man sucht die kleinste Zahl
< = N zwischen P und N nicht durchgestrichen
solange bis (P*P
£ N) und (TAB[P] = 0) durchführen
P + 1 -
> P
/solange bis/
/solange bis/
// Man schreibt das Ergebnis in die Reihe PREM
für I von 2 bis N durchführen
wenn TAB
[I] ¹ 0 so
PREM + I -
> PREM
/wenn/
/für/
Ergebnis: PREM