Basic 素数計算プログラム

JIS BASICが使えるソフトなどに貼り付けてご使用ください。私は十進BASICを使いました。
十万までの素数が出力されます。
仕 組みについては、まずFor構文で数字を１ずつ代入します。代入された値よりも前にある値をひとつずつ割ってあげて、余りを調べます。余りが0、つまり割 り切れるものがあればそれは素数ではないのではじきます。これを繰り返していってどれで割っても余りが出る数を素数として出力します。処理ははじめのうち は早いですが、割る数が増えるにつれてどんどん遅くなっていきます。

素数計算機.bas

LET A=2

PRINT A

FOR A=3 TO 100000

   FOR B=2 TO A-1

      IF MOD(A,B)=0 THEN

         GOTO 100

      END IF

   NEXT B

   PRINT A

100 

    NEXT A

     

END