Υπολογισμός Διάμεσου

Δείτε τον ορισμό http://androulakis.bma.upatras.gr/mediawiki/index.php/Μέτρα_θέσης

\\ Υπολογισμός Διάμεσου παρατηρήσεων
\\ Όλες οι σειρές αριθμών πρέπει να είναι σε αύξουσα σειρά
Συνάρτηση Διάμεσος {
      κ=μέγεθος.σωρού
      Αν κ=0 τότε λάθος "Δώσε κάποια παρατήρηση"
      Αν κ υπολοιπο 2=0 τότε {
      \\ θα πάρουμε τις μεσαίες τιμές.
            φέρε κ δια 2
            φέρε κ δια 2 +1
            Διάβασε Α, Β
            =(Α+Β)/2
      } Αλλιώς {
      \\ θα πάρουμε τη μεσαία τιμή
            φέρε κ δια 2 +1
            =Αριθμός
      }
}
Συνάρτηση ΔιάμεσοςΠίνακα {
      Διάβασε &Π()
      Αν Διάσταση(Π())<>1 Τότε Λάθος "Θέλω μονοδιάστατο πίνακα"
      κ=Διάσταση(Π(),1)
      Αν κ υπολοιπο 2=0 τότε {
      \\ θα πάρουμε τις μεσαίες τιμές.
            κ=κ δια 2
            =(Π(κ-1)+Π(κ))/2
      } Αλλιώς {
      \\ θα πάρουμε τη μεσαία τιμή (ξεκινούν από 0 οι δείκτες στο πίνακα)
            = Π(κ δια 2 )
      }
}


Τύπωσε Διάμεσος(-1,1,2,3,4,7)
Τύπωσε Διάμεσος(1,2,3)
Πίνακας Α(2), Β(5), Γ(4)
Α(0)=1,4
Β(0)=4,7,12,56,100
Γ(0)=0,1,4,56
Τύπωσε ΔιάμεσοςΠίνακα(&Α()), Διάμεσος(1,4)
Τύπωσε ΔιάμεσοςΠίνακα(&Β()), Διάμεσος(4,7,12,56,100)
Τύπωσε ΔιάμεσοςΠίνακα(&Γ()), Διάμεσος(0,1,4,56)

Συνάρτηση ΔιάμεσοςΚατάστασης {
      Διάβασε &Π
      κ=Μήκος(Π)
      Αν κ=0 Τότε Λάθος "Θέλω στοιχεία στη Κατάσταση"
      Αν κ υπολοιπο 2=0 τότε {
      \\ θα πάρουμε τις μεσαίες τιμές.
      \\ ο δείκτης ! λέει ότι το νούμερο που δίνουμε είναι η σειρά - από το 0
      \\ ενώ χωρίς αυτό θα ψάχνει το κλειδί και θα βγει λάθος!
            κ=κ δια 2
            =(Π(κ-1!)+Π(κ!))/2
      } Αλλιώς {
      \\ θα πάρουμε τη μεσαία τιμή (ξεκινούν από 0 οι δείκτες στο πίνακα)
            = Π(κ δια 2 !)
      }
}

Κατάσταση αλφα=4,7,12,56,100
Τύπωσε ΔιάμεσοςΚατάστασης(&αλφα)
Καθαρό αλφα
\\ εδώ θα κάνουμε ταξινόμηση
\\ τα κλειδιά διαβάζονται και ως αριθμοί
\\ αλλά ταξινομούνται ως αλφαριθμητικά.
Κατάσταση αλφα="004","100","012","056","007"
Ταξινόμηση αλφα \\ γίνεται πάντα στα κλειδιά ως αλφαριθμητικά
Τύπωσε ΔιάμεσοςΚατάστασης(&αλφα)