Werbung
100 REMark Palindrome
110 DIM textS(30)
120 LET textS
130 LET zahl
140 REPeat
150
160
170
180 LET textS(zahL>
190 END REPeat
200 PRINT textS
210 DATA 'R','E','L','I','E','F','P','F','E','I',
Bei dem folgenden Programm können Zahlen in dem Bereich von 1 bis 3999 einge-
geben werden. Sie werden in die entsprechenden römischen Zahlen umgewandelt.
Damit wird nicht die eleganteste Form erzeugt. Statt IIII wird IV ausgegeben.
100 REMark Römische
110 INPUT zahl
120 RESTORE 210
130 FOR einlesen
140 READ buchstabe$,
(
150
160
170
180
190
200 END FOR ei n lesen
210 DATA 'M' ,1000,'D'
Arbeiten Sie die letzten Beispiele bitte sorgfältig durch. Führen Sie 'Trocken läufe'
aus, bis Sie sicher sind, daß Sie die Beispiele auch wirklich verstanden haben.
Mit SuperBASIC stehen Ihnen alle Möglichkeiten des strukturierten Programmie-
rens offen. Sie können also einzelne Teilaufgaben getrennt behandeln und sie dann
nahtlos zu einem Programm zusammenfügen.
SuperBASIC stellt Ihnen viele Hilfsmittel zur Verfügung, mit denen Sie sich die Arbeit
vereinfachen können. Alle Einzelheiten sind in den Abschnitten Befehle und Begriffe
erläutert. Für einen ersten Zugang ist es aber sicher leichter, wenn Sie sich erst ein-
mal einen groben Überblick verschaffen, indem Sie die folgenden Kapitel durchar-
beiten. Wenn Sie dabei an weiteren Einzelheiten interessiert sind, dann können Sie
(
diese bei den Befehlen oder Begriffen nachschlagen. Teile der folgenden Kapitel,
die Ihnen im Augenblick weniger wichtig erscheinen, können Sie beim ersten Durch-
arbeiten getrost überspringen.
(
3/85
FILL$ ('
',30)
=
30
=
holt__buchstaben
READ zeichenS
=
'*'
IF zei chen$
THEN EXIT hol t__buchstaben
LET zahl
zahl-1
=
zeichenS
=
holt__buchstaben
'L' ,'E'
,'R','*'
Zahlen
1 TO 7
=
wert
REPeat
ausgabe
<
IF zah l
wert
: EXIT ausgabe
PRINT buchstabe$;
LET zahl
zahl
- wert
=
END REPeat
ausgabe
,500,'C'
'X',10,'V',5,'I',1
,100,'L'
,50,
VON BASIC ZU SUPERBASIC
SCHLUSS-
BEMERKUNG
47
Werbung
Kapitel
