Ce programme sert à jouer à Master Mind. Au début la calculatrice vous demande si vous voulez reprendre le jeu ou commecer un nouveau. Ceci permet d'éteindre la calculatrice penadant que l'on réfléchit. Donc choisisssez de commencer un nouveau jeu. Ensuite vous devez indiquez le niveau de difficultée. Le facile met la réponse en ordre de correspondance. Le deuxième joue avec les règles par défaut et le résultat en ordre croissant. Le difficile peut choisir le même chiffre plusieurs fois. Puis vous devez entrer le nombre de couleurs de votre jeu et le nombre de places ou la quantité à deviner. La calculatrice utilise des chiffres pour les couleurs. Pour le premier essai vous devez commencez avec la parenthèse indiqué et séparer les chiffres par des virgules. Finalement la calculatrice évaluera votre essai et affiche des chiffres. Le zéro indique que cette couleur n'a pas été choisi. Le un indique que la couleur n'est pas à la bonne place; et le deux signifie que la couleur est bien placée. Donc à la fin de la partie il ne doit y avoir que des deux.
PROGRAM: MASTER
:
CLRHOME
: DISP "","1:REPRENDRE","2:NOUVEAU
JEU",""
: INPUT "VOTRE CHOIX:",T
: CLRHOME
: IF T=1
: GOTO 1
: DISP
"1:NORMAL","2:FACILE","3:DIFFICILE",""
: INPUT "VOTRE CHOIX:",V
: LBL 3
: DISP "","INDIQUEZ LE","NOMBRE
DE","COULEURS ET LA","QUANTITÉ",""
: INPUT "COULEURS:",Z
: INPUT "QUANTITÉ:",Y
: IF V#3
: THEN
: IF Y>Z
: THEN
: DISP "","COULEURS ET","OU
QUANTITÉS","INCORRECTE"
: PAUSE
: GOTO 3
: END
: END
: CLRLIST L6
: Y®DIM
L6
: CLRHOME
: DISP "COMMENCEZ PAR {","TERMINEZ PAR
}","","SÉPAREZ PAR
DES","VIRGULES","",L6
: CLRLIST L6
: FOR(X,1,Y)
: RANDINT(1,Z)®L6(X)
: IF V=3
: GOTO 2
: FOR(W,1,DIM L6-1)
: IF L6(X)=L6(W)
: THEN
: X-1®X
: DIM L6-1®W
: END
: END
: LBL 2
: END
: LBL 1
: INPUT L5
: IF DIM L5#Y
: THEN
: DISP "QUANTITÉ EST DE",Y
: GOTO 1
: END
: L6=L5®L4
: FOR(U,1,Y)
: IF SUM (L5(U)=L6)>1
: L4(U)+1®L4(U)
: END
: IF V#2
: SORTD(L4)
: DISP L4
: IF SUM L4=2Y
: THEN
: DISP "BRAVO"
: STOP
: END
: GOTO 1