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

---

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

---

657: 名前は開発中のものです。 [sage] 2007/04/05(木) 03:22:08 ID:juxaiBkl(1) AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
657: 名前は開発中のものです。 [sage] 2007/04/05(木) 03:22:08 ID:juxaiBkl HSPを勉強中なので、素数問題に挑戦してみた。 素数の出し方がよくわからないから総当り＆最初いんちき。 screen 0,450,400 : font "ＭＳ ゴシック",12 : objmode 2 so = "" : max = 10000 : maxs = 1000 : a = 2 mesbox so,450,320 pos 12,333 : mes "try" : pos 50,330 : input max,100,20,5 pos 220,330 : button gosub "start",*gogo pos 12,358 : mes "get" : pos 50,355 : input maxs,100,20,5 stop *gogo if btn : a = max + 1 : btn = 0 : return sdim so,max*4 objprm 2,"stop" : objprm 0,so : btn = 1 : so = "" : a = 2 : s = 0 : d = 0 : len = 0 repeat max repeat a,1 c = a\cnt : if c = 0 : s++ : if s > 2 : break loop if s < 3{ d++ : sa = strf("%5d",a) poke so,len,sa : len += strsize if d \ 10 = 0{ poke so,len,"\n" : len += strsize title "" + cnt }else{ poke so,len,", " : len += strsize } } s = 0 : a++ : if (a > max) or (d >= maxs) : break wait 0 loop objprm 0,so : objprm 2,"start" : btn = 0 : title " get = " + d return http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/657
を勉強中なので素数問題に挑戦してみた 素数の出し方がよくわからないから総当り最初いんちき ゴシック

---

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

---

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

---

ぬこの手 ぬこTOP 0.044s