Advertenties
Voorbeeld 1
Voorbeeld 1
Voorbeeld 1
Voorbeeld 1
Dit voorbeeld gebruikt
berekenen en
Text
: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
Ê
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.
voor { typt u 8 µ (nul). Voor
Opmerking:
@
8 p (maalteken)
H 2
H
Programmeren
voor invoer, een
InputStr
om het resultaat weer te geven.
While...EndWhile
drukt u op:
&
-lus om het resultaat te
701
Advertenties
