Sharp EL-5230 Operation Manual page 110

Chapter 8: Application Examples
Program code
If S<100 Goto AGAIN
S=S˚10^(-3)
If N>6 Goto SIX
If N>3 Goto THREE
Q=ipart(Sx10^N)
Goto DISPLAY
Label SIX
Q=ipart(S˚10^(N-6))˚10^6
+random˚10^6+random˚10^3
Goto DISPLAY
Label THREE
Q=ipart(S˚10^(N-3))˚10^3
+random˚10^3
Label DISPLAY
Clrt
Print Q
108
Key operations
i 8 ; S i D 100
; s i 9 @ a
AGAIN ; e
; S ; = ; S k @
Y ( S 3 ) e
i 8 ; N i G 6 ;
s i 9 @ a SIX ;
e
i 8 ; N i G 3 ;
s i 9 @ a THREE
; e
; Q ; = I 1 (
; S k @ Y ; N )
e
i 9 @ a DISPLAY ;
e
i 6 @ a SIX ; e
; Q ; = I 1 (
; S k @ Y ( ; N
- 6 ) ) k @ Y 6
+ @ w 0 k @
Y 6 + @ w 0 k
@ Y 3 e
i 9 @ a DISPLAY ;
e
i 6 @ a THREE ; e
; Q ; = I 1 (
; S k @ Y ( ; N
- 3 ) ) k @ Y 3
+ @ w 0 k @
Y 3 e
i 6 @ a DISPLAY ;
e
i 7 e
i 0 ; Q e