Poster un nouveau sujet Poster une réponse
Memoire
Auteur Message
Sangohan38



Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 10 Juil 2006, 18:40   Citer 

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.

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mar 11 Juil 2006, 9:56   Citer 

Je savais que t'en avais fait un mais voila ça c'est ma version.

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Dim 19 Nov 2006, 12:14   Citer 

Voici une nouvelle version de mon prog:


Code
:0->A
:Lbl 0
:0->T
:A+1->A
:ClrList L1
:ClrHome
:Output(1,4,"MEMOIRE:"
:16->dim L1
:For(B,1,A
:int rand10->L1(B)
:Output(4,B,L1(B)
:End
:Output(7,2,"TEMPS RESTANT:"
:A*50->T
:getKey->K
:While T[DIFFERENT DE]0:getKey->K
:If K=21:1->T
:T-1->T
:Output(8,6,T
:End
:0->G
:Lbl 1
:0->D
:0->K
:ClrHome
:getKey->K
:If K=72:7->D
:If K=73:8->D
:If K=74:9->D
:If K=82:4->D
:If K=83:5->D
:If K=84:6->D
:If K=92:1->D
:If K=93:2->D
:If K=94:3->D
:If K=102:0->D
:If K>71 and K<103:Goto 2
:Goto 1
:Lbl 2
:G+1->G
:If L1(G)=D and A[DIFFERENT DE]G:Then:For(F,1,30:Output(4,6,"JUSTE!":End:Goto 1:End
:If L1(G)[DIFFERENT DE]D:Then:Output(2,7,"FAUX      LA BONNE REPONSEETAIT   .":Output(4,7,L1(G):End
:If L1(G)=D and A=16:Then:ClrHome:Output(3,1,"BRAVO TU AS UNE TRES BONNE      MEMOIRE!":End
:If L1(G)=D and G=A:Goto 0



Et le lien:http://www.new-uploader.com/file/1265/MEMOIRE.82p.html

Sangohan38

 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Dim 19 Nov 2006, 14:28   Citer 

j'aime bien le "petit programme" du début...

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Dim 19 Nov 2006, 15:01   Citer 

Il est relativement court par rapport à d'autre qui prenaient 12ko.

Sangohan38

 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Mar 28 Nov 2006, 14:43   Citer 

t'aurais pas pu mettre un entier aleatoire de 10^16 ou il y'a des points en fonction du nombre de chiffres justes?

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 29 Nov 2006, 13:19   Citer 

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.

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2025 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink