Un programme pour entrainer votre mémoire,dure mais ça marche ^^
UTILISATION:
Le programme vous donne un chiffre à retenir puis vous pose une suite d'additions auxquelles vous devez répondre juste (si vous faites une erreur vous devrez résoudre une addition supplémentaire),puis vous redemande le chiffre.Si vous avez bon vous passez au niveau de difficulté supérieur,le chiffre a retenir est plus long et les additions sont plus nombreuses et plus complexes a résoudre...
Attention, le chiffre qu'on vous donne disparait au bout d'un certain temps calculé en fonction de sa taille donc ne soyez pas trop long a le mémoriser.toutefois si vous trouvez que c'est trop long vous pouvez passer directement aux calculs en appuyant sur entrer.
| Code | :1->N:1->Z
:Lbl A
:EffEcr
:0->E
:entAléat(0,10Z->A
:Disp "NIVEAU
:Output(1,8,N)
:Disp "","LE CHIFFRE EST:",A
:For(I,0,partEnt(A/100N)+10
:0->K
:codeTouch->K
:If K=105
:Goto B
:69!
:output(4,1,I
:End
:0->I
:Lbl B
:EffEcr
:Disp "NIVEAU","
:Output(1,8,N
:While I différent de N+E
:entAléat(ZN,10NZ->B
:entAléat(ZN,10NZ->C
:Disp B," +",C <=14 espaces
:Input "=",D
:If D différent de B+C
:Goto C
:I+1->I
:Disp "Bonne réponse"
:Pause
:End
:EffEcr
:Disp "NIVEAU","
:Output(1,8,N
:Input "CHIFFRE MAGIQUE=",D
:If D=A
:Then
:N+1->N:10Z->Z
:Disp "CORRECT
:Pause
:Goto A
:End
:If D différent de A
:Goto D
:Lbl C
:Disp "Faux,une autre.
:Pause
:E+1->E:I+1->I
:Goto B
:Lbl D
:Disp "FAUX,LE NOMBRE","MAGIQUE ETAIT:",A,NIVEAU ATTEINT:",N |
PS: J'ai peut-être fait des erreures de recopiage.
442 octets.
|
