Operation Manual

Programmeren 703

Voorbeeld 3

Voorbeeld 3Voorbeeld 3

Voorbeeld 3

Dit voorbeeld gebruikt

Dialog...EndDlog om dialoogvensters te maken voor invoer en

uitvoer. Het gebruikt

Loop...EndLoop om het resultaat te berekenen.

Definieert een dialoogvenster voor invoer.

Ë Converteert de tekenreeks die met Request is ingevoerd naar een uitdrukking.

Ì Lusberekening.

Í Definieert een dialoogvenster voor uitvoer.

: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