Median

[Tallguy]

wat up ppl? this is a very simple program
-the user enters 4 numbers
-sorts number from least to greatest
-puts the median
enjoy, anyone may use

*how would i modify this to make it alphablize words?, plz comment *

[SIXAXIS]

Not sure about making it do letters, but I have a suggestion. You can make it do unlimited numbers by taking away the variables like n1, n2, n3, etc. and making it an array. Do this and the user can input the amount of numbers they want or you can even have it set to unlimited. You would use a for loop to have it reorder the numbers. I would do it for you, but I'm kind of busy right now.

[Mackie]

This program works but it should defiantly not be +600 lines. There is a lot of optimization. First off to sort the numbers you could do a very simple bubble sort (wikipedia).

[Tallguy]

this was my first time doing sorting, so i'm still kinda new at it . . .

[michaelp]

What do you mean +600 lines? It's 261 lines. And that's with comments.
Still nice though, for a first time.

[Tallguy]

ty

[Zampano]

To do this with letters, look at the ord() function. It will give 65 unto 91 for smallercase letters and . . . something else for capitals. The integer returned is the letter's spot in ASCII and the number formed from the binary of the byte used to represent the letter.

[Tallguy]

how would i use an array to get the median for any amount of numbers the user enters?

[Carey]

That question has already been answered. Just make the array flexible (look in the help file), sort it, then if the number of items is odd print the middle. if even print the average of the 2 middle ones

[Tallguy]

this is wat i have now, wat do i do next?
%Alex van der Mout
%4/9/08
%OBJECTIVE - Write a program which
%calculates the median value in a
%list of numbers. Have the user enter
%the number of items in the list and
%all of the values they want the median of.

var number : int
var sort:real

put "How many numbers are there? " ..
get number

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

put "The numbers in order are . . . " %%%%%%%%%sorts numbers
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%%%%%%%%%%%%%%%%%%%%%%%%end sorts
put ""

[Nick]

if I remember math than median is the middle, so if you have an array 1.. number, how would you find the middle?

hint: put sortlist(simple math)

[Tallguy]

i got it to work . . .

%Alex van der Mout
%4/9/08
%OBJECTIVE - Write a program which
%calculates the median value in a
%list of numbers. Have the user enter
%the number of items in the list and
%all of the values they want the median of.

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

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

put "The numbers in order are . . . " %%%%%%%%%sorts numbers
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 %%%%%%%%%%%%%%%%%%%%%%%%end sorts
put ""

if number mod 2 = 0 then
put "Here is your Median"
position := round (number / 2)
put (sortlist (position) + sortlist (position + 1)) / 2
else
position := ceil (number / 2)
put "Here is your Median"
put sortlist (position)
end if