Largest difference between adjacent primes: Difference between revisions
Content added Content deleted
(add C) |
(add gwbasic) |
||
Line 71: | Line 71: | ||
print using "The largest difference was ####, between ####### and #######";record;champ;champj</lang> |
print using "The largest difference was ####, between ####### and #######";record;champ;champj</lang> |
||
{{out}}<pre>The largest difference was 114 between 492113 and 492227</pre> |
{{out}}<pre>The largest difference was 114 between 492113 and 492227</pre> |
||
=={{header|GW-BASIC}}== |
|||
<lang gwbasic>10 R=2 : P=3 : P2=0 |
|||
20 GOSUB 190 |
|||
30 IF P2>1000000! THEN GOTO 70 |
|||
40 IF P2-P > R THEN GOSUB 270 |
|||
50 P=P2 |
|||
60 GOTO 20 |
|||
70 PRINT "The biggest difference was ";R;", between ";C1;" and ";C2 |
|||
80 END |
|||
90 REM tests if a number is prime |
|||
100 Q=0 |
|||
110 IF P = 2 THEN Q = 1:RETURN |
|||
120 IF P=3 THEN Q=1:RETURN |
|||
130 I=1 |
|||
140 I=I+1 |
|||
150 IF INT(P/I)*I = P THEN RETURN |
|||
160 IF I*I<=P THEN GOTO 140 |
|||
170 Q = 1 |
|||
180 RETURN |
|||
190 REM finds the next prime after P, result in P2 |
|||
200 IF P = 0 THEN P2 = 2: RETURN |
|||
210 IF P<3 THEN P2 = P + 1: RETURN |
|||
220 T = P |
|||
230 P = P + 1 |
|||
240 GOSUB 90 |
|||
250 IF Q = 1 THEN P2 = P: P = T: RETURN |
|||
260 GOTO 230 |
|||
270 C1=P |
|||
280 C2 = P2 |
|||
290 R = P2 - P |
|||
300 RETURN</lang> |
|||
=={{header|Phix}}== |
=={{header|Phix}}== |