Algorithme
Fermé
amel**
Messages postés
7
Date d'inscription
mercredi 3 décembre 2008
Statut
Membre
Dernière intervention
29 décembre 2008
-
3 déc. 2008 à 16:00
amel** Messages postés 7 Date d'inscription mercredi 3 décembre 2008 Statut Membre Dernière intervention 29 décembre 2008 - 3 déc. 2008 à 19:49
amel** Messages postés 7 Date d'inscription mercredi 3 décembre 2008 Statut Membre Dernière intervention 29 décembre 2008 - 3 déc. 2008 à 19:49
A voir également:
- Algorithme
- Logiciel algorithme gratuit - Télécharger - Édition & Programmation
- Logiciel algorithme euromillion - Télécharger - Loisirs créatifs
- Code ascii algorithme - Guide
- Algorithme euromillion excel gratuit - Forum Algorithmes / Méthodes
- Tri d'une matrice algorithme - Forum C
4 réponses
amel**
Messages postés
7
Date d'inscription
mercredi 3 décembre 2008
Statut
Membre
Dernière intervention
29 décembre 2008
4
3 déc. 2008 à 16:05
3 déc. 2008 à 16:05
Bonjour
Je souhaite avoir des algorithmes de recherche opérationnel
Je souhaite avoir des algorithmes de recherche opérationnel
tu est sensé le faire toute seul .
vous apprener le delphie ...alors t'a qu'a essayer de le faire c pas difficile .
vous apprener le delphie ...alors t'a qu'a essayer de le faire c pas difficile .
raynald1987
Messages postés
2
Date d'inscription
dimanche 30 novembre 2008
Statut
Membre
Dernière intervention
15 mai 2009
3 déc. 2008 à 18:48
3 déc. 2008 à 18:48
bonjour j'aimerai savoir si mon programme est bon??
jai aussi un probleme mon programme de tour d'hanoi ne fonctinne pas il bloc à l
lstSol.AddItem ("Deplacer le disque du piquet " & source & " sur le piquet " & cible) et je narrive pas a faire fonctionné mon progressebar pouvez vous m'aidé svp??
voila mon programme
Public Class Form1
Private Sub cmdSol_Click()
Dim s As Integer 'source
Dim i As Integer 'inter
Dim c As Integer 'cible
s = 1
c = 1
i = 1
lstSol.ClearSelected()
If cmd1.Text <> "" Then
Call Hanoi(CInt(cmd1.Text), 1, 2, 3)
End If
End Sub
Private Sub Hanoi(ByVal nbdisk As Integer, ByVal source As Integer, ByVal intermediaire As Integer, ByVal cible As Integer)
If nbdisk > 0 Then
End If
Call Hanoi(nbdisk - 1, source, cible, intermediaire)
lstSol.AddItem("Deplacer le disque du piquet " & source & " sur le piquet " & cible)
Call Hanoi(nbdisk - 1, intermediaire, source, cible
End Sub
Private Sub command1_click()
ProgressBar1 = 0
ProgressBar2 = 100
End Sub
jai aussi un probleme mon programme de tour d'hanoi ne fonctinne pas il bloc à l
lstSol.AddItem ("Deplacer le disque du piquet " & source & " sur le piquet " & cible) et je narrive pas a faire fonctionné mon progressebar pouvez vous m'aidé svp??
voila mon programme
Public Class Form1
Private Sub cmdSol_Click()
Dim s As Integer 'source
Dim i As Integer 'inter
Dim c As Integer 'cible
s = 1
c = 1
i = 1
lstSol.ClearSelected()
If cmd1.Text <> "" Then
Call Hanoi(CInt(cmd1.Text), 1, 2, 3)
End If
End Sub
Private Sub Hanoi(ByVal nbdisk As Integer, ByVal source As Integer, ByVal intermediaire As Integer, ByVal cible As Integer)
If nbdisk > 0 Then
End If
Call Hanoi(nbdisk - 1, source, cible, intermediaire)
lstSol.AddItem("Deplacer le disque du piquet " & source & " sur le piquet " & cible)
Call Hanoi(nbdisk - 1, intermediaire, source, cible
End Sub
Private Sub command1_click()
ProgressBar1 = 0
ProgressBar2 = 100
End Sub
amel**
Messages postés
7
Date d'inscription
mercredi 3 décembre 2008
Statut
Membre
Dernière intervention
29 décembre 2008
4
3 déc. 2008 à 19:49
3 déc. 2008 à 19:49
J'essaye de trouver l'erreur et des répenses au prés des professeurs et des gents des domaines
amel**
Messages postés
7
Date d'inscription
mercredi 3 décembre 2008
Statut
Membre
Dernière intervention
29 décembre 2008
4
3 déc. 2008 à 19:47
3 déc. 2008 à 19:47
Bonjour,pour raynald1987
j'essaye de trouver l'erreur et des répenses au prés des professeurs et des gent des domaines
j'essaye de trouver l'erreur et des répenses au prés des professeurs et des gent des domaines