Sortowanie proste przez wstawianie
z wartownikiem:
FOR I:=2 TO N DO
X:=A[I];
A[0]:=X;
J:=I-1
WHILE X<A[J] DO
BEGIN
A[J+1]:=A[J];
J:=J-1;
END
A[J+1]:=X;
END FOR;
END.
Sortowanie proste przez wstawianie
bez wartownika:
FOR I:=2 TO N DO
X:=A[I];
J:=I-1;
WHILE ( J>0 ) CAND ( X<A[J] ) DO
BEGIN
A[J+1]:=A[J];
J:=J-1;
END
A[J+1]:=X;
END FOR;
END.
Sortowanie proste przez wybieranie:
FOR I:=1 TO N-1 DO
BEGIN
K:=I;
X:=A;
END
FOR J:=I+1 TO N DO
IF A[J]<X THEN
BEGIN
K:=J;
X:=A[J];
END
END IF;
END FOR;
A[K]:=A[I];
A[I]:=X;
END FOR;
END.
Sortowanie Bąbelkowe:
FOR J:= TO N-1 DO
FOR I:=1 TO N-J DO
IF DANE[I]>DANE[I+1] THEN
BEGI
POM:=DANE[I];
DANE[I]:=DANE[I+1];
DANE:=POM;
END;
END.
Sortowanie szybkie:
IF D<G THEN
T:=A[D];
S:=D;
FOR I=D+1 TO G DO
IF A[I]<T THEN
S:=S+1;
ZAMIANA(A[S],A[I]);
END IF;
END FOR;
ZAMIANA(A[D],A[S]);
SORTOWANIE_SZYBKIE(D,S-1);
SORTOWANIE_SZYBKIE(S+1,G);
END IF;
END.