Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
Calcul mental !!!
Auteur Message
denis



Autorisation : Membre
Nb de messages : 81
Inscrit le : Lun 15 Sep 2008, 17:13
Posté le : Mar 16 Jui 2009, 18:20   Citer 

Voici un jeu que j'ai programmé il y a quelques jours.
le but est de résoudre les calculs proposés par la calculette :

Voici le code :


Code
:Clrhome
:Disp"  ENTRAINEMENT","  CEREBRAL"
:Pause

:5üdim L:Fill(0,L)
:3üX:1üY

:Clrhome
:Menu("CALCUL MENTAL :",CALCUL 20",A,"CALCUL 100",B

::Lbl A
:20üB
:Goto 0
:Lbl B
:100üB

:Lbl 0
:For(A,1,B)
:Lbl 1
:int rand11üL(1)
:int rand3+1üL(2)
:int rand11üL(3)
:
:If L(2)=2 and L(1)<L(3):Goto 1
:
:Output(Y,X,L(1)
:
:If L(2)=1
:Then
:Output(Y,X+2,"+"
:L(1)+L(3)üL(4)
:End
:
:If L(2)=2
:Then
:Output(Y,X+2,"-"
:L(1)-L(2)üL(4)
:End
:
:If L(2)=3
:Then
:Output(Y,X+2,"*"
:L(1)*L(3)üL(4)
:End
:
:Output(Y,X+3,L(3)
:Output(Y,X+5,"="
:Disp " "
:Input "",Z
:
:If Z=L(4)
:Then
:L(5)+1üL(5)
:Output(Y,15,"V"
:Else
:L(5)-1üL(5)
:Output(Y,15,"F"
:End
:
:Y+2üY
:If Yù8:8üY
:
:End
:
:Clrhome
:Disp "SCORE :",L(5)


:

bigmouth.gif bigmouth.gif bigmouth.gif

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Poster un nouveau sujet Poster une réponse





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

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa