Made a new program for the HP 11C

[vma]

Here is v2 with the following improvements:

- searches up to SQRT(number)+1
- increments +2 (only odd numbers)

Code:


LBL A ' Start of the program - call in RUN mode with [f][A]
STO 1 ' Store value in X to register 1 - This is the number we want to test if prime
SQRT  ' Calculate the square root of X
1     ' 
+     ' Add 1
STO 2 ' Store value in X to register 1 - This is the maximum divisor we will use
3     ' 3 is the start devisor to be used
STO 3 ' It will be stored in register 3
RCL 1 ' Recall the number to test if prime
2     '
/     ' Devide by 2
FRAC  ' Get only the fraction
0     '
X=Y   ' Test if it is 0
GTO 2 ' If so, the number is NOT a prime
LBL 1 ' Start of the cycle, that will devide the number to test if prime from 3 to SQRT(number)
RCL 1 ' Get number to test if prime
RCL 3 ' Get current devisor
/     ' Devide
FRAC  ' Get only the fraction
0     '
X=Y   ' Test if it is 0
GTO 2 ' If so, the number is NOT a prime
RCL 3 ' Get current devisor
2     '
+     ' Add 2 (next odd number)
STO 3 ' Store in register 3
RCL 2 ' Call maximum devisor from register 2
X>Y   ' If it is still greater than current devisor
GTO 1 ' Go to Label 1 and make next devision test
1     ' If not, we did all divisions and never got an integer as a result, thus the number is a prime
R/S   ' Stop program
RTN   ' Return: I'm not sure if this step is needed
LBL 2 ' Label 2: this is where we tell the user, that the number is NOT a prime
0     ' Put a 0 on X
R/S   ' Stop program
RTN   ' Return: I'm not sure if this step is needed

I still have to read and figure out, how to use the Index register.

Regards,
Vitor