prgmMATRIX

Comme tout premier programme du site, je vais prendre cette animation à la "Matrix" qui est un parfait exemple de programme développé à plusieurs sur le forum

Merci donc à calcugeek pour son code qui a bien aidé pour ce programme !

Code:


"1234567890->Chaîne1
10->N
EffVar IEffVar thetaEffEcr
Repeat codeTouche
entAléat(1,16->A
entAléat(1,16->B
entAléat(1,16->C
entAléat(1,16->D
For(X,1,8
Output(X,A,sous-chaîne(Chaîne1,entAléat(1,N),1
If X>2
Output(X-2,B,sous-chaîne(Chaîne1,entAléat(1,N),1
If X>4
Output(X-4,C,sous-chaîne(Chaîne1,entAléat(1,N),1
If X>6
Output(X-6,D,sous-chaîne(Chaîne1,entAléat(1,N),1
If theta:Then
If X<=6
Output(X+2,J," "
If X<=4
Output(X+4,I," "
If X<=6
Output(X+2,K," "
Output(X,L," "
End
End
A->I:B->J:C->K->L
For(X,3,8
If X<=4
Output(X+4,B,sous-chaîne(Chaîne1,entAléat(1,N),1
If X<=6
Output(X+2,C,sous-chaîne(Chaîne1,entAléat(1,N),1
Output(X,D,sous-chaîne(Chaîne1,entAléat(1,N),1
Output(X-2,I," "
If X>4
Output(X-4,J," "
If X>6
Output(X-6,K," "
End
1->theta
End
EffVar AEffVar BEffVar CEffVar DEffVar IEffVar JEffVar KEffVar XEffVar LEffEcr
Output(1,1,"

Et comme pour tout programme communautaire, n'hésitez pas à poster vos améliorations éventuelles !

Tu prends la pilule bleu, ou la pilule rouge ?

Je ne vois pas d'initialisation ou de modification pour N alors qu'elle est utilisée pour les nombres aléatoires 

Tient , exact, normalement N=10 selon ce que j'ai compris mais c'est comme même bizarre (pourquoi ne pas mettre 10 directement ?)




PS: bon anniversaire Samos 

Samos a écrit:Je ne vois pas d'initialisation ou de modification pour N alors qu'elle est utilisée pour les nombres aléatoires 

En effet, erreur de recopiage de ma part

Le N=10 est en fait la longueur de la chaine, et servait si vous souhaitiez rajouter d'autres caractères possibles.
(J'avais utilisé ce programme avec un set de polices Omnicalc pour un meilleur rendu)


PS: y'a quelqu'un de motivé pour le traduire sur l'écran graphique ?