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:
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:
alleen het rode heb ik dus nog niet,
iemand die mij kan helpen?

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?

Laatst bewerkt: