Multiple Array Sorting (Code included)

[ntba1]

Hey guys just finishing off an assignment I have but I have one last critical part of my program before I can finish it and be able to clean the code up and make the interface look nice. I have a lottery sales program where people enter their Class number, Tickets sold and number of students. The last part of this assignment involves sorting the classes from most tickets sold to least tickets sold. That's fine and dandy, just sort the array but how would I have the other two array's line up to that one(Since Homeroom, TicketsSold and Students are all separate arrays). Here's the code (Yes I know it could be cleaner and if your wondering what the goto vars are for it's me trying to fake goto, plus I just started with Turing, I bet there is a MUCH easier way to do what I did) Remember I am using Classic Turing 6.5 and I cannot do anything about it my teacher insists we use it.

code:

var Homeroom : array 1 .. 200 of int var TicketsSold : array 1 .. 200 of int var Students : array 1 .. 200 of int var Average : array 1 .. 200 of real var MainOption, InputOption, Start : string (1) var Total : int := 0 var Rooms : int := 1 var goto : int := 0 var goto2 : int := 0 var goto3 : int := 0 setscreen ("graphics:vga") setscreen ("nocursor") procedure Options     locate (6, 25)     put "What would you like to do?"     locate (10, 25)     put "Please choose one: "     locate (11, 25)     put "A: Input"     locate (12, 25)     put "B: Summary"     locate (13, 25)     put "C: Exit"     getch (MainOption)     if MainOption = "A" or MainOption = "a" then         cls         goto2 := 1         goto3 := 0     else         if MainOption = "B" or MainOption = "b" then             cls             goto2 := 2             goto3 := 2         else             if MainOption = "C" or MainOption = "c" then                 goto2 := 0                 goto3 := 3             end if         end if     end if end Options procedure Input     locate (10, 20)     put "What would you like to input? (Please choose in order)"     locate (12, 20)     put "1: Enter New Rooms"     locate (13, 20)     put "2: Enter Ticket Sales data per room"     locate (14, 20)     put "3: Enter the number of students per room"     locate (15, 20)     put "4: Modify ticket sales of random room"     locate (16, 20)     put "5: Return to Main Options"     getch (InputOption)     if InputOption = "1" then         cls         put "How many rooms do you want to enter?"         get Rooms         cls         for i : 1 .. Rooms             put "Enter room number: " ..             get Homeroom (i)         end for         goto3 := 0     else         if InputOption = "2" then             cls             for j : 1 .. Rooms                 put "Enter amount for room: ", Homeroom (j)                 get TicketsSold (j)             end for             for n : 1 .. Rooms                 Total := Total + TicketsSold (n)             end for         else             if InputOption = "3" then                 cls                 for o : 1 .. Rooms                     put "Enter the number of students in room: ", Homeroom                         (o)                     get Students (o)                 end for                 for q : 1 .. Rooms                     Average (q) := TicketsSold (q) / Students (q)                 end for             else                 if InputOption = "4" then                 else                     if InputOption = "5" then                         goto3 := 1                     end if                 end if             end if         end if     end if end Input procedure Summary     locate (1, 1)     put "Summary:              Rooms:"     locate (2, 1)     put "FJ Brennan High School"     locate (3, 1)     put "Total Sales: ", Total, " Tickets"     put "Press any key to go back"     for l : 1 .. Rooms         locate (l, 30)         put Homeroom (l)     end for     locate (1, 35)     put "Tickets Sold:"     for m : 1 .. Rooms         locate (m, 50)         put TicketsSold (m)     end for     locate (1, 55)     put "Students:"     for p : 1 .. Rooms         locate (p, 67)         put Students (p)     end for     for x : 1 .. Rooms         locate (x, 72)         put Average (x)     end for     getch (Start)     goto3 := 1 end Summary % Start Of Program % Welcome Screen locate (10, 20) put "Hello and welome to cardinal Lottery!" locate (11, 20) put "Press any Key to continue" getch (Start) cls Options if goto2 = 1 then     Input else     if goto2 = 2 then         Summary     else         if goto2 = 0 then         end if     end if end if loop     if goto3 = 0 then         cls         Input     else         if goto3 = 1 then             cls             Options         else             if goto3 = 2 then                 cls                 Summary             else                 if goto3 = 3 then                 end if             end if         end if     end if     if goto2 = 0 then         exit     end if end loop

Thanks and I hope I didn't confuse you guys with my code


PS. Feel free to reccomend any other changes I can do to make my code better!

[do_pete]

You should use record instead of having 4 arrays. Also setscreen ("graphics:vga") doesn't do anything because Turing always starts in graphics mode.

[ntba1]

Well I was praying that I wouldn't have to do something like rewrite everything after spending the whole day writing this. Is it possible to sort the arrays some way without having to do it with records?

[do_pete]

You don't need records, I'm just saying it would be better with them.[/i]

[ntba1]

OK that's a relief but how would I go about implementing this sort then? I have no clue where to start from. Perhaps you can write some Pseudocode showing me how to write this? Thanks again

[Cervantes]

If you refuse to switch to records (which would by far be easiest, easier than what I'm about to suggest), just modify the other arrays in parallel to the one you're sorting by.

code:

var swapArr (var arr : array 1 .. * of int, i, j : int)     const temp := arr (i)     arr (i) := arr (j)     arr (j) := temp end swapArr proc swap (i, j : int)     swapArr (homeroom, i, j)     swapArr (ticketsSold, i, j)     % ... end swap % Use some sorting method that uses 'swap'

[ntba1]

Thanks a bunch! I've learned my lesson time to go read up on records

[MysticVegeta]

Heh, well if you dont want to code the whole thing seeing that you have spent a lot of time doing coding, I will tell you how to do it without records, Cervantes' code is pretty useful too its more organized and easier to understand, but look whats going on in the code that I am posting. You see, "arr" array carries random numbers, "arr2" carries a string from "1" to "5", "arr3" carries numbers from 1 to 5, now I use the same old sorting algorithm, but I create 2 more temp variables, now whenever the "if" condition is met, not only do I change the values of the "arr" array, I also change the values of "arr2" and "arr3". Thats the key. The first 5 lines are the original #s and the other 5 lines after the line break show how the first column is sorted and the values of the second and third column are organized according to it.

code:

var temp, temp3 : int var temp2 : string var arr, arr3 : array 1 .. 5 of int var arr2 : array 1 .. 5 of string for x : 1 .. 5     arr (x) := Rand.Int (1, 10)     arr2 (x) := intstr (x)     arr3 (x) := x     put arr (x), " ", arr2 (x), " ", arr3 (x) end for put "" for i : 1 .. 5     for j : i .. 5         if (arr (i) > arr (j)) then             temp := arr (i)             temp2 := arr2 (i)             temp3 := arr3 (i)             arr (i) := arr (j)             arr2 (i) := arr2 (j)             arr3 (i) := arr3 (j)             arr (j) := temp             arr2 (j) := temp2             arr3 (j) := temp3         end if     end for end for for x : 1 .. 5     put arr (x), " ", arr2 (x), " ", arr3 (x) end for