Program post site for everyone
■説明
素数を一覧表示する、または入力した数が素数かを調べるプログラムです。
実行後、１：ソスウ一覧、２：素数を調べる から選択してください。
調べる場合は数字を入力します。
割れる数がある場合は数を表示します。
最大で32749までの数が有効です。
■探索方法
素数の探索には以下を利用しています。
「合成数xは P<=√x を満たす素因子Pをもつ」
合成数とは素数では無い数です。
ichigojamではSQRや指数関数を使えないので両辺を2乗して P^2<=x として計算しています。
また、2以外の偶数は素数ではないので探索しないようにしています。
10 CLS:?"1:ソスウイチラン 2:ソスウヲシラベル";:INPUT A 20 IFA=1GOTO@AELSEGOTO@B 30 @A:N=2:?"[1]:2":?"[2]:3" 40 FORI=5TO32749STEP2:P=0 50 P=P+1:IFI>=P*PCONTELSEP=P-1:J=2:C=1 60 J=J+1:IFJ<=PIFI%JCONTELSEC=0 70 IFCN=N+1:?"[";N;"]:";I 80 NEXT:END 90 @B:?"シラベルスウジヲニュウリョク(2-32749)";:INPUT A 100 P=0 110 P=P+1:IFA>=P*PCONTELSEP=P-1:J=1:C=1 120 J=J+1:IFJ<=PIFA%JCONTELSE?J;" ";:C=0:CONT 130 IFC?"ソスウデス"ELSE?"デワルコトガデキマス"
