素数プログラムと質問

　　素数プログラムと質問 tan 2004/03/22 16:38:30 
　　└エラトステネスのふるいという有名な方法が... 青木太一 2004/03/22 17:28:52

　　素数プログラムと質問 tan 2004/03/22 16:38:30  ツリーへ

素数プログラムと質問 返事を書く

tan 2004/03/22 16:38:30

素数を見つけるプログラムですが、僕は
100 !'素数　by tanaka yoshiyuki
110 for n=3 to 100
120 if int(n/2)*2=n then goto 170
130 for m=3 to sqr(n) step 2
140 if int(n/m)*m=n then goto 170
150 next m
160 print n
170 next n
180 end
とgoto sqrを使う方法しか知りません。gotoはプログラムを読むときに非常に不便ですし、sqrは有理数モードでは使えません。
解決法を知っている人がいたらこの掲示板に書き込んで教えてください。お願いします。

　　└エラトステネスのふるいという有名な方法が... 青木太一 2004/03/22 17:28:52  ツリーへ

Re: 素数プログラムと質問 返事を書く

青木太一 2004/03/22 17:28:52

エラトステネスのふるいという有名な方法があります。
十進BASICのサンプルにあります。
(ダウンロードして解凍したフォルダの中の
MATHフォルダの中のERATOS.BASです)

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。

素数プログラムと質問	返事を書く
tan 2004/03/22 16:38:30
素数を見つけるプログラムですが、僕は 100 !'素数　by tanaka yoshiyuki 110 for n=3 to 100 120 if int(n/2)2=n then goto 170 130 for m=3 to sqr(n) step 2 140 if int(n/m)m=n then goto 170 150 next m 160 print n 170 next n 180 end とgoto sqrを使う方法しか知りません。gotoはプログラムを読むときに非常に不便ですし、sqrは有理数モードでは使えません。解決法を知っている人がいたらこの掲示板に書き込んで教えてください。お願いします。

Re: 素数プログラムと質問	返事を書く
青木太一 2004/03/22 17:28:52
エラトステネスのふるいという有名な方法があります。十進BASICのサンプルにあります。 (ダウンロードして解凍したフォルダの中の MATHフォルダの中のERATOS.BASです)