Tri Rapide

Résolu/Fermé

bupole Messages postés 8 Date d'inscription mercredi 23 octobre 2013 Statut Membre Dernière intervention 1 septembre 2016 - Modifié par bupole le 9/12/2015 à 12:52
bupole Messages postés 8 Date d'inscription mercredi 23 octobre 2013 Statut Membre Dernière intervention 1 septembre 2016 - 16 déc. 2015 à 00:25

Bonjour,
Je suis un étudiant debutant en VB.NET j'ai essayer de réaliser un programme du tri rapide sous VB.NET mais je trouve tout le temps des dificultées en le executant priere de me le corriger j'ai un examen demain et j'ai vraiment besoin de votre aide
et merci d'avance !

Module Module1
    Sub main()
        Dim n As Integer
        Console.Write("Donner la taille du tableau : ")
        n = Console.ReadLine()
        Dim t(n) As Integer
        For i = 1 To n
            Console.Write("tab[" & i & "] = ")
            t(i) = Console.ReadLine()
        Next
        tri_rapide(t, 1, n)
        For i = 1 To n
            Console.WriteLine("tab" & i & "] = " & t(i))
        Next
    End Sub
    'debut tri rapide
    Sub tri_rapide(ByVal tab() As Integer, ByVal debut As Integer, ByVal fin As Integer)
        Dim d, g, pivot, temp As Integer
        d = fin
        g = debut
        pivot = tab((debut + fin) / 2)
        Do
            While (tab(g) < pivot)
                g += 1
            End While
            While (tab(d) > pivot)
                d -= 1
            End While
            If (g <= d) Then
                temp = tab(g)
                tab(g + 1) = tab(d)
                tab(d - 1) = temp
            End If
        Loop While (g <= d)
        If (debut < d) Then
            tri_rapide(tab, debut, d)
        End If
        If (fin > g) Then
            tri_rapide(tab, g, fin)
        End If
    End Sub
    'fin tri rapide
End Module

A voir également:

Tri Rapide
Acces rapide - Guide
Adresse mail rapide - Guide
Tri excel - Guide
Copie rapide - Télécharger - Gestion de fichiers
Demarrage rapide windows 10 - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 9/12/2015 à 13:36

Bonjour

code VBa de tri rapide ( je n'en suis pas l'auteur)

ses explications
Son principe consiste à trier une partie d'un tableau délimité par 2 indices, on choisit une valeur de ce tableau qui servira de pivot qu'on place de manière définitive de manière à ce que tous les éléments précdents ce pivot lui soient inférieurs ou égaux et que tous les suivants lui soient supérieurs ou égaux. On prend comme pivot la valeur médiane

vba mais d'après ce que tu as écrit, ca semble identique au vb.net....

  Sub TrieTableau(Deb As Long, Fin As Long)'Ti
   Dim IndiceInf As Long, IndiceSup As Long
   Dim Temp1, Pivot
     IndiceInf = Deb
     IndiceSup = Fin
     Pivot = UCase(T((Deb + Fin) \ 2))
     Do
       While UCase(T(IndiceInf)) < Pivot
         IndiceInf = IndiceInf + 1
       Wend
       While Pivot < UCase(T(IndiceSup))
         IndiceSup = IndiceSup - 1
       Wend
       If IndiceInf <= IndiceSup Then
         Temp1 = T(IndiceInf)
         T(IndiceInf) = T(IndiceSup)
         T(IndiceSup) = Temp1
         IndiceInf = IndiceInf + 1
         IndiceSup = IndiceSup - 1
       End If
     Loop Until IndiceInf > IndiceSup
     If Deb < IndiceSup Then TrieTableau Deb, IndiceSup
     If IndiceInf < Fin Then TrieTableau IndiceInf, Fin
  End Sub

Michel

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
11 déc. 2015 à 16:23

Bonjour

Merci...

de rien

bupole Messages postés 8 Date d'inscription mercredi 23 octobre 2013 Statut Membre Dernière intervention 1 septembre 2016 > michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023
Modifié par bupole le 16/12/2015 à 00:44

Merci Michel je suis vrm dsl j'ai pas fait attention

Discussions similaires

Qui sont les personnes dans mon ajout rapide de Snapchat ?

Pourquoi des inconnus bizarres m'ajoutent sur snap ?

Ajout rapide snap

Comment savoir comment on nous a ajouté sur Snap

Discussions similaires

Newsletters