HP HP48G hp 49g_user's manual_English_E_F1633-90001.pdf - Page 198
Introduction to programming
UPC - 088698587195
View all HP HP48G manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 198 highlights
Example « @ Set numeric mode so that error trap works SF(-3) ; @ Create an empty list {} MARKS ; @ Set up a loop for 20 entries. WHILE SIZE(MARKS)
Page 10-16
Introduction to programming
Introduction to programming
Example
7KH±IROORZLQJ±H[DPSOH±FUHDWHV±WKH±OLVW±RI±PDUNV±XVHG±LQ±WKH±SUHYLRXV±
H[DPSOH²±,I±D±QRQµQXPHULF±YDOXH±LV±HQWHUHG·±WKH±SURJUDP±SURPSWV±ZLWK±DQ±
HUURU±PHVVDJH²±7KH±SURJUDP±SHUIRUPV±WKH±IROORZLQJÁ
Â
,W±VHWV±XS±D±ORRS±WR±FROOHFW±¶´±YDOXHV²
Â
,W±SURPSWV±IRU±DQ±LQSXW±YDOXH²
Â
,W±WHVWV±WKH±LQSXW±WR±FKHFN±LI±LW±LV±D±QXPEHU²±
Â
,I±WKH±JHQHUDWHV±DQ±HUURU·±WKH±HUURU±LV±WUDSSHG·±DQG±DQ±HUURU±PHVVDJH±LV±
GLVSOD\HG±WR±SURPSW±IRU±D±QXPHULF±YDOXH²
«
@ Set numeric mode so that error trap works
SF(-3) ;
@ Create an empty list
{}
MARKS ;
@ Set up a loop for 20 entries.
WHILE SIZE(MARKS)<20 REPEAT
@ Start error-checking routine.
IFERR INPUT("Enter a number","")
→
±
N
@ Attempt to convert the entry to a number.
@ This generates an error if non-numeric
« OBJ
→
(N)+1-1
±
→
±
N
@ If no error, append the entry to the list.
« MARKS+N
±
±
MARKS
»
»
THEN
@This appears if entry is non-numeric.
MSGBOX("INVALID ENTRY, TRY AGAIN")
END ;
END
»