Discussion :

[Jere3110]

Bonjour à tous et merci (heureux de vous divertir )

pour l'algo du deuxième plus grand nombre, j'ai fait les modifications et j'espere ne pas avoir été à côté de la plaque :

Algo deuxième plus grand nombre de la liste (D tab() D n num ; R res num)

Déclaration :
Variable max1 num
Variable max2 num
Variable k numérique

Début :
Pour k de Tab(2) à Tab(n) faire
Si tab (k) > max 1 alors
Max2 ← Max1
Max1 ← tab (k)
Sinonsi
Tab (k) > Max 2 alors
Max 2 ← tab(k)
FinSi
FinPour
Res ← Max 2
FIN

Et par contre aprés l'avoir relu, j'ai trouvé que mon algo sur le palindrome était completement faux, voilà la nouvelle version:

Algo Palindrome (D : tab() D n num R res logique)

Déclaration :
Variable j num
Variable i num

Début :
Res ← Vrai
Pour i de 0 à n/2 et j de n/2 à n faire
Si tab (i) ≠ tab (j) alors
Res ← Faux
Sinon
i ← i + 1
j ← j + 1
Fin si
Fin Pour
FIn

Voila, si vous pouvez me dire ce que vous pensez de ces trois algo, Merci de votre indulgence et de votre patience

[bidou]

Ton deuxième algo est potentillement faux puisque tu ne prends pas en compte la parité du nombre d'élément

[ucfoutu]

Je regarde aujourd'hui ton deuxième algo (celui de vérification de palindrome) , jere3110

Pour l'instant (et par pur instinct) ce que j'entrevois est

- déterminer le rang rg du dernier élément
- une boucle de lecture (for I = 0 to rg) - (en considérant que 0 est le rang du 1er ... je dis celà car par défaut sous VB le 1er aurait le rang O)
- comparaison de l'élément I avec l'élément rg - I et
==> si = on continue
==> si différent : ce n'est donc pas un palindrome et on sort immédiatement de la boucle.

- on quitte également la boucle lorsque I >= rg-I

voilà, grosso modo, le mécanisme que j'entrevois et qui sera peut-être à affiner.

Bonne journée.

[ucfoutu]

Bon...

L'instinct était bon

ce qui suit fait le boulot et ne se préoccupe pas de la parité du nombre d'éléments (tout en ne "balayan"t plus lorsque le "point de symétrie" est atteint) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Command1_Click()
  Dim i As Integer, rg As Integer, palindrome As Boolean
  maliste = Array(25, 2, 24, 2, 9, 1, 24, 2, 25) ' pas un palindrome
  palindrome = True
  rg = UBound(maliste)
  For i = 0 To rg
    If i >= rg - i Then Exit For
    If maliste(i) <> maliste(rg - i) Then
      palindrome = False
      exit for
    End If
  Next i
  MsgBox palindrome
 
 
  maliste = Array(25, 2, 24, 1, 9, 1, 24, 2, 25) ' est un palindrome
  palindrome = True
  rg = UBound(maliste)
  For i = 0 To rg
    If i >= rg - i Then Exit For
    If maliste(i) <> maliste(rg - i) Then
      palindrome = False
      exit for
    End If
  Next i
  MsgBox palindrome
End Sub

[ucfoutu]

Ceci étant dit :

Ce code est optimisable.

Comment ?

en évitant de recalculer If i >= rg - i

Le principe est simple (et je vous laisse faire) :
Il suffit de s'arrêter à l'entier de la division par 2 du nombre d'éléments.

Pourquoi ? simple : si le nombre d'élément est impair, l'élément "central" sera unique... tout simplement.

A jere3110 de faire sur cette seconde base de réflexion (c'est simple).

[Jere3110]

Bonjour, je te remerci ucfoutu pour le code que tu m'a donné, seulement j'avou ne pas comprendre pourqoui on doit y rentrer:

maliste = Array(25, 2, 24, 2, 9, 1, 24, 2, 25)

les nombres ne doivent t'ils pas être rentré au niveau de l'interface au moyen d'une text box dans lequel on écrit le nombre et d'un bouton qui les ajoutent ensuitent dans la liste. A mon sens, une fois cette liste rempli, on appuyer sur un second bouton déclenchant un label disant oui ou non pour palindrome.

pour plus de clarté voilà l'interface à laquelle je pensai:

C'est à optimiser mais je pense que qu'avec ca devrait aller.

[bidou]

c'est un exemple de test qu'il te donne, évidemment que tu ne dois pas le mettre dans ta fonction.
Par contre si ta saisie est entièrement manuelle, tu n'as pas besoin de fonction complête puisque tu peux gérer le palindrome et le second max au cours de l'ajout ou de la suppression.

[Jere3110]

Bonsoir:
Je suis en train de taper les codes sur vb, seulement je me retrouve bloquer: je ne trouve pas le moyen d'afficher ma liste 1 inverser dans la liste 2. j'ai créer un module sensinverse contenant la procédure mais je ne sais pas comment écrire la syntaxe de la procédure cmd_inverser_clik.

[bidou]

Tu parcours ta list 1 en partant de listcount et en allant vers 0 pour extraire tes élément et tu ajoutes à la liste 2 avec additem

[Jere3110]

Désolé mais je comprend pas trop , quand tu dis parcourir est ce que ca signifie utiliser un tableau et le boucler ensuite avec un pour, auquel le additem ressemblerait à :

List2.additem(tableau(i))

désolé mais j'ai l'impression de mettre perdu la

[SfJ5Rpw8]

Montre nous le code utilisé pour remplir la list1...? tu n'utilise pas une boucle FOR pour cela ..?

sinon pour Parcourir ta list1 tu utilise la boucle FOR... voir aussi Step ..

[Jere3110]

la liste 1 se rempli grace a au cmd_ajouter:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Cmd_ajouter_Click()
List1.AddItem (text_ajouter.Text)
text_ajouter = ""
End Sub

une fois cette liste rempli je clik sur le bouton inverser qui est censer me remplir la liste 2 en utilisant la procédure sensinverse

[ucfoutu]

Bonsoir,


Mais alors jere3110, si tu utilises finalement une listbox, ton tout premier algo n'a plus de justication d'être !
Il te suffit de mettre la propriété sorted de cette listbox à True et de lire l'avant-dernier article de la listbox !!

[Jere3110]

bonsoir,
tu parle de l'algo qui est sensé trouver le deuxième plus grand de la liste ??
Je ne suis pas assez caller en VB pour connaitre toute les propriétés, mais on atend de moi que je traduise un algo en VB ki est sensé faire cela...

[bidou]

Bonsoir,


Mais alors jere3110, si tu utilises finalement une listbox, ton tout premier algo n'a plus de justication d'être !
Il te suffit de mettre la propriété sorted de cette listbox à True et de lire l'avant-dernier article de la listbox !!

Certainement pas pour des valeurs numériques, c'est un classement alphabétique

[ucfoutu]

Mais si,

Il suffit de formater les données numériques

[Jere3110]

voilaou j'en suis avec le code de mon interface :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 Private Sub Cmd_ajouter_Click()
List1.AddItem (text_ajouter.Text)
text_ajouter = ""
End Sub
 
Private Sub Cmd_effacer_Click()
List1.Clear
List2.Clear
End Sub
 
Private Sub Cmd_inverser_Click()
 
End Sub
 
Private Sub Form_Load()
Cmd_Ajouter.Enabled = False
End Sub
 
Private Sub text_ajouter_Change()
If (text_ajouter.Text <> "") Then
If IsNumeric(text_ajouter.Text) Then
Cmd_Ajouter.Enabled = True
End If
End If
If text_ajouter.Text = "" Then
Cmd_Ajouter.Enabled = False
End If
End Sub

la commande inverser me pose problème.

[ucfoutu]

Tiens : voilà du moins inélégant qu'un formatage avec des 000 devant :

Une listbox avec la propriété sorted = true

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Command1_Click()
  TOTO = Space(10)
  For i = 1 To 20
    RSet TOTO = i
    List1.AddItem TOTO
  Next
End Sub

[Jere3110]

merci ucfoutu, c'est censer remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Cmd_ajouter_Click()
List1.AddItem (text_ajouter.Text)
text_ajouter = ""
End Sub

c'est ca ??

Quoi qu'il en soit j'ai besoin d'arriver à mettre en place ma procédure sensinverse dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Cmd_inverser_Click()
 
End Sub

je ne sais pas du tout comment m'y prendre simplement pour: prendre ma liste1, lui appliquer la procédure sens inverse et afficher le résultat ensuite dans liste2.

Désolé si je suis lour

[bidou]

mouais, je ne suis pas persuadé que tu ne sois pas gagnant à gérer une liste ordonnée à la saisie plutôt que de formater les entrée. Je n'ai plus VB6 pour tester sur ce poste mais je regarderais à l'occasion.

Jere3110>>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For cmpt= List1.ListCount-1 to 0 Step -1
   List2.AddItem List1.List(cmpt)
Next cmpt