Werbung
VERSCHIEDENE
TECHNIKEN
Programm
Ausgabe
Ausgabe
102
HAUPT
[eihe
PROGRAMM
I
I
PROZEDUR
plussechs
komm
100 REMark Ubergabe
110 DIM reihe(3),ur(3)
120 FOR k = 1 TO 3 : LET r-e
130 plussechs
reihe,
140 FOR k = 1 TO 3 : PRINT
150 DEFine
PROCedure pLussechs(komm,
160
FOR k = 1 TO 3 : LET s end
170 END DEFine
789
Die folgende Prozedur empfängt eine Tabelle mit zu sortierenden
Null-Element enthält die Anzahl
ob es sich um eine numerische Tabelle oder eine String-Tabelle handelt. Mit der
Datentypumwandlung
werden String-Daten gegebenenfalls
umgewandelt.
Ein zweiter wichtiger Punkt besteht darin, daß das Tabellenelement, komm(O), für
zwei Zwecke benutzt wird:
- es enthält die Anzahl von zu sortierenden Posten
- in ihm wird der gerade gesetzte Posten gespeichert.
100 DEFine PROCedure sort(komm,
110
LET zahL = komm
120
FOR posten
= 2 TO zahL
130
LET P = posten
CO)
140
LET komm
150
REPeat vergLeich
CO)
160
IF komm
170
LET komm(p) = komm(p-1)
180
LETp=p-1
190
END REPeat vergLeich
200
LET komm(p) = komm
210
END FOR posten
220
FOR k = 1 TO 7 : s end
230 END DEFi ne
Mit den folgenden zusätzlichen Zeilen wird das Sortierverfahren getestet. Geben Sie
als erstes AUTO 10 ein, um die Zeilennummern ab 10 aufwärts zu starten.
10 REMark Sorti
ertest
20 DIM rei he$ (7,4)
30 LET rei he$ (0) = 7
40 FOR k = 1 TO 7 : READ reihe$(k)
50 sort
reihe$,
ur$
!
!
60 PRINT
ur$
70 DATA "ESEL",
"STAR",
EBER ESEL HUHN HUND IGEL MAUS STAR
_
+6
sen:-l
von TabeLLen
i
Ck)
he
= k
ur
!
!
ur
Ck)
send)
Ck)
= komm
von
Posten. Beachten Sie, daß es keine Rolle spielt,
send)
CO)
= komm(p)
>= komm(p-1)
THEN EXIT vergLeich
CO)
Ck)
= komm(k)
, ur$ (7,4)
"HUND",
"HUHN",
"MAUS",
"IGEL"
ur
Bildschirm-
ausgabe
I
...
+
Ck)
6
Daten. Das
in numerische Daten
"EBER",
3/85
Werbung
Kapitel
