Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 10 Juil 2006, 18:40
Voila un petit, programme ou il faut retenir les chiffres et les retapés après:
Code
0üA
Lbl 0
ClrHome
A+1üA
Output(1,5,"MEMOIRE:"
int(rand10üB
int(rand10üC
int(rand10üD
int(rand10üE
int(rand10üF
int(rand10üG
int(rand10üH
int(rand10üI
int(rand10üJ
int(rand10üK
int(rand10üL
int(rand10üM
int(rand10üN
int(rand10üO
int(rand10üP
int(rand10üQ
Output(3,1,B
Output(3,2,C
Output(3,3,D
Output(3,4,E
Output(3,5,F
Output(3,6,G
Output(3,7,H
Output(3,8,I
Output(3,9,J
Output(3,10,K
Output(3,11,L
Output(3,12,M
Output(3,13,N
Output(3,14,O
Output(3,15,P
Output(3,16,Q
If A=1:Output(3,2," "
If A=2:Output(3,3," "
If A=3:Output(3,4," "
If A=4:Output(3,5," "
If A=5:Output(3,6," ":If A=6:Output(3,7," "
If A=7:Output(3,8," "
If A=8:Output(3,9," "
If A=9:Output(3,10," "
If A=10:Output(3,11," "
If A=11:Output(3,12," "
If A=12:Output(3,13," "
If A=13:Output(3,14," "
If A=14:Output(3,15," "
If A=15:Output(3,16," "
0üÁ
20*AüV
Lbl 1
1üX
Output(8,1," "
Output(7,2,"TEMPS RESTANT:"
Output(8,1,V-Á
Á+1üÁ
If Á<V:Goto 1
Lbl 2
ClrHome ú1üY
getKeyüZ
If Z=102:0üY
If Z=92:1üY
If Z=93:2üY
If Z=94:3üY
If Z=82:4üY
If Z=83:5üY
If Z=84:6üY
If Z=72:7üY
If Z=73:8üY
If Z=74:9üY
If Yù0:Goto 3
Goto 2
Lbl 3
If A=1 and X=1 and Y=B or A=2 and X=2 and Y=C or A=3 and X=3 and Y=D or A=4 and X=4 and Y=E or A=5 and X=5 and Y=F or A=6 and X=6 and Y=G or A=7 and X=7 and Y=H or A=8 and X=8 and Y=I or X=9 and A=9 and Y=J or A=10 and X=10 and Y=K or A=11 and X=11 and Y=L or A=12 and X=12 and Y=M or A=13 and X=13 and Y=N or A=14 and X=14 and Y=O or A=15 and X=15 and Y=P:Goto 5
If X=16 and A=16 and Y=Q:Goto Á
If X=1 and YøB or X=2 and YøC or X=3 and YøD or X=4 and YøE or X=5 and YøF or X=6 and YøG or X=7 and YøH or X=8 and YøI or X=9 and YøJ or X=10 and YøK or X=11 and YøL or X=12 and YøM or X=13 and YøN or X=14 and YøO or X=15 and YøP or X=16 and YøQ:Goto 9
If X<A and Y=B or X<A and Y=C or A>X and Y=D or A>X and Y=E or A>X and Y=F or A>X and Y=G or A>X and Y=H or A>X and Y=I or A>X and Y=J or A>X and Y=K or A>X and Y=L or A>X and Y=M or A>X and Y=N or A>X and Y=O or A>X and Y=P
For(W,1,10
Output(4,1,"CHIFFRE CORRECT!"
End
X+1üX
Goto 2
Lbl Á
For(W,1,20
Output(4,5,"BRAVO!"
Output(5,1,"TU AS UNE TRES BONNE MEMOIRE."
End
ClrHome
Stop
Lbl 9
For(W,1,50
Output(5,14,A-1
Output(2,1,"DESOLER MAIS LA BONNE REPONSE ETAIT . TU AS RETENU CHIFFRES EN MEMETEMPS."
If X=1:Output(4,7,B
If X=2:Output(4,7,C
If X=3:Output(4,7,D
If X=4:Output(4,7,E
If X=5:Output(4,7,F
If X=6:Output(4,7,G
If X=7:Output(4,7,H
If X=8:Output(4,7,I
If X=9:Output(4,7,J
If X=10:Output(4,7,K
If X=11:Output(4,7,L
If X=12:Output(4,7,M
If X=13:Output(4,7,N
If X=14:Output(4,7,O
If X=15:Output(4,7,P
If X=16:Output(4,7,Q
End
ClrHome
Stop
Lbl 5
For(W,1,10
Output(3,1,"LA FORCE VIEN ENTOI JEUNE APPRENTIS."
End
Goto 0
Pour le lien vous aller la ou je met mes programmes.
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 29 Nov 2006, 13:19
Ce serais plus lords de générer autant de nombre et après, l'utilisateur ne pourra pas retenir un maximum alor qsu'avec 16 chiffres, c'est plus simple et pour y arriver, c'est déja dur.
Sangohan38
PS: Une mémoire peut entrainée peut retenir jusqu'à 8 chiffres.