Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium


Procedure problem

Posted on 1997-11-20
Medium Priority
Last Modified: 2010-05-18
How do i write a procedure which takes an array of ten integer account codes and sorts them into ascending order. The only info i have been givenis:-
TYPE  numbers=array[1..10] of integer
Var   accounts : numbers

i = a var used to index the array  
j = a var used to index the array
figures = an array used to hold integers to be sorted
temp = used as a temporary store when elements of the array
       are to be interchanged
lowest = this holds the index of the current of the current
         lowest element of the array,figures

Top down
  for ten times
    initialize variables
  for the unsorted accounts
     if this account<lowest in unsorted part
       set index of lowest to index of this account
     end if
    end for
set temp var to lowest account number
set lowest to value of first in unsorted part
set first in unsorted part to value of temp var
end for

I know that you will probably find this incredably easy but it is the first procedure i have come up against as i have only been doing this for a month.
any help you can give me will be much appreciated.
Question by:Scarhand
1 Comment

Accepted Solution

mitchell042997 earned 400 total points
ID: 1216917
OK, if you have the globally defined type numbers as the array you are passing, then you will setup your procedure like so:

procedure SortAccounts(var someArray:numbers);

you will call this procedure as follows:


Of course, if accounts is global you don't need to do all this hoopla, (although globally defined variables are trouble waiting to happen).  Now, for the sort, if you know that the accounts is an array of ten, just use a bubble sort.  It's not the fastest, but it will run good enough for an array of size 10.

so, here is what your code will look like (I have not tested this, so some syntactical errors may exist:

  procedure SortAccounts(var AccountArray:numbers);
  var done:boolean;
     for loop:=1 to 9 do   {9 => 10 - 1}
        if AccountArray[loop]<AccountArray[loop+1] then begin
          { This swaps the values in the array }

    until done;

If this produces the variables in the wrong order (for example, ascending instead of descending), just change the less than sign in the if statement to a greater than sign.  Basically, this sort algorithm does the following:

start at the beginning of an indexed list (an array)
go from 1 to n-1 (9 in our case, since size of array = 10)
so... i = 1 .. n-1
if Array[i]<Array[i+1] Swap Array[i] with Array[i+1]
if you do swap, set the done flag to false, because we know we're not done until we traverse through the entire list without making any changes.
Exit the sort procedure once we go through the entire array without making any changes.

Now the array will be returned sorted.  So, if you were to do:

procedure SomeProc;
var A:numbers;
  A[1]=5; A[2]=3; A[3]=7;
  A[1]=1; A[2]=9; A[3]=13;
  A[1]=8; A[2]=33; A[3]=4;

  for loop:=1 to 10 do
    write(A[loop],'  ');


  writeln; writeln;

  for loop:=1 to 10 do
    write(A[loop],'  ');

your output would be:

5  3  7  1  9  13  8  33  4  11

1  3  4  5  7  8  9  11  13  33

Neat, eh?  If you have anymore questions, or if this doesn't help solve your problem, let me know, and I will explain further!  Thanks!!  :)

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Dropbox has a relatively new feature called Smart Sync.  This feature allows Dropbox Professional (not plus) and Dropbox Business (if enabled) users to store information in Dropbox WITHOUT storing any files on their computer.
What happened when I tried to make my phone, a Samsung Galaxy S8, stop dropping all WiFi signals was a saga I won't repeat here, but what you might want to know is how it started and how I got it working again.
Is your OST file inaccessible, Need to transfer OST file from one computer to another? Want to convert OST file to PST? If the answer to any of the above question is yes, then look no further. With the help of Stellar OST to PST Converter, you can e…
Enter Foreign and Special Characters Enter characters you can't find on a keyboard using its ASCII code ... and learn how to make a handy reference for yourself using Excel ~ Use these codes in any Windows application! ... whether it is a Micr…
Suggested Courses

571 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question