MIND

Taper à la main

Vous ne possédez pas de câble ? Alors vous pourrez néanmoins taper les programmes à la main sur votre calculatrice. Pour cela, appuyez sur la touche [pgrm], la flèche de gauche puis sur [entrer].

 

Taper à la main: (Français)

1→dim(LMI
Lbl 0
EffEcr
Menu(">>>>> MIND <<<<<","JOUER",1,"RECORD",2,"QUITTER",3
Lbl 1
" →Chaîne0
0→A
1→B
For(C,1,4
Chaîne0+sous-Chaîne("123456789",entAléat(1,9),1→Chaîne0
End
sous-Chaîne(Chaîne0,2,4→Chaîne0
For(C,1,4
For(D,1,4
If C≠D and sous-Chaîne(Chaîne0,C,1)=sous-Chaîne(Chaine0,D,1
Goto 1
End
End
Repeat E=4
A+1→A
Input "",Chaîne1
Chaîne1+"???→Chaîne1
0→E
For(C,1,4
For(D,1,4
If sous-Chaîne(Chaîne1,C,1)≠sous-Chaîne(Chaîne0,D,1
Output(B,12+C,"·
End
For(D,1,4
If C≠D and sous-Chaîne(Chaîne1,C,1)=sous-Chaîne(Chaîne0,D,1
Output(B,12+C,"˖
End
If sous-Chaîne(Chaîne1,C,1)=sous-Chaîne(Chaîne0,C,1
Then
E+1→E
Output(B,12+C,"□
End
End
B+1→B
If B=8
7→B
End
BinAléat(9,0
EffEcr
Output(1,7,"MIND
If A<LMI(1) ou non(LMI(1
Then
Output(8,2,"RECORD VAINCU!
A→LMI(1
End
Disp "","","SCORE:",A,"RECORD:
Pause LMI(1
Goto 0
Lbl 2
Output(1,7,"MIND
Disp "","","","RECORD:
Pause LMI(1
Goto 0
Lbl 3
Output(4,6,"ALEXIS
EffVar AEffVar BEffVar CEffVar DEffVar EEffVar Chaîne0EffVar Chaîne1
Output(1,1,"

 

Taper à la main: (Anglais)

1→dim(LMI
Lbl 0
ClrHome
Menu(">>>>> MIND <<<<<","JOUER",1,"RECORD",2,"QUITTER",3
Lbl 1
" →Str0
0→A
1→B
For(C,1,4
Str0+sub("123456789",randInt(1,9),1→Str0
End
sub(Str0,2,4→Str0
For(C,1,4
For(D,1,4
If C≠D and sub(Str0,C,1)=sub(Str0,D,1
Goto 1
End
End
Repeat E=4
A+1→A
Input "",Str1
Str1+"???→Str1
0→E
For(C,1,4
For(D,1,4
If sub(Str1,C,1)≠sub(Str0,D,1
Output(B,12+C,"·
End
For(D,1,4
If C≠D and sub(Str1,C,1)=sub(Str0,D,1
Output(B,12+C,"˖
End
If sub(Str1,C,1)=sub(Str0,C,1
Then
E+1→E
Output(B,12+C,"□
End
End
B+1→B
If B=8
7→B
End
randBin(9,0
ClrHome
Output(1,7,"MIND
If A<LMI(1) or not(LMI(1
Then
Output(8,2,"RECORD VAINCU!
A→LMI(1
End
Disp "","","SCORE:",A,"RECORD:
Pause LMI(1
Goto 0
Lbl 2
Output(1,7,"MIND
Disp "","","","RECORD:
Pause LMI(1
Goto 0
Lbl 3
Output(4,6,"ALEXIS
DelVar ADelVar BDelVar CDelVar DDelVar EDelVar Str0DelVar Str1
Output(1,1,"

Retour Sommaire

Créer un site gratuit avec e-monsite - Signaler un contenu illicite sur ce site

×