Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> programme d'entrainement cerebral de madian

programme d'entrainement cerebral de madian

Auteur

Message

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Mar 03 Juil 2007, 8:59

voila le lien: http://www.badongo.com/file/3629789
et le code

Code

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

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Mar 03 Juil 2007, 9:42

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

coc5

Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37

Posté le : Mar 03 Juil 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

Autorisation : Membre
Nb de messages : 221
Inscrit le : Jeu 12 Oct 2006, 19:30

Posté le : Mar 03 Juil 2007, 20:21

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

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

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Mer 04 Juil 2007, 8: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

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Mer 04 Juil 2007, 8: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ù

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ù

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Mer 04 Juil 2007, 8:51

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

Google_AdSense

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Jeu 05 Juil 2007, 8:44

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

Code

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

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> programme d'entrainement cerebral de madian

Page générée en 9 requêtes

Flux RSS