Gapful numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 215: / Line 215: @@
 .0E+9  1.000000001E+9  1.000000005E+9  1.000000008E+9  1.00000001E+9  1.000000016E+9  1.00000002E+9  1.000000027E+9  1.00000003E+9  1.000000032E+9"</lang>
+=={{header|Applesoft BASIC}}==
+{{trans|C}}
+Numbers are printed digit by digit so that we can see what they actually are because large numbers would normally be printed in scientific notation.
+<lang gwbasic> 100 START = 100
+COUNT = 30
+GOSUB 230"GENERATE GAPS"
+PRINT
+START = 1000000
+COUNT = 15
+GOSUB 230"GENERATE GAPS"
+PRINT
+START = 1000000000
+COUNT = 15
+GOSUB 230"GENERATE GAPS"
+PRINT
+END
+GOSUB 340"PRINT START"
+PRINT " :"M$
+LET C = 0
+FOR START = START TO 1E38
+LET I$ =  STR$ (START)
+LET N =  VAL ( LEFT$ (I$,1) +  STR$ (START -  INT (START / B) * B))
+LET GAPFUL = START -  INT (START / N) * N = 0
+IF GAPFUL THEN  GOSUB 370"PRINT GAPFUL"
+IF C = COUNT THEN  RETURN
+NEXT START
+STOP
+LET M$ =  CHR$ (13)
+PRINT M$"FIRST "COUNT" ";
+PRINT "GAPFUL NUMBERS >=";
+LET C = C + 1
+LET B = 10
+LET P$ = ""
+FOR P = START TO 0 STEP 0
+LET Q =  INT (P / B)
+LET P$ =  STR$ (P - Q * B) + P$
+LET P = Q
+NEXT P
+PRINT MID$(M$ + " " + P$, 2 - (POS(0) + LEN(P$) + 1 > PEEK(33))) ;
+RETURN</lang>
 =={{header|Arturo}}==