18 lines
439 B
Text
18 lines
439 B
Text
10 REM Primality by trial division
|
|
20 PRINT "Enter a number "
|
|
30 INPUT P
|
|
40 GOSUB 1000
|
|
50 IF Z = 1 THEN PRINT "It is prime."
|
|
60 IF Z = 0 THEN PRINT "It is not prime."
|
|
70 END
|
|
|
|
990 REM Primality of the number P by trial division
|
|
1000 IF P < 2 THEN RETURN
|
|
1010 LET Z = 1
|
|
1020 IF P < 4 THEN RETURN
|
|
1030 LET I = 2
|
|
1040 IF (P / I) * I = P THEN LET Z = 0
|
|
1050 IF Z = 0 THEN RETURN
|
|
1060 LET I = I + 1
|
|
1070 IF I * I <= P THEN GOTO 1040
|
|
1080 RETURN
|