【初心者】課題をクリアしていくスレ【講習会】at GAMEDEV【初心者】課題をクリアしていくスレ【講習会】 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト306:HSPで素数 エラトステネスの篩い 04/07/10 19:34 gc5EpECZ #include "hspext.as" True=1 False=0 Max=7920 Dim SosuList, Max emsqr chk,Max chk=chk>>4 mes "計算中......" i=3 while i<=chk j=i+i while j<Max SosuList.j=True j=j+i wend i=i+2 wend i=3 sum=1 while i<Max if SosuList.i=False { sum++ } i=i+2 wend mes "合計"+sum+"個の素数を発見しました。" stop 307:HSPが初プログラム@生徒希望 04/07/10 21:23 +13mwptL >>298 あ、それはちょっと変更ミスです。 >>297で一応合ってるんでしょうか? 308:HSPが初プログラム@生徒希望 04/07/10 21:53 +13mwptL 連レスｽﾏｿ こうするとちょっと早くなりました sdim m,4000 : notesel m mesbox m,640,480 n=2 : c=0 : j=1 *judge if n-1=j : goto *pn j+ if n \ j=0 : n+ : j=1 await goto *judge *pn c+ noteadd ""+n if c=1000 : goto *finish n+ : j=1 goto *judge *finish objprm 0, m stop 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch