|
|||||
| 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) |
|||||