jeux pour ti 82 stats Index du Forum

jeux pour ti 82 stats
jeux ti 82 ti 82 stats et ti83 concours de programmations ainsi que tutoriaux de programmation et conseil des participants

 FAQFAQ   RechercherRechercher   MembresMembres   GroupesGroupes   S’enregistrerS’enregistrer 
 ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 

entrainement cérébral

 
Poster un nouveau sujet   Répondre au sujet    jeux pour ti 82 stats Index du Forum -> jeux pour ti 82
Sujet précédent :: Sujet suivant  
Auteur Message
mad67
Administrateur

Hors ligne

Inscrit le: 15 Déc 2007
Messages: 109

MessagePosté le: Sam 15 Déc - 11:21 (2007)    Sujet du message: entrainement cérébral Répondre en citant

voila la version racourcie avec son lien: http://www.badongo.com/file/3651696

 
Code:
 ClrHome
 Output(4,4,"MADIAN CORP"
 Output(5,4,"PRESENTE"
 For(T,0,800
 End
 ClrHome
 Output(2,4,"PROGRAMME"
 Output(3,2,"D'ENTRAINEMENT
 Output(4,4,"CEREBRAL
 Output(5,4,"DU DOCTEUR
 Output(6,5,"MADIAN
 For(T,0,1500
 End
 ClrHome
 Lbl 18
 Menu("CALCULMENTAL","ENTRAINEMENT CALCUL",15,"EVALUATION",20,"COMPTER PIXELS",24,"QUITTER",12
 Lbl 24
 ClrHome
 AxesOff
 ClrDraw
 0->A
 31->B
 0->C
 Horizontal 30
 Horizontal 31
 Lbl 25
 randInt(1,5)->Á
 If Á>1
 Then
 Pxl-Off(B,A
 End
 If Á=1
 C+1->C
 A+1->A
 If A=94 and B=32
 Then
 Text(0,0,"COMPTER LES PIXELS"
 For(T,0,6000
 End
 Goto 26
 End
 If A=94
 Then
 0->A
 B+1->B
 End
 Goto 25
 Lbl 26
 Input "NOMBRE DE PIXELS?:",D
 ClrHome
 If C=D
 Output(4,4,"BRAVO
 If CøD
 Output(4,4,"RATE"
 For(T,0,300
 End
 Goto 18
 Lbl 20
 1->Y
 0->Z
 Goto 1
 Lbl 16
 Menu("ENTRAINEMENT A","L'ADDITION",1,"LA SOUSTRACTION",4,"LA MULTIPLICATION",6,"LA DIVISION",8,"RETOUR",18
 Lbl 15
 25->Y
 Goto 16
 Lbl 11
 Output(4,1,"NOTE:
 Output(4,6,Z
 If Z÷5
 Output(6,1,"NUL
 If Z<8 and Zù5
 Output(6,1,"TRES INSSUFISANT
 If Zù8 and Z<10
 Output(6,1,"INSUFFISANT
 If Z<13 and Zù10
 Output(6,1,"CORRECT
 If Zù13 and Z<17
 Output(6,1,"BIEN"
 If Zù17 and Z<20
 Output(6,1,"TRES BIEN"
 If Z=20
 Output(6,1,"PARFAIT
 For(T,0,800
 End
 ClrHome
 Stop
 Lbl 12
 Stop
 Lbl 1
 Output(4,4,"ADDITION"
 For(T,0,300
 End
 ClrHome
 randInt(1,100)->A
 randInt(1,100)->B
 A+B->C
 9->D
 10->E
 11->F
 0->G
 0->H
 0->I
 Output(1,1,A
 Output(1,4,"+
 Output(1,5,B
 Output(1,8,"=
 1->J
 0->L
 Goto 30
 Lbl 30
 If L=30
 Goto 3
 Output(1,D,G
 Output(1,E,H
 Output(1,F,I
 getKey->K
 If J=4
 Then
 For(T,0,500
 End
 Goto 3
 End
 If K=72 and J=3
 Then
 7->I
 J+1->J
 End
 If K=72 and J=2
 Then
 7->H
 J+1->J
 End
 If K=72 and J=1
 Then
 7->G
 J+1->J
 End
 If K=73 and J=3
 Then
 8->I
 J+1->J
 End
 If K=73 and J=2
 Then
 8->H
 J+1->J
 End
 If K=73 and J=1
 Then
 8->G
 J+1->J
 End
 If K=74 and J=3
 Then
 9->I
 J+1->J
 End
 If K=74 and J=2
 Then
 9->H
 J+1->J
 End
 If K=74 and J=1
 Then
 9->G
 J+1->J
 End
 If K=82 and J=3
 Then
 4->I
 J+1->J
 End
 If K=82 and J=2
 Then
 4->H
 J+1->J
 End
 If K=82 and J=1
 Then
 4->G
 J+1->J
 End
 If K=83 and J=3
 Then
 5->I
 J+1->J
 End
 If K=83 and J=2
 Then
 5->H
 J+1->J
 End
 If K=83 and J=1
 Then
 5->G
 J+1->J
 End
 If K=84 and J=3
 Then
 6->I
 J+1->J
 End
 If K=84 and J=2
 Then
 6->H
 J+1->J
 End
 If K=84 and J=1
 Then
 6->G
 J+1->J
 End
 If K=92 and J=3
 Then
 1->I
 J+1->J
 End
 If K=92 and J=2
 Then
 1->H
 J+1->J
 End
 If K=92 and J=1
 Then
 1->G
 J+1->J
 End
 If K=93 and J=3
 Then
 2->I
 J+1->J
 End
 If K=93 and J=2
 Then
 2->H
 J+1->J
 End
 If K=93 and J=1
 Then
 2->G
 J+1->J
 End
 If K=94 and J=3
 Then
 3->I
 J+1->J
 End
 If K=94 and J=2
 Then
 3->H
 J+1->J
 End
 If K=94 and J=1
 Then
 3->G
 J+1->J
 End
 If K=102 and J=3
 Then
 0->I
 J+1->J
 End
 If K=102 and J=2
 Then
 0->H
 J+1->J
 End
 If K=102 and J=1
 Then
 0->G
 J+1->J
 End
 L+1->L
 Goto 30
 Lbl 3
 ClrHome
 If C=G*100+H*10+I
 Then
 Output(4,4,"CORRECT
 Z+1->Z
 End
 If CøG*100+H*10+I
 Output(4,4,"FAUX
 For(T,0,800
 End
 ClrHome
 Y+1->Y
 If Y÷5
 Goto 1
 If Y÷10
 Goto 4
 If Y÷15
 Goto 6
 If Y÷20
 Goto 8
 If Y=21
 Goto 11
 If Yù25
 Goto 16
 Lbl 4
 Output(4,4,"SOUSTRACTION
 For(T,0,300
 End
 ClrHome
 randInt(100,200)->A
 randInt(1,100)->B
 A-B->C
 9->D
 10->E
 11->F
 0->G
 0->H
 0->I
 Output(1,1,A
 Output(1,4,"-
 Output(1,5,B
 Output(1,8,"=
 1->J
 0->L
 Goto 30
 Lbl 6
 Output(4,2,"MULTIPLICATION
 For(T,0,300
 End
 ClrHome
 randInt(1,25)->A
 randInt(1,25)->B
 A*B->C
 9->D
 10->E
 11->F
 0->G
 0->H
 0->I
 Output(1,1,A
 Output(1,4,"*
 Output(1,5,B
 Output(1,8,"=
 1->J
 0->L
 Goto 30
 Lbl 8
 Output(4,4,"DIVISION
 For(T,0,300
 End
 ClrHome
 randInt(1,25)->A
 If A=1
 1->B
 If A=2
 randInt(1,2)->B
 If A=3
 Then
 randInt(1,2)->Á
 If Á=1:1->B
 If Á=2:3->B
 3->B
 End
 If A=4
 Then
 randInt(1,3)->Á
 If Á=1:1->B
 If Á=2:2->B
 If Á=3:4->B
 End
 If A=5
 Then
 randInt(1,2)->Á
 If Á=1:1->B
 If Á=2:5->B
 End
 If A=6
 Then
 randInt(1,4)->Á
 If Á=1:1->B
 If Á=2:2->B
 If Á=3:3->B
 If Á=4:6->B
 End
 If A=7
 Then
 randInt(1,2)->Á
 If Á=1:1->B
 If Á=2:7->B
 End
 If A=8
 Then
 randInt(1,4)->Á
 If Á=1:1->B
 If Á=2:2->B
 If Á=3:4->B
 If Á=4:8->B
 End
 If A=9
 Then
 randInt(1,3)->Á
 If Á=1:1->B
 If Á=2:3->B
 If Á=3:9->B
 End
 If A=10
 Then
 randInt(1,4)->Á
 If Á=1:1->B
 If Á=2:2->B
 If Á=3:5->B
 If Á=4:10->B
 End
 If A=11
 Then
 randInt(1,2)->Á
 If Á=1:1->B
 If Á=2:11->B
 End
 If A=12
 Then
 randInt(1,6)->Á
 If Á=1:1->B
 If Á=2:2->B
 If Á=3:3->B
 If Á=4:4->B
 If Á=5:6->B
 If Á=6:12->B
 End
 If A=13
 Then
 randInt(1,2)->Á
 If Á=1
 1->B
 If Á=2
 13->B
 End
 If A=14
 Then
 randInt(1,4)->Á
 If Á=1
 1->B
 If Á=2
 2->B
 If Á=3
 7->B
 If Á=4
 14->B
 End
 If A=15
 Then
 randInt(1,3)->Á
 If Á=1
 1->B
 If Á=2
 5->B
 If Á=3
 15->B
 End
 If A=16
 Then
 randInt(1,5)->Á
 If Á=1
 1->B
 If Á=2
 2->B
 If Á=3
 4->B
 If Á=4
 8->B
 If Á=5
 16->B
 End
 If A=17
 Then
 randInt(1,2)->Á
 If Á=1
 1->B
 If Á=2
 17->B
 End
 If A=18
 Then
 randInt(1,6)->Á
 If Á=1
 1->B
 If Á=2
 2->B
 If Á=3
 3->B
 If Á=4
 6->B
 If Á=5
 9->B
 If Á=6
 18->B
 End
 If A=19
 Then
 randInt(1,2)->Á
 If Á=1
 1->B
 If Á=2
 19->B
 End
 If A=20
 Then
 randInt(1,6)->Á
 If Á=1
 1->B
 If Á=2
 2->B
 If Á=3
 4->B
 If Á=4
 5->B
 If Á=5
 10->B
 If Á=6
 20->B
 End
 If A=21
 Then
 randInt(1,4)->Á
 If Á=1
 1->B
 If Á=2
 3->B
 If Á=3
 7->B
 If Á=4
 21->B
 End
 If A=22
 Then
 randInt(1,4)->Á
 If Á=1
 1->B
 If Á=2
 2->B
 If Á=3
 11->B
 If Á=4
 22->B
 End
 If A=23
 Then
 randInt(1,2)->Á
 If Á=1
 1->B
 If Á=2
 23->B
 End
 If Á=24
 Then
 randInt(1,8)->Á
 If Á=1
 1->B
 If Á=2
 2->B
 If Á=3
 3->B
 If Á=4
 4->B
 If Á=5
 6->B
 If Á=6
 8->B
 If Á=7
 12->B
 If Á=8
 24->B
 End
 If A=25
 Then
 randInt(1,3)->Á
 If Á=1
 1->B
 If Á=2
 5->B
 If Á=3
 25->B
 End
 A/B->C
 9->D
 10->E
 11->F
 0->G
 0->H
 0->I
 Output(1,1,A
 Output(1,4,"/
 Output(1,5,B
 Output(1,8,"=
 1->J
 0->L
 Goto 30


Revenir en haut
Publicité






MessagePosté le: Sam 15 Déc - 11:21 (2007)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
DJ'


Hors ligne

Inscrit le: 17 Jan 2008
Messages: 54

MessagePosté le: Sam 26 Jan - 12:13 (2008)    Sujet du message: entrainement cérébral Répondre en citant

oua il long
tu l'as copier a la main mad ???


Revenir en haut
Sopalain


Hors ligne

Inscrit le: 17 Jan 2008
Messages: 112

MessagePosté le: Sam 26 Jan - 12:26 (2008)    Sujet du message: entrainement cérébral Répondre en citant

amusant comme jeu non ?

Revenir en haut
ouicmoi
modos

Hors ligne

Inscrit le: 09 Jan 2008
Messages: 40
Localisation: le bistrot

MessagePosté le: Sam 26 Jan - 21:20 (2008)    Sujet du message: entrainement cérébral Répondre en citant

bof
_________________
C'est l'heure de l'apéro non ?
Bon je dois aller modérer excusez moi!
http://lecineastefou.free.fr


Revenir en haut
Visiter le site web du posteur
mad67
Administrateur

Hors ligne

Inscrit le: 15 Déc 2007
Messages: 109

MessagePosté le: Mar 5 Fév - 08:21 (2008)    Sujet du message: entrainement cérébral Répondre en citant

sopalain lui la bien noté

Revenir en haut
Contenu Sponsorisé






MessagePosté le: Aujourd’hui à 19:21 (2018)    Sujet du message: entrainement cérébral

Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    jeux pour ti 82 stats Index du Forum -> jeux pour ti 82 Toutes les heures sont au format GMT + 1 Heure
Page 1 sur 1

 
Sauter vers:  

Index | Panneau d’administration | creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com