© h.hofstede (h.hofstede@hogeland.nl)

 
1. PROGRAM  PRIEM

:  ClrHome
:  Input"priemgetallen tot:", X
:  0 → P
For(J,  2,  X)
:       0 → A
:       For(I,  2,  J)
:          If int(J/I) = (J/I)
:          Then 
:          A + 1→ A
:          End
:       End
:       If  A = 1
:       Then
:       Disp  J
:       P + 1 →  P  
:       End
End
:  Disp "aantal priemgetallen is:", P
toelichting



P is het aantal priemgetallen
ga alle getallen J £ X onderzoeken






Hier is precies 1 deler, dus deze J is een priemgetal

druk dat priemgetal af
tel er eentje bij op
       
2. Je hoeft maar tot en met  int(X/2) te kijken of het getal een deler is, want hoger dan X/2 is de enige deler X zelf.
       

© h.hofstede (h.hofstede@hogeland.nl)