Voici un jeu que j'ai programmé il y a quelques jours.
le but est de résoudre les calculs proposés par la calculette :
Voici le code :
| Code | :Clrhome
:Disp" ENTRAINEMENT"," CEREBRAL"
:Pause
:5ü dim L:Fill(0,L)
:3üX:1üY
:Clrhome
:Menu("CALCUL MENTAL :",CALCUL 20",A,"CALCUL 100",B
::Lbl A
:20üB
:Goto 0
:Lbl B
:100üB
:Lbl 0
:For(A,1,B)
:Lbl 1
:int rand11üL(1)
:int rand3+1üL(2)
:int rand11üL(3)
:
:If L(2)=2 and L(1)<L(3):Goto 1
:
:Output(Y,X,L(1)
:
:If L(2)=1
:Then
:Output(Y,X+2,"+"
:L(1)+L(3)üL(4)
:End
:
:If L(2)=2
:Then
:Output(Y,X+2,"-"
:L(1)-L(2)üL(4)
:End
:
:If L(2)=3
:Then
:Output(Y,X+2,"*"
:L(1)*L(3)üL(4)
:End
:
:Output(Y,X+3,L(3)
:Output(Y,X+5,"="
:Disp " "
:Input "",Z
:
:If Z=L(4)
:Then
:L(5)+1üL(5)
:Output(Y,15,"V"
:Else
:L(5)-1üL(5)
:Output(Y,15,"F"
:End
:
:Y+2üY
:If Yù 8:8üY
:
:End
:
:Clrhome
:Disp "SCORE :",L(5) |
:
|
