- ベストアンサー
1からNの素数を求めるプログラミング
エクセルのVBAでの1からNの素数を求めるプログラミングを教えてください。プログラミング関係はまったく分からないのでよろしくお願いします。
- みんなの回答 (5)
- 専門家の回答
質問者が選んだベストアンサー
こんばんは。 ここのカテゴリを検索すれば出てくるはずです。 http://oshiete1.goo.ne.jp/kotaeru.php3?q=1468422 OkWave でしたら、今のURL に、数字だけ入れ換えてください。まあ、このスレッド自体は、私にとっては、あまり愉快ではありませんが。(^^;
その他の回答 (4)
- Trick--x--
- ベストアンサー率26% (19/72)
「プログラミング関係はまったくわからない」? アルゴリズムも知らんと何を作るつもりだ? 貴方のはプログラミングがどうとかいう問題じゃない。 数学をやれ。 話はそれからだ。
お礼
私はプログラミング等とは縁のない世界におりますので。知り合いの方の勉強にと聞いたまでです。不愉快なおもいをさせて申し訳ありません。
- BLUEPIXY
- ベストアンサー率50% (3003/5914)
- imogasi
- ベストアンサー率27% (4737/17069)
こんなのは、宿題のまる投げでは?OKWAVEでは、ご遠慮いただくタイプと思いますが。 私も幇助者? 1-1000などを配列を用意する。 全ての数は1の倍数なので、考えない。 次の2に進む。 2は1と自分2でしか割れないので、素数。 3-1000まで2で割れる数(偶数は)X印をつける。 その次に3に進んで3はXになってないので素数として、4以後でXがたっていない数だけを3割り、割り切れればXをつける。 次へ進み、4はXがたっているから飛ばして次へ。 5はXがたっていないから、素数。6-1000までの5の倍数はXをつける。 次に進んで6はXがたっている。飛ばして次の7へ。 7はXがたっておらず素数で、8以後の7の倍数にはXをつける。 次の8はXがたっている(偶数)。 次の9もXがたっている(3の倍数で)。 以下1000の平方根31.8(切り上げて32)までの素数を繰り返せばよい(この理由は調べるか考えてください)。 http://www2.cc.niigata-u.ac.jp/~takeuchi/tbasic/BackGround/ErSieve.html 最後にXがつかず残った数が素数です。 (1)今まで1から大きくなっていくポンター変数 (2)(1)+1から1000までをその数で割れるか進んでゆくポインタ変数 (3)2重入れ子ループ (4)(3)を実現する、For Next などの繰り返し制御構造 について考えてください。 上記は1つずつチェックしているが素数の倍数だけにXを立てる方が 終わるのが早いかも知れない。
お礼
丁寧にお答えいただきありがとうございました。
- Trick--x--
- ベストアンサー率26% (19/72)
素数を求める方法(プログラム関係無しに)はご存知ですか?
補足
早速の回答ありがとうございます。素数の求め方もあまりわかりません。
お礼
質問に丁寧にお答えいただきありがとうございました。