Pws probleem

Status
Niet open voor verdere reacties.

iSuperior

Nieuwe gebruiker
Lid geworden
5 jan 2014
Berichten
1
Hallo allemaal,
Ik ben bezig met mijn pws over algoritme alleen snap er helaas niet zo veel van.
Ik en mijn maatje hebben dan verschillende sorteeralgoritme proberen na te maken en het is ons gelukt. Alleen moeten we nog uitleggen hoe hij precies werkt, dus moeten wij een pseudocode maken van de volgende code:

Code:
Public Class Bubblesort

    Private Sub ButtonSorteer_Click(sender As Object, e As EventArgs) Handles ButtonSorteer.Click

        Dim ingevoerdelijst As String = ""
        Dim gesorteerdelijst As String = ""
        Dim teller As Integer = 1
        Dim stappenteller As Integer = 0
        Dim lengtelijst As Integer
        Dim huidiggetal1 As Integer
        Dim huidiggetal2 As Integer
        Dim tijdelijk As Integer
        Dim posgesorteerdelijst As Integer = 1

        'initiele gegevens invoeren
        ingevoerdelijst = TextBoxLijst.Text
        lengtelijst = TextBoxLijst.TextLength
        'gesorteerdelijst wordt aanvankelijk gevuld met de ingevoerdelijst
        gesorteerdelijst = ingevoerdelijst



        For teller = 1 To lengtelijst - 1
            'definitie twee te vergelijken getallen
[COLOR="#FF0000"]            For posgesorteerdelijst = 1 To lengtelijst - 1
                huidiggetal1 = Integer.Parse(GetChar(gesorteerdelijst, posgesorteerdelijst))
                huidiggetal2 = Integer.Parse(GetChar(gesorteerdelijst, posgesorteerdelijst + 1))
                tijdelijk = huidiggetal2[/COLOR]

                'Als getal1 groter is dan getal2, dan verwisselen
                If huidiggetal1 > huidiggetal2 Then
                    huidiggetal2 = huidiggetal1
                    huidiggetal1 = tijdelijk
                End If
                'Huidige getallen veranderen in gesorteerde lijst
[COLOR="#FF0000"]                gesorteerdelijst = gesorteerdelijst.Substring(0, posgesorteerdelijst - 1) & huidiggetal1 & huidiggetal2 & gesorteerdelijst.Substring(posgesorteerdelijst + 1)
                stappenteller = stappenteller + 1[/COLOR]
            Next
            lengtelijst = lengtelijst - 1
            stappenteller = stappenteller + 1
        Next

        TextboxGesorteerdeLijst.Text = gesorteerdelijst
        LabelStappen.Text = "Aantal stappen is " & stappenteller.ToString

    End Sub

End Class


Het is al gelukt om sommigen stukken te doen maar de stukken die ik rood heb gemarkeert snap ik niet,

een pseudocode is trouwens de code in zijn simpelste vorm te zetten dus zeg maar dit:

Code:
 Programma Bubblesort
Onderdeel Knop ‘Sorteer’ Voer handeling hieronder uit wanneer er op ‘Sorteer’ geklikt wordt

Variabele genaamd ‘ingevoerdelijst’ wordt gezien als een reeks met beginwaarde = ""        Variabele genaamd ‘gesorteerdelijst’ wordt gezien als een reeks met beginwaarde = ""
Variabele genaamd ‘teller’ wordt gezien als een geheel getal met beginwaarde = 1        Variabele genaamd ‘stappenteller’ wordt gezien als geheel getal met begingetal = 0
Variabele genaamd ‘lengtelijst’ wordt gezien als een geheel getal
Variabele genaamd ‘huidiggetal1’ wordt gezien als een geheel getal
Variabele genaamd ‘huidiggetal2’ wordt gezien als een geheel getal
Variabele genaamd ‘tijdelijk’ wordt gezien als een geheel getal
Variabele genaamd ‘posgesorteerdelijst’ wordt gezien als een geheel getal met beginwaarde = 1

‘ingevoerdelijst’ krijgt als waarde = de tekst van ‘TextBoxLijst’
‘lengtelijst’ krijgt als waarde = de lengte van de tekst van ‘TextBoxLijst’
       
gesorteerdelijst wordt aanvankelijk gevuld met de ingevoerdelijst



     Loop wanneer teller = beginwaarde 1 Tot eindwaarde lengtelijst - 1
            
       Loop wanneer posgesorteerdelijst = beginwaarde 1 Tot eindwaarde lengtelijst - 1
         [COLOR="#FF0000"]       huidiggetal1 = Integer.Parse(GetChar(gesorteerdelijst, posgesorteerdelijst))
                huidiggetal2 = Integer.Parse(GetChar(gesorteerdelijst, posgesorteerdelijst + 1))
                tijdelijk = huidiggetal2
[/COLOR]
                
                Als huidiggetal1 groter is dan huidiggetal2 dan
                    huidiggetal2 wordt huidiggetal1
                    huidiggetal1 wordt tijdelijk
                Eindig als
         [COLOR="#FF0000"]       'Huidige getallen veranderen in gesorteerde lijst
                gesorteerdelijst = gesorteerdelijst.Substring(0, posgesorteerdelijst - 1) & huidiggetal1 & huidiggetal2 & gesorteerdelijst.Substring(posgesorteerdelijst + 1)
                stappenteller = stappenteller + 1[/COLOR]
           
 Volgende
            lengtelijst wordt gezet op lengtelijst - 1
            stappenteller wordt gezet op stappenteller + 1
      
  Volgende

        De tekst van ‘TextboxGesorteerdeLijst’ = ‘gesorteerdelijst’        De tekst van label ‘Stappen’ = "Aantal stappen is " & aantal stappen dat is geteld

    Einde onderdeel

Einde programma


alleen het rode heb ik dus nog niet,

iemand die mij kan helpen?

:D
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan