-=Un petit Mastermind à 3 chiffres=- avec double ou triple les essais doivent avoir 3 chiffres ------------------------------------- PROGRAM:MIND3CH Effacer entrées EffTtesListes EffÉcran Disp " Un petit Mastermind" Disp " 3 chiffres" Disp " avec des doubles ou plus" Disp " Les essais doivent avoir" Disp " 3 chiffres" Disp "--------------------------" Disp " Pour obtenir la solution" Disp " 2nde quitter, 2nde L1" Disp " [entrer]" Pause 0→N:0→I 0→S:0→T:0→U 0→C:0→D:0→E 0→R:0→B:0→M nbrAléatEnt(0,9)→S nbrAléatEnt(0,9)→T nbrAléatEnt(0,9)→U {S,T,U}→L₁ Lbl X Input "Votre essai ",R :0→B:0→M:N+1→N If I<9:I+1→I R/100→R partEnt(R)→C R-C→D D*100→D D/10→D D→E partEnt(D)→D E-D→E E*10→E {C,D,E}→L₂ If L₂(1)=L₁(1) et L₂(2)=L₁(2) et L₂(3)=L₁(3) Then 3→B:0→M Goto Y End If L₂(1)=L₁(1) Then 10→L₁(1):11→L₂(1):B+1→B End If L₂(2)=L₁(2) Then 10→L₁(2):11→L₂(2):B+1→B End If L₂(3)=L₁(3) Then 10→L₁(3):11→L₂(3):B+1→B End If L₂(1)=L₁(2) Then 10→L₁(2):11→L₂(1):M+1→M End If L₂(1)=L₁(3) Then 10→L₁(3):11→L₂(1):M+1→M End If L₂(2)=L₁(1) Then 10→L₁(1):11→L₂(2):M+1→M End If L₂(2)=L₁(3):Then 10→L₁(3):11→L₂(2):M+1→M End If L₂(3)=L₁(1) Then 10→L₁(1):11→L₂(3):M+1→M End If L₂(3)=L₁(2) Then 10→L₁(2):11→L₂(3):M+1→M End {S,T,U}→L₁ Output(I,20,"B"):Output(I,21,B) Output(I,24,"M"):Output(I,25,M) Goto X Lbl Y Output(I,20,"B"):Output(I,21,B) Output(I,24,"M"):Output(I,25,M) Output(I+1,1,"Trouvé en "):Output(I+1,11,N) Output(I+1,14,"Coups") Pause EffTtesListes Effacer entrées ------------------------------------- ;-) Pour avoir la solution: 2nde, quitter, 2nde, L1, entrer. ------------------------------------