Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 3825
Réponses : 7
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Programme d'entrainement cerebral de madian

mad67 le 03/07/2007 à 08:59
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
mad67 le 03/07/2007 à 09:42
j'aimerais y rajouter le sudoku un sukoban et un mode ou on compte les pixels allumés.
coc5 le 03/07/2007 à 10:43
Il à l'air bien mais je pense qu'il y aurait mpyen de le raccourcire en mettantr en commun les valeurs getkeys.
unknow le 03/07/2007 à 20:21
il est vraiment long, trop long meme mais ca a l'air pas trop mal tout ca
mad67 le 04/07/2007 à 08:39
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.
mad67 le 04/07/2007 à 08:50
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
mad67 le 04/07/2007 à 08:51
voila le lien badongo: http://www.badongo.com/file/3640707
mad67 le 05/07/2007 à 08:44
voila la version racourcie avec son lien: http://web.archive.org/web/200[...]om/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
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.