[過去ﾛｸﾞ] 【初心者】課題をクリアしていくスレ【講習会】 (787ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

306: HSPで素数　エラトステネスの篩い [] 04/07/10 19:34 ID:gc5EpECZ(3/3) AA×
>>4


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
306: HSPで素数　エラトステネスの篩い [] 04/07/10 19:34 ID: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 http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/306
計算中 合計個の素数を発見しました

---

上下前次1-新書関写板覧索設栞歴

---

あと 481 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.022s