Werbung
Die folgenden fünf Programme tun alle dasselbe: sie führen dazu, daß die vier Häu-
(
ser 'belegt' werden. Mit PRINT wird dann gezeigt, daß die 'Belegung' tatsächlich
durchgeführt wurde. Bei der letzten Methode werden nur vier Zeilen benutzt. Die vier
anderen Methoden führen jedoch so zu dieser letzten Methode, daß von schon
bekannten Ideen zu neuen Ideen und neuen Anwendungen der alten Ideen ausge-
gangen wird. Dies führt letztendlich auch zu größerer Wirtschaftlichkeit.
Haben Sie die beiden ersten oder drei ersten Methoden verstanden, so können Sie
direkt zu den Methoden 4 und 5 gehen.
Sollten Sie jedoch noch Zeit haben, so können diese mit den Methoden 1, 2 und 3
beseitigt werden.
100 DIM hoch_str$(4,3>
110 LET hoch.Ls
120 LET hoch_str$(2)
130 LET hoch_str$(3)
140 LET hoch_str$(4)
150 PRINT ! hoch.Ls
160 PRINT ! ho ch.Ls
100 DIM hoch_str$(4,3>
110 READ hoch.Ls
(
120 PRINT ! hoch.Ls
130 PRINT ! ho ch.Ls
140 DATA "UDO",
Mit diesem Programm wird dargelegt, wie Variablennamen sparsam eingesetzt wer-
den. Die ständige Wiederholung von hoch_str$
sondern gestaltet die Programme auch unübersichtlich. Wir können hier wieder eine
bekannte Technik - die REPeat-Schleife benutzen, um die Dinge noch weiter zu ver-
bessern. Hier wird ein Zähler, Zahl benutzt, der bei jedem Durchlauf der REPeat-
Schleife um 1 erhöht wird.
100 RESTORE 190
110 DIM hoch_str$(4,3)
120 LET nummer
130 REPeat
140
150
160
170 END REPeat
180 PRINT hoch_str$(1)!
140 DATA "UDO",
(
Eine spezielle Schleife, bei der eine bestimmte Operation eine bestimmte Anzahl
von Malen ausgeführt werden muß, heißt FOR-Schleife. In einer derartigen Schleife
wird automatisch von 1 bis 4 gezählt. Sie wird also beendet, sobald alle vier Ele-
mente der Tabelle verarbeitet wurden.
100 RESTORE 160
110 DIM hoch_str$(4,3)
120 FOR nummer
130
140
150 END FOR nummer
160 DATA "UDO",
Die Ausgabe aus allen vier Programmen ist dieselbe:
UDO FRI HEl KAR
3/85
r s Cl )
"UDO"
t
=
FRI"
= "
=
"HEl"
"KAR"
=
r s Cl ) ! hoch_str$(2)
t
r s G)
! hoch_str$(4)
t
r$ (1),
ho ch.Ls
t
s
hoch.Ls
r
(4)
t
r s Cl ) ! hoch__str$(2)
t
r s G)
! hoch_str$(4)
t
"FRI",
"HEl",
0
=
häuser
+
LET numme r
numme r
=
READ ho ch.Ls
r$ (nummer>
t
IF nummer
4 THEN EXIT häuser
=
häuser
hoch_str$(2)!
hoch_str$(4)
"FRI",
"HEl",
1 TO 4
=
READ hcch.Ls
r s Cnumme
t
PRINT!
hoch_str$(nummer>
"FRI",
"HEl",
r$ (2),
hoctu.,s t r$ (3),
t
!
"KAR"
ist jedoch nicht nur zeitaufwendig,
1
hoch_str$(3)!
"KAR"
r-)
"KAR"
TABELLEN UND FOR-SCHLEIFEN
Programm 1
Programm 2
Programm 3
Programm 4
29
Werbung
Kapitel
