BubbleSor (slimst), Pascal

Language: Layout:

program BubbleSort;

var letters: string;
    i, laatste,
    einde,
    aantal_wissels,
    aantal_vergelijkingen: integer;
    hulp: char;
    verwisseld: boolean;

begin
    letters := 'EGJACFDBHI';
    laatste := length(letters);
    aantal_vergelijkingen := 0;
    aantal_wissels := 0;
    
    repeat
        verwisseld := false;
        einde := 1;
        i := 1;
        while (i < laatste) do
            begin
                aantal_vergelijkingen := aantal_vergelijkingen+1;
                if (letters[i]>letters[i+1]) then
                    begin
                        hulp := letters[i];
                        letters[i] := letters[i+1];
                        letters[i+1] := hulp;
                        aantal_wissels := aantal_wissels+1;
                        verwisseld := true;
                        einde := i;
                    end;
                i := i+1;
            end;
        laatste := einde;
    until not verwisseld;
    writeln (letters);
    writeln (aantal_vergelijkingen);
    writeln (aantal_wissels);
end.

Show compiler warnings [ + ] Show input
Compilation time: 0.12 sec, absolute running time: 0.15 sec, cpu time: 0.01 sec, memory peak: 5 Mb, absolute service time: 0,42 sec