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
programme d'entrainement cerebral de madian
Auteur Message
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
PostÚ le : Mar 03 Juil 2007, 8:59   Citer 

voila le lien: http://www.badongo.com/file/3629789
et le code
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",15,"EVALUATION",20,"QUITTER",12
Lbl 20
0->Y
1->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
Lbl 2
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 2
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
Lbl 5
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 5
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
Lbl 7
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 7
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
Lbl 9
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 9



 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
PostÚ le : Mar 03 Juil 2007, 9:42   Citer 

j'aimerais y rajouter le sudoku un sukoban et un mode ou on compte les pixels allumÚs.

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
PostÚ le : Mar 03 Juil 2007, 10:43   Citer 

Il Ó l'air bien mais je pense qu'il y aurait mpyen de le raccourcire en mettantr en commun les valeurs getkeys.

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
unknow
Avatar

Autorisation : Membre
Nb de messages : 232
Inscrit le : Jeu 12 Oct 2006, 19:30
PostÚ le : Mar 03 Juil 2007, 20:21   Citer 

il est vraiment long, trop long meme mais ca a l'air pas trop mal tout ca

----------------------
Ta le look coco

Tout nouveau design venait jeter un coup d'oeil ca en vaut la peine, ca a totalement changÚ
 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
PostÚ le : Mer 04 Juil 2007, 8:39   Citer 

oui je vais essayer tu as raison en tout cas voici la nouvellle version elle comprends un mode ou on compte les pixels allumes mais j'aimerais mettre mon sukoban mais c'est impossible.

 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
PostÚ le : Mer 04 Juil 2007, 8:50   Citer 

le voila le nouveau
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
Lbl 2
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 2
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
Lbl 5
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 5
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
Lbl 7
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 7
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
Lbl 9
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 9



 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
PostÚ le : Mer 04 Juil 2007, 8:51   Citer 

voila le lien badongo: http://www.badongo.com/file/3640707

 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
PostÚ le : Jeu 05 Juil 2007, 8:44   Citer 

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



 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 - 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