IF/THEN
Mit Hilfe des IF/THEN-(Wenn-Dann)-Befehls kann der Computer Vergleiche ausführen.
Der weitere Programmablauf hängt dann von dem Ausgang dieses Vergleichs ab. Das
Ergebnis des Vergleichs kann entweder 'wahr', oder 'falsch ' sein. Ist das Ergebnis
'wahr', so führt der Computer die Befehle hinter dem THEN-Befehl aus. Ist die Bedin-
gung nicht erfüllt, so überspringt der Computer die Anweisungen hinter dem THEN-Be-
fehl und setzt das Programm in der nächsten Zeile fort.
Es existieren folgende logische Vergleiche:
IF A=B THEN (Wenn A gleich B dann...)
Mit einem kurzen Programm kann der Computer zwei Zahlen vergleichen.
l0 PRINT " Geben Sie die Zahlen ein"
Hinter dem THEN-Befehl kann jeder andere BASlC-Befehl stehen. Durch ein GOTO
kann das Programm, abhängig vom Ergebnis des VergIeiches, an einer anderen Stelle
fortgesetzt werden. Genau wie in einer ' normalen ' Zeile können auch hinter dem THEN
mehrere Befehle stehen, die durch den Doppelpunkt getrennt werden müssen.
40 IF A=B THEN PRINT "A I ST GLEICH B " : G0T0 l0
Natürlich Iassen sich mit dem lF/THEN Befehl auch Zeichenfolgen vergleichen.
10 DIM C$ ( 5 )
READ/DATA/RESTORE
Der READ-Befehl ist eine dritte Moeglichkeit, neben LET und INPUT, einerVariablen einen
Wert zuzuweisen. Die Daten, die den Variablen zugewiesen werden, muessen dabei
schon in derForm von DATA-Zeilen im Programm vorhanden sein.
Eine DATA-Zeile sieht z. B. wie folgt aus:
70 DATA 23, 34, 545, 3, 323, 53, 9
Die Werte hinter dem DATA-Befehl muessen jeweils durch ein Komma getrennt werden.
Vor dem ersten und hinter dem letzten Wert einer DATA-Zeile darf dabei kein Komma
stehen. Fuer den Fall, dass mehr Werte vorhanden sind, als in einer DATA-Zeile Platz
finden, kann einfach eine neue DATA-Zeile angefangen werden.
IF A>B THEN (Wenn A größer B dann...)
IF A<B THEN (Wenn A kleiner B dann...)
IF A>=B THEN (Wenn A größer oder gleich B dann...)
IF A<=B THEN (Wenn A kleiner oder gleich B dann...)
IF A><B THEN (Wenn A ungleich B dann...)
20 PRINT "A=" ; : INPUT A
30 PRINT "B= ; : INPUT B
40 IF A=B THEN PRINT "A IST GLEICH B "
50 IF A>B THEN PRINT "A IST GR0SSER B ALS B"
60 IF A<B THEN PRINT "A IST KLEINER ALS B "
70 G0T0 10
20 PRINT " GEBEN S IE DAS CODEWORT EIN"
30 INPUT C$
40 IF C$ >< "ATARI " THEN PRINT " FALSCHES CODEWORT " : GOTO 20
50 PRINT " CODEWORT AKZEPTIERT "