Print Pc;" % Von ";Zahl" = ";Ergebnis - NCR GW-BASIC Betriebsanleitung

EINFÜHRUNG
GW-BASIC an, das nächste Element unmittelbar im Anschluß an das
zuletzt ausgegebene Element am Bildschirm sichtbar zu machen. Der
zusätzliche PRINT-Befehl jeweils am Ende der Zeilen 50 bis 100 läßt
eine Leerzeile zwischen jeder Zeile am Bildschirm entstehen.
Im nächsten Beipiel wird eine einfache Prozentrechnung an einer Zah­
lenfolge demonstriert, die dem Computer eingegeben wurde. Das Pro­
gramm bedient sich dabei der Arithmetik mit einfacher Genauigkeit:
10 PC=5
20 PCX=PC/100
30 CLS
40 INPUT ZAHL
50 IF NUMBER=0 THEN GOTO 100
60 ERGEBNIS=ZAHL#PCX

70 PRINT PC;" % von ";ZAHL" = ";ERGEBNIS

80 PRINT
90 GOTO 40
100 END
Lassen Sie jetzt dieses Programm ablaufen. Zeile 10 weist PC den Zah­
lenwert 5 zu. Zeile 20 dividiert diesen Zahlenwert durch 100. Die sich
daraus ergebende Zahl kann direkt multipliziert werden, um eine Pro­
zentzahl zu erhalten. Die neue Zahl wird in der Variablen PCX abgelegt.
Zeile 30 löscht den Bildschirm. Daraufhin fordert Sie GW-BASIC durch
Anzeige eines Fragezeichens auf, einen numerischen Wert (der eine Dezi­
malstelle enthalten oder als Exponent angegeben sein kann) einzugeben.
Der von Ihnen eingegebene Wert wird in ZAHL gespeichert. Zeile 50
prüft, ob ZAHL 0 ist. Ist dies der Fall ist, springt (GOTO) auf Zeile 100,
zum Ende (END) des Programms. Ist ZAHL nicht 0, werden 5% von
ZAHL berechnet (Zeile 60) und das Ergebnis wird in ERGEBNIS gespei­
chert. Der Rechenvorgang wird zusammen mit dem Ergebnis am Bild­
schirm ausgegeben (Zeile 70; Zeile 80 gibt eine Leerzeile aus). Übersteigt
das Ergebnis die Anzahl der Ziffern, die am Bildschirm als Zahl von ein­
facher Genauigkeit angezeigt werden können, bedient sich GW-BASIC
automatisch der exponentiellen Darstellung). GW-BASIC springt dann
zurück in Zeile 40, was bewirkt, daß GW-BASIC erneut auf die Eingabe
einer weiteren Zahl über die Tastatur wartet. Die Befehlsschleife zwi­
schen Zeile 40 und 90 wird solange wiederholt, bis ZAHL den Wert 0 auf­
weist. Um die Prozentzahl, die Basis für den Rechenvorgang, ändern zu
können, ändern Sie einfach dementsprechend Zeile 10. Wenn Sie eine
unzulässige Eingabe versuchen, z.B. einen Buchstaben in eine Zahl ein­
beziehen, fordert Sie GW-BASIC auf, die betreffende Eingabe nochmals
vorzunehmen („?Redo from start").
1-22
GW-BASIC