méthode programmation chiffres/lettres Résolu/Fermé

Question

Bonjour a tous, 

Ayant commencé le java depuis quelques mois, je tente aujourd'hui de perfectionner ma méthode, et pour cela je me lance des petits défis.

Celui qui je me suis lancé est le suivant :

Inspiré du jeu 'des chiffres et des lettres', je souhaiterai écrire un programme qui quand on lui donne en entrée plusieurs entiers et un résultat, il calcule ce résultat en utilisant chaque entier et en les additionnant, multipliant, soustractionnant ou divisant entre eux. En clair un programme qui exécute le raisonnement d'un candidat dans 'des chiffres et des lettres' lors d'une épreuve, a l'exception près que le programme affiche le calcul uniquement si le compte est bon, et que chaque chiffre est utilisé.

La conception de ce programme s'avère je crois complexe et j'aurai donc besoin de méthode ou d'astuces mathématiques si certains se sentent le courage de l'attaquer, de donner une idée de structure. En algorithmique, la fonction ressemblerait a cela, et devrait retourner toutes les étapes de calcul :

fonction chiffres ( A entier, B entier, C entier, D entier, E entier, F entier, G entier, res entier ) entier 
  



et dans le main :

resultat=chiffres (a,b,c,d,e,f,g,result)


Avez vous des idées pour réussir cela ? Merci d'avance.

Configuration: Windows 7 / Firefox 8.0

KX · Answer

Le nombre de possibilité est extrêmement important et il est in-envisageable de les itérer toutes, il faudrait je pense que tu ais des bases d'intelligence artificielle, et si tu débutes en Java ça me parait assez compliqué...

Mais bon, je te conseilles d'oublier la partie "chaque chiffre est utilisé", ce n'est pas vraiment un problème. De plus je modifierai ta fonction chiffres pour s'adapter à un appel récursif.

Je préconiserai plutôt une méthode chiffres(int resultat, int...entiers) ça permettrait d'avoir un nombre de paramètres variables et par exemple de faire :

chiffres(15,1,2,3,4) = 2+chiffres(13,2,3,4) = 2+(1+chiffres(12,3,4)) = 2+(1+(4*chiffres(3,3)) = 2+(1+(4*(3*chiffres(1))) = 2+(1+(4*(3)))

Remarque 1 : ici j'ai terminé en remplaçant chiffres(1) par 1 mais on pourrait également envisager de remplacer chiffres(0) par 0 pour permettre une addition à la fin.

Remarque 2 : dans l'exemple j'ai mis tous les opérateurs devant mais on pourrait également envisager de le mettre en interne : chiffres(15,1,2,3,4) = chiffres(15,1+2,3*4) = chiffres(15,1+2+3*4)

imen123 · Answer

si il vous plait le progremme ki pssible KX

Katido · Answer

Un petit programme sous Excel, très rapide et très efficace (toutes les possibilités envisagées). Si rien n'est trouvé, on accepte les résultats intermédiaires non entiers. Les 6 entrées doivent être dans les cellules de la ligne 2, colonnes 2, 5, 8, 11, 14, 17 et le résultat à atteindre en ligne 2 colonne 20 La feuille Excel doit avoir pour nom "FeuyCB" (propriété CodeName) Quand les entrées sont renseignées, on exécute le sous-programme Calcul et tout s'affiche. --------------------------------------------------- Option Explicit Private a#(6, 6), s%, ee#, ii%(6), jj%(6), oo%(6), fgfg(6, 6) As Boolean, im%(6), jm%(6), om%(6), am#(6, 6), nm%, m%, finfg As Boolean, amfg(6, 6) As Boolean -------------------------------------------------------- Public Sub Alea() Dim i%, a% Randomize For i = 2 To 17 Step 3 a = Int(14 * Rnd + 1): If a > 10 Then a = (a - 10) * 25 FeuyCB.Cells(2, i) = a Next i FeuyCB.Cells(2, 20) = Int(900 * Rnd + 100) End Sub -------------------------------------------------------- Public Sub Calcul() Dim i%, e#, eee# ' Effacement résultat EffacerRes ' Lecture For i = 1 To 6 a(1, i) = FeuyCB.Cells(2, 3 * i - 1): fgfg(1, i) = False Next i s = FeuyCB.Cells(2, 20) ee = 1000 ' Comparaison de s avec les 6 valeurs initiales (sans aucun calcul) For i = 1 To 6 e = Abs(a(1, i) - s) If e < ee Then ee = e: If ee = 0 Then FeuyCB.Cells(6, 3) = CStr(s) & " = " & CStr(s): MsgBox "OK", vbInformation, "": Exit Sub Next i ' Calcul finfg = False m = 1: Test 1 Sortie m = 2: eee = ee: Test 1 If ee < eee Then Sortie m = 3: eee = ee: Test 1 If ee < eee Then Sortie End Sub -------------------------------------------------------- Public Sub Test(n%) Dim i%, j%, o%, k%, l%, e#, r# For i = 1 To 7 - n ii(n) = i For j = i + 1 To 7 - n jj(n) = j k = 0: fgfg(n + 1, 6 - n) = True For l = 1 To 7 - n If l <> i And l <> j Then k = k + 1: a(n + 1, k) = a(n, l): fgfg(n + 1, k) = fgfg(n, l) Next l For o = 1 To 5 Select Case o Case 1: r = a(n, i) + a(n, j) Case 2: r = a(n, i) - a(n, j): If r < 0 Then r = -r Case 3: r = a(n, i) * a(n, j) Case 4 r = a(n, i) / a(n, j): If r < 1 Then r = a(n, j) / a(n, i) If m = 1 And Int(r) <> r Then Exit For Case 5: r = 1 / r: If r = 1 Or m < 3 Then r = 0 End Select If r Then a(n + 1, 6 - n) = r: oo(n) = o e = Abs(r - s) If e < ee Then ee = e: nm = n For k = 1 To 6: im(k) = ii(k): jm(k) = jj(k): om(k) = oo(k): For l = 1 To 6: am(k, l) = a(k, l): amfg(k, l) = fgfg(k, l): Next l: Next k If ee = 0 Then finfg = True: Exit Sub End If Test n + 1 If finfg Then Exit Sub End If Next o Next j Next i End Sub -------------------------------------------------------- Public Sub Sortie() Dim n%, u#, v#, uv#, cu$, cv$, cr$, ufg As Boolean, vfg As Boolean, uvfg As Boolean, r As Range For n = 1 To nm u = am(n, im(n)): v = am(n, jm(n)) ufg = amfg(n, im(n)): vfg = amfg(n, jm(n)) If om(n) = 5 Then If u > v Then uv = u: u = v: v = uv: uvfg = ufg: ufg = vfg: vfg = uvfg Else If u < v Then uv = u: u = v: v = uv: uvfg = ufg: ufg = vfg: vfg = uvfg End If cu = CStr(u): cv = CStr(v): cr = CStr(am(n + 1, 6 - n)) Set r = FeuyCB.Cells(6 * m + n - 1, 3) r.Value = cu & " " & Choose(om(n), "+", "-", "x", "/", "/") & " " & cv & " = " & cr r.Characters(1, Len(cu)).Font.Color = IIf(ufg, vbMagenta, vbBlack) r.Characters(Len(cu) + 1, 3).Font.Color = vbBlack r.Characters(Len(cu) + 4, Len(cv)).Font.Color = IIf(vfg, vbMagenta, vbBlack) r.Characters(Len(cu) + Len(cv) + 4, 3).Font.Color = vbBlack r.Characters(Len(cu) + Len(cv) + 7, Len(cr)).Font.Color = vbMagenta Next n Set r = FeuyCB.Cells(6 * m + nm - 1, 18) If finfg Then r = "OK" r.Characters.Font.Color = vbGreen Else r = "Erreur = " & CStr(ee) r.Characters.Font.Color = vbRed End If End Sub -------------------------------------------------------- Public Sub EffacerRes() FeuyCB.Range(FeuyCB.Cells(6, 3), FeuyCB.Cells(22, 18)).ClearContents End Sub

Méthode programmation chiffres/lettres

3 réponses

Discussions similaires