DEVINE

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(LDE
Lbl 0
EffEcr
Menu(">>>> DEVINE <<<<","JOUER",1,"RECORD",2,"QUITTER",3
Lbl 1
0→A
entAléat(0,99→B
0→C
99→D
Repeat E=B
EffEcr
Disp "COUPS:","
Output(1,8,A
Output(8,2,"ENTRE    ET
Output(8,8,C
Output(8,14,D
Input "NOMBRE: ",E
A+1→A
If E<B
Then
If E>C
ent(E→C
Else
If E<D
ent(E→D
End
End
EffEcr
If 0=LDE(1) ou A<LDE(1
Then
Output(8,2,"RECORD VAINCU!
A→LDE(1
End
Output(1,6,"DEVINE
Disp "","","SCORE:",A,"RECORD:
Pause LDE(1
Goto 0
Lbl 2
Output(1,6,"DEVINE
Disp "","","","RECORD:
Pause LDE(1
Goto 0
Lbl 3
Output(4,6,"ALEXIS
EffVar AEffVar BEffVar CEffVar DEffVar E
Output(1,1,"

 

Taper à la main: (Anglais)

1→dim(LDE
Lbl 0
ClrHome
Menu(">>>> DEVINE <<<<","JOUER",1,"RECORD",2,"QUITTER",3
Lbl 1
0→A
randInt(0,99→B
0→C
99→D
Repeat E=B
ClrHome
Disp "COUPS:","
Output(1,8,A
Output(8,2,"ENTRE    ET
Output(8,8,C
Output(8,14,D
Input "NOMBRE: ",E
A+1→A
If E<B
Then
If E>C
iPart(E→C
Else
If E<D
iPart(E→D
End
End
ClrHome
If 0=LDE(1) or A<LDE(1
Then
Output(8,2,"RECORD VAINCU!
A→LDE(1
End
Output(1,6,"DEVINE
Disp "","","SCORE:",A,"RECORD:
Pause LDE(1
Goto 0
Lbl 2
Output(1,6,"DEVINE
Disp "","","","RECORD:
Pause LDE(1
Goto 0
Lbl 3
Output(4,6,"ALEXIS
DelVar ADelVar BDelVar CDelVar DDelVar E
Output(1,1,"

Retour Sommaire

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

×