by Un petit jeu de lettres pour votre Casio fx-92+ Spéciale Collège ?..
Je vous propose mon adaptation du célèbre jeu Boggle (https://fr.wikipedia.org/wiki/Boggle)
(téléchargeable ici : archives_voir.php?id=2403447 )
Le programme affiche 16 lettres au hasard parmi l'alphabet (dont l'affichage minimaliste nous honore d'une espèce de "L|" en guise de Y, ou encore d'une espèce de "E" couché en guise de w ou m ...selon l'orientation
).A vous de trouver un maximum de mots d'au moins 3 lettres, et composés sur la grille de manière adjacente (horizontalement, verticalement, et diagonalement).
Pour lancer une nouvelle grille, appuyez 2 fois sur [EXE] .
Ah j'oubliais un détail important:
Avant de jouer, n'oubliez pas de paramétrer l'écran afin qu'il soit vierge (menu 2nde+config, algorithmique, arrière-plan, aucun)
Bon amusement !
Voici le programme (628 octets) :
- Code: Select all
-27→A
23→B
Répéter 5
Aller à x=A; y=23
Stylo écrit
Aller à x=x; y=-y
Stylo relevé
Aller à x=25; y=B
Stylo écrit
Aller à x=-26; y=y
Stylo relevé
A＋13→A
B－11,7→B
⤴
-20→D
17→E
Répéter 16
RanInt#(0;5→M
7355486Ent(cos(M))＋3208978Ent(cos(M－1))＋20508544Ent(cos(M－2→A
A＋16575649Ent(cos(M－3))＋24165740Ent(cos(M－4))＋26538620Ent(cos(M－5→A
Ent(A÷2＾(9RanInt#(0;2→A
90RanInt#(-1;1)Ent(cos(M→C
S'orienter à C＋180RanInt#(0;1)Ent(cos(M－5 degrés
Aller à x=D＋3cos(θ; y=E＋1,5(sin(θ
Si C≠0 Alors
Aller à x=D＋1,5cos(θ; y=E＋3sin(θ
Fin
0→F
Répéter 7
F＋1→F
Tourner de ↺ 90(1－Ent(cos(F－4 degrés
,5Ent(A→A
Stylo écrit
Si A=Ent(A Alors
Stylo relevé
Fin
Avancer de 3(1＋Abs(Ent(cos(θ－C pixels
⤴
Stylo relevé
,5Ent(A→A
Si A≠Ent(A Alors
Aller à x=D－3; y=E＋3
Stylo écrit
Aller à x=D＋3; y=E－3
Stylo relevé
Fin
,5Ent(A→A
Si A≠Ent(A Alors
Aller à x=D＋3; y=E＋3
Stylo écrit
Aller à x=D－3; y=E－3
Stylo relevé
Fin
D＋13→D
Si D>25 Alors
-20→D
E－11,5→E
Fin
⤴
Stylo relevé
Avancer de-99 pixels
Ainsi que son URL Casio : http://wes.casio.com/math/index.php?q=I ... 03F901F902
