HP 39g-Grafenberechner - Handbuch (Seite 144)

Exakte Berechnungen und Mathematik mit HP40G
144 Programmieren
7.14.3 Erläuterung HP40G
Hier hat man ein Programm CRIBLE: (ein Gitter)
Der Benutzer muß einen Wert des Buchstaben N eingeben.
Am Ende, enthält die Reihe L2 Primzahlen kleiner oder gleich groß wie N.
IMPUT N
; "CRIBLE";"N="; ;10:
ERASE:
MAKELIST(I,I,1,N,1) -
> L1:
0 -
> L1(1):
2 -
> P:
WHILE P*P
£ N REPEAT
FOR I = P TO INT(N/P) STEP 1
;
0 -
>L1(I*P):
END:
DISP 3
;" "L1:
P+1-
>P:
WHILE P*P
£ N AND L1(P) == 0 REPEAT
P+1-
>P:
END:
END:
{2} ->L2:
‹ wir wissen, daß 2 als erste ist
FOR I=3 TO N STEP 1;
IF L1(I)
¹ 0 THEN
CONCAT(L2,
{I}) ->L2:
END:
END:
DISP 3
;"PREPPM" L2:
FREEZE: