GETKEY
290
In diesem Beispiel wird der Benutzer dazu aufgefordert,
einen Wert für den Radius eines Kreises einzugeben. Der
entsprechende Kreisbereich wird zum Drucken an das
Terminal gesendet.
EXPORT AREACALC()
BEGIN
LOCAL radius;
INPUT(radius, "Kreisradius","r =
","Radius eingeben",1);
PRINT("Der Bereich ist " +
END;
Beachten Sie die Verwendung der LOCAL-Variablen für
den Radius und die Namenskonvention, die für die lokale
Variable Buchstaben in Kleinschreibung verwendet. Die
Berücksichtigung einer solchen Konvention verbessert die
Lesbarkeit Ihrer Programme.
Syntax: GETKEY
Gibt die ID der ersten Taste im Tastaturpuffer zurück, oder
–1, wenn seit dem letzten Aufruf von GETKEY keine Taste
gedrückt wurde. Tasten-IDs sind Ganzzahlen von 0 bis
50, nummeriert von oben links (Taste 0) bis unten rechts
(Taste 50), wie auf der folgenden Seite gezeigt.
π
*radius^2);
Programmieren