NCR GW-BASIC Betriebsanleitung Seite 185

Hinweis:
GW-BASIC
30 INPUT „Wieviele Pflaumen";
OBST
40 IF ZUCKER>4 THEN IF M1LCH=6 THEN
100 ELSE IF OBST>10 THEN 120
50 PRINT "Die Mischung ist nicht süß genug.
Oder es wurde nicht genügend Milch bzw.
Pflaumen benutzt. Vielleicht ist auch alles
falsch!"
60 END
100 PRINT "Diese Kuchenmischung hat wenig­
stens genügend Zucker und die Müchmenge
stimmt auch. Also mache ich mir keine
Gedanken mehr um die Pflaumen"
110 END
120 PRINT "Es ist genügend Zucker vorhanden.
Die Müchmenge stimmt nicht, aber es sind
genügend Pflaumen vorhanden"
Ist nicht genügend Zucker vorhanden, so kann die
Beurteüung von Zeüe 120 nicht benutzt werden,
selbst wenn genügend Pflaumen vorhanden sind.
Folgt auf einen IF...THEN...-Befehl eine Zeilen­
nummer im Direkt-Modus, so wird eine Fehlermel­
dung "Undefined line" (Undefinierte Zeüe) ange­
zeigt, es sei denn, vorher wurde im indirekten
Modus ein Befehl mit der angegebenen Zeüennum-
mer eingegeben.
Wird IF dazu benutzt, die Gleichheit eines Wertes
zu überprüfen, der das Ergebnis einer Gleitpunkt-
Berechnung ist, so muß daran gedacht werden, daß
die interne Darstellung des Wertes unter Umstän­
den nicht richtig ist. Deshalb sollte der Test in dem
Bereich ausgefuhrt werden, in dem die Genauigkeit
des Wertes schwanken kann. Um beispielsweise
die berechnete Variable A mit dem Wert 1.0 zu ver­
gleichen, wird folgender Befehl benutzt:
IF ABS(A-1.0)<1.0E-6 THEN...
Dieser Test ist wahr, wenn der Wert von A gleich
1.0 mit einem relativen Fehler von weniger als
1.0E-6 ist.
Der Wert 0 wird als "falsch" und ein von 0 abwei­
chender Wert als "wahr" betrachtet. Deshalb könn-
GW-BASIC-BEFEHLE UND FUNKTIONEN
IF
4-111