|
||||||
| 1. | PROGRAM HAGEL : ClrHome : M = 1 : X = 1 : For (G, 2, 200) : 1 → A : G → N : Lbl 1 : While int(N/2) = N/2 N/2 → N : A + 1 → A : If N = 1 : Then : If A > M : Then : A → M : G → X : End : End : End : If N ¹ 1 : Then : 3*N + 1 → N : A+ 1 → A : Goto 1 : End : End : Disp "maximale lengte", M : Disp "startgetal", X |
M is de langste gevonden keten. X is het getal dat bij de langste keten hoorde. G is het getal dat we onderzoeken A is de lengte van de huidige reeks N is het meest recente getal in de hagelsteenreeks. Laatste getal even? Delen door 2 de reeks wordt 1 langer De reeks stopt? er is een nieuwe langste reeks gevonden
|
||||
| 2. | PROGRAM BANK : ClrHome : 80 → B : J = 0 : While B < 5000 : 1,04 * B + 80 → B : J + 1 → J : End : Disp"aantal jaar:", J |
beginstorting J = jaarnummer rente plus 80 euro erbij |
||||
| 3. | PROGRAM LUCAS : ClrHome : Input"eerste twee?", A, B : While A ≤ 5000 : A + B → C : B → A : C → B : End : 1 → N : While A ≤ 10000 : A + B → C : B → A : C → B : N + 1 → N : End : Disp"Aantal is", N |
volgende getal maken A, B wordt volgende paar tel de A's één extra |
||||
|
© h.hofstede (h.hofstede@hogeland.nl) |
||||||