お願いです！

 投稿者：angel  投稿日：2010年 1月 8日(金)10時21分15秒
  十進basicを使ってｎ以下の素数の数を数えるプログラムを作りたいのですが、どのように作成したらよろしいでしょうか？
全くの初心者なので分かりません。
よろしくお願いします。 		 

Re: お願いです！

 投稿者：白石　和夫ﾒｰﾙ  投稿日：2010年 1月 8日(金)10時53分17秒
  > No.966[元記事へ]

エラトステネスの篩のプログラムを少し修正すれば可能です。
エラトステネスの篩は，サンプルプログラム
MATH\ERATOS.BAS
として収録しています。
具体的にいえば，配列s中の1の個数を添字がn以下の範囲で数えるだけです。
ただし，配列sの大きさは入力を予定するnより大きくとっておく必要があります。 		 

Re: お願いです！

 投稿者：山中和義  投稿日：2010年 1月 8日(金)19時51分35秒
  > No.966[元記事へ]

angelさんへのお返事です。
100 LET N=100
110 LET c=0
120 FOR i=2 TO N
130    FOR k=2 TO i-1 !約数を確認する
140       IF MOD(i,k)=0 THEN GOTO 170 !ひとつでも割り切れるなら、素数でない
150    NEXT k
160    LET c=c+1 !素数
170 NEXT i
180 PRINT c !結果を表示する
190 END
 

戻る