Forum TI-Planet.org

Hé oui, encore du morse !! Hé hé hé
Mais cette fois, la CASIO fx-92+SC va vous aider à réviser l'alphabet !
Simplement en vous proposant, au hasard, des codes correspondant uniquement à des lettres
(donc pas de codes représentant les chiffres).

Code: Tout sélectionner

Avancer de 111 pixels
0→A
Répéter 999
   0→F
   Répéter 33
      RanInt#(1;4→C
   ⤴
   Répéter jusqu'à C=0
      1+6RanInt#(0;1→E
      A+Ex2^(F→A
      F+Abs(E-3→F
      C-1→C
   ⤴
   Si 0=(A-1885)(A-1909)(A-6007)(A-30583 Alors
      Ent(A÷4→A
   Fin
   Répéter jusqu'à A=0
      ,5Ent(A→A
      Répéter 10
         Aller à x=0;y=44-88(A-Ent(A
      ⤴
   ⤴
⤴

Au lieu de me casser la tête à faire rentrer chacun des 26 codes correspondant à l'alphabet, j'ai préféré -parmi les 30 codes possibles aléatoirement créés- éviter les 4 codes jugés "indésirables" suivants:

.-.-
..--
---.
----

(ayant respectivement pour valeur 1885, 1909, 6007, 30583 dans A)

Bon amusement!

https://fr.wikipedia.org/wiki/Code_Morse_international