SMALLTALK K1ex127-.45ex51275ahler/Bothner

126 6 Einsatz von Basis-Methoden
Sammler "Bag"
"WerteErfassung11"
31
37
35
31
37
37
39
size
7
asSortedCollection
Fall: "ungerade"
Fall: "gerade"
31 31 35 37 37 37 39 Sammler "SortedCollection"
Index: (7 + 1) / 2
31 31 35 37 37 37 37 39 Sammler "SortedCollection"
Index: 8/2 Index: (8/2) + 1
Abbildung 6.8: Grundidee zur Berechnung eines Medians
Auf der Basis dieser Skizze läßt sich der Lösungsplan durch das folgende Struktogramm
angeben:
Richte einen Sammler als Wert der temporären Variablen "varSortColl" ein und
übertrage in ihn alle Werte von "werteBag" der Instanz "WerteErfassung11",
so daß sortierte ganzzahlige Werte abgelegt sind
Anzahl der Werte von "varSortColl" ungeradzahlig?
true
false
Ordne den Wert der temporären Variablen
"medianwert" zu, der innerhalb von
"varSortColl" an der Stelle enthalten ist,
die sich durch Halbierung der um 1
erhöhten Wertezahl von "varSortColl"
ergibt
Ordne der temporären Variablen
"position" die halbierte Wertezahl
von "varSortColl" zu
Ordne der temporären Variablen
"medianwert" den Mittelwert der
durch "position" und "position + 1"
innerhalb von "varSortColl"
bestimmten Werte zu
Abbildung 6.9: Struktogramm zur Berechnung eines Medians
Indem wir auf die zuvor vorgestellten Basis-Methoden “asSortedCollection”, “odd”,
“ifTrue:ifFalse:” und “at:” zurückgreifen, können wir das Struktogramm wie folgt
umformen:
|varSortColl position medianwert|
varSortColl := (WerteErfassung11 bereitstellenWerte
collect: [:einObjekt|einObjekt asInteger])
asSortedCollection.
varSortColl size odd
ifTrue: [medianwert:=varSortColl at:(varSortColl size)+1/2]