Sharp EL-5250, EL-5230 operation manual Program code, Key operations

Chapter 8: Application Examples

Program code	Key operations
If S<100 Goto AGAIN	i 8 ; S i D 100
	; s i 9 @ a
	AGAIN ;e
S=S˚10^(-3)	; S ; = ; S k @
	Y ( S 3 ) e
If N>6 Goto SIX	i 8 ; N i G 6 ;
	s i 9 @ a SIX ;
	e
If N>3 Goto THREE	i 8 ; N i G 3 ;
	s i 9 @ a THREE
	;e
Q=ipart(Sx10^N)	; Q ; = I 1 (
	; S k @ Y ; N )
	e
Goto DISPLAY	i 9 @ a DISPLAY ;
	e
Label SIX	i 6 @ a SIX ;e

;Q ; = I 1 (

Q=ipart(S˚10^(N-6))˚10^6 ; S k @ Y ( ; N

+random˚10^6+random˚10^3 - 6 ) ) k @ Y 6

+@ w 0 k @ Y 6 + @ w 0 k @ Y 3 e

Goto DISPLAY	i 9 @ a DISPLAY ;
	e
Label THREE	i 6 @ a THREE ;e

;Q ; = I 1 (

Q=ipart(S˚10^(N-3))˚10^3 ; S k @ Y ( ; N

+random˚10^3	- 3 ) ) k @ Y 3
	+ @ w 0 k @
	Y 3 e
Label DISPLAY	i 6 @ a DISPLAY ;
	e
Clrt	i 7 e
Print Q	i 0 ; Q e

108