Advertenties
Voorbeeld 3
Voorbeeld 3
Voorbeeld 3
Voorbeeld 3
Dit voorbeeld gebruikt
uitvoer. Het gebruikt
: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
Ê
Definieert een dialoogvenster voor invoer.
Ë
Converteert de tekenreeks die met Request is ingevoerd naar een uitdrukking.
Ì
Lusberekening.
Í
Definieert een dialoogvenster voor uitvoer.
Programmeren
Dialog...EndDlog
om het resultaat te berekenen.
Loop...EndLoop
om dialoogvensters te maken voor invoer en
703
Advertenties
