Operation Manual

Programmeren 701
Voorbeeld 1
Voorbeeld 1Voorbeeld 1
Voorbeeld 1
Dit voorbeeld gebruikt
InputStr voor invoer, een While...EndWhile-lus om het resultaat te
berekenen en
Text om het resultaat weer te geven.
Ê
Vraagt om invoer op het scherm Program I/O.
Ë Converteert de met InputStr ingevoerde tekenreeks naar een uitdrukking.
Ì Lusberekening.
Í Geeft de uitvoer in een dialoogvenster weer.
Opmerking:
voor { typt u 8µ (nul). Voor & drukt u op:
@8 p (maalteken)
H2
H
Ê
Ë
Ì
©Ì
©Ì
Ì
Í
:prog1()
:Prgm
:InputStr "Enter an integer",n
:expr(n)!n
:0!temp:1!I
:While i{n
: temp+i!temp
: i+1!I
:EndWhile
:Text "The answer is "&string(temp)
:EndPrgm