Operation Manual

Programmieren 716

Beispiel 3

Beispiel 3Beispiel 3

Beispiel 3

In diesem Beispiel wird

Dialog...EndDlog zur Erzeugung von Dialogfeldern für die Ein-

und Ausgabe benutzt. Das Ergebnis wird in einer

Loop...EndLoop Schleife berechnet.

Definiert ein Dialogfeld für die Eingabe.

Ë Wandelt die mit Request eingegebene Zeichenkette in einen Term um.

Ì Rechenschleife.

Í Definiert ein Dialogfeld für die Ausgabe.

:prog3()

:Prgm

:Dialog

: Title "Enter an integer"

: Request "Integer",n

:EndDlog

:expr(n)!n

:0!temp:0!I

:Loop

: temp+i!temp

: i+1!I

: If i>n

: Exit

:EndLoop

:Dialog

: Title "The answer is"

: Text string(temp)

:EndDlog

:EndPrgm