%Alex van der Mout

var number : int
put "How many numbers are there? " ..
get number

var list : array 1 .. number of int
put "What are the numbers?"                                           
for i : 1 .. number                                                 
    get list (i)                                                     
end for


put "The numbers in order are . . . "
var sortlist : array 1 .. number of int
for i : 1 .. number
    var smallest := 999
    var where : int
    for j : 1 .. number
        if list (j) < smallest then
            smallest := list (j)
            where := j
        end if
    end for
    sortlist (i) := smallest
    list (where) := 999
end for

for i : 1 .. number
    put sortlist (i)
end for

procedure bubbleSort( a : array)

% You list of numbers
const TOTALNUM := 15
const FIRST := 0
const LAST := TOTALNUM - 1

var list : array FIRST .. LAST of int % 15 numbers

for i : FIRST .. LAST
    % Assign values to list
    list (i) := Rand.Int (0, maxint div 2)

    % Output to screen [For Example]
    put i : 3, ": ", list (i) : 15
end for






% Sort the specified list

/* We need to run through the all the list items 1 less
 * than the total. Since it only takes that many moves to
 * move from the top to the bottom or vice versa.
 */
for pass : FIRST .. (LAST - 1)

    /* We need to run through the all the list items 1 less
     * than the total againt though this time is more crucial
     * since this variable is being used to affect our list.
     * Since we're going to be checking the first and second,
     * then second and third...etc. We don't need to do this
     * as many times as their is numbers since on the last one
     * it will compare the last number +1 and throw an out of
     * bounds error.
     */
    for element : FIRST .. (LAST - 1)
        /* Here is where we actually compare the two, in order
         * to sort the list from lowest to highest, we'd move the
         * higher number down in the list. So we check to see if
         * list item a is lower than b.
         */
        if (list (element) > list (element + 1)) then
            /* If so we swap a and b */
            var temp : int := list (element)
            list (element) := list (element + 1)
            list (element + 1) := temp
        end if
    end for
end for


for i : FIRST .. LAST
    locate (i + 1, 30)

    % Output to screen [For Example]
    put i : 3, ": ", list (i) : 15
end for

/*
 * Same as what Zren posted except it only interates through
 * the parts of the list that are needed. The algorithm knows
 * that the last item in the list is already sorted so it does
 * not need to check that item.
 */

proc Bubble (var List : array 1 .. * of int)
    var Ending := upper (List)
    var Buffer : int
    var Swapped := false
    loop
        Swapped := false
        for i : 1 .. Ending
            if i + 1 <= Ending and List (i) > List (i + 1) then
                Buffer := List (i)
                List (i) := List (i + 1)
                List (i + 1) := Buffer
                Swapped := true
            end if
        end for
        exit when not Swapped
        Ending -= 1
    end loop
end Bubble

/*
 * Very similar to what Zren posted. It varies on the traditional
 * bubble sort by not only interating down the list but also up
 * the list. On the first pass of the list is checking for a value
 * that is the greatest and moves it to the end of the list. On
 * the second pass of the list it is checking for a value that is
 * the least and moves it to the front of the list. Like bubble
 * sort the algorithm knows that the least and greatest value are
 * already in place and does not need to check them. The Beginning
 * and Ending variables are adjusted to suit.
 */

proc Ripple (var List : array 1 .. * of int)
    var Beginning := 1
    var Ending := upper (List)
    var Buffer : int
    var Swapped := false
    loop
        Swapped := false
        for i : 1 .. Ending
            if i + 1 <= Ending and List (i) > List (i + 1) then
                Buffer := List (i)
                List (i) := List (i + 1)
                List (i + 1) := Buffer
                Swapped := true
            end if
        end for
        exit when not Swapped
        Ending -= 1
        Swapped := false
        for decreasing i : Ending .. Beginning
            if i + 1 >= Beginning and List (i) > List (i + 1) then
                Buffer := List (i)
                List (i) := List (i + 1)
                List (i + 1) := Buffer
                Swapped := true
            end if
        end for
        exit when not Swapped
        Beginning += 1
    end loop
end Ripple

/*Alex van der mout*/
setscreen ("graphics:350,500") %set the screen to a specfic size
drawfillbox (0, 0, maxx, maxy, 12) %draws a
color (0) %TEXT COLOR
colorback (12) %TEXT COLOR BACKGROUND

var num : int %variable for the number of students
put "How many students are there?" %prompts user for amount of students
get num %gets how amny students there are
put "" %enter a space between commands
put "Enter student name, and grade out of 67" %prompts user to enter student nam & mark

var grades : array 1 .. num of real %two arrays that get marks/name for how many students there are
var names : array 1 .. num of string
var percent : array 1 .. num of real %array for determining the percent grade of each mark

for i : 1 .. num %ccontinues the loop from 1 to how many students there are-
    put "Name: " ..
    get names (i) : * %gets name one, then name two etc
    put "Mark: " ..
    get grades (i) %gets grade one, then grade teo
    if grades (i) > 67 then %if the user enters a grade higher then 67(the max) then do the following
        grades (i) := 0 %set the grade entered back to zero
        put "Grade higher then 67, not valid enter grade again"
        put "Mark: " ..
        get grades (i) %re-get the invalid mark
    end if
    percent (i) := grades (i) / 67 * 100 %changes all the grades to percent by dividing by 67 and multiplying by 100
    put ""
end for

cls %clear the screen

for i : 1 .. num %this section puts the marks in percent form with the students name
    put names (i), " has a ", round (percent (i)), "% on the test."
end for

put ""
put "From lowest mark to highest, the class has the following..."



var random : boolean := true
for decreasing last : num .. 1
for i : 1 .. num - 1
    if percent (i) > percent (i + 1) then
        random := false
        const temp := percent (i)
        percent (i) := percent (i + 1)
        percent (i + 1) := temp
    end if
end for
    exit when random
end for

for i : 1 .. num
    put round (percent (i)), "%"
end for