Cette fois, je vous propose un programme permettant le traçage de la spirale d'Ulam :
une façon aussi amusante qu'intéressante de représenter les nombres premiers
Pour être plus précis, ça partira -faussement- du nombre premier 2 jusqu'au nombre premier 1723
(ce qui n'est déjà pas si mal pour une Casio Collège, non?
)Sans plus tarder, en voici le code...
- Code: Select all
Style Croix
Stylo écrit
Avancer de 0 pixels
Stylo relevé
Avancer de -1 pixels
3➞E
0➞F
1➞A
Répéter 860
Si 4A=Ent(4A Alors
Tourner de ↺ 90 degrés
Si A=1 Alors
0➞A
F+4➞F
Aller à x=x+1;y=y-1
Fin
Fin
A+(1÷F➞A
3➞D
1➞M
√(E➞C
Répéter jusqu'à D>C
E÷D➞B
M(B-Ent(B➞M
D+2➞D
⤴
Avancer de 2 pixels
Si M≠0 Alors
Stylo écrit
Avancer de 0 pixels
Stylo relevé
Fin
E+2➞E
⤴
Avancer de 99 pixels
Hormis le traçage d'office, en tout début de programme, du seul nombre premier pair ( =2 ) et la partie "recherche de nombres premiers" (lignes 19 à 26) , tout le reste est dédié au tracé progressif de la spirale.
N'ayant plus d'émulateur, je n'ai malheureusement pas de capture d'écran à vous proposer, alors si quelqu'un pouvait en poster un , ça serait sympa de sa part , et je l'en remercie d'avance
