En wie de **** mag jij zijnYo_rik wrote:Mijn versie van de insertionsort (enkel ter controle):Dit is alleen de procedure die de array sorteert.Code: Select all
PROCEDURE Insertion(VAR getallen: GetallenRij; n: INTEGER); (* Doel: sorteer een getallenrij Auteur: Yorik Gerlo Parameters: de getallenrij en de positie van het laatste getal *) VAR t1, t2: INTEGER; BEGIN FOR t1 := 0 TO (n - 1) DO FOR t2 := (t1-1) TO 0 BY -1 DO IF (getallen[t2+1] < getallen[t2]) THEN Wissel(getallen, (t2+1), t2); END; END; END; END Insertion;