【初心者】課題をクリアしていくスレ【講習会】at GAMEDEV【初心者】課題をクリアしていくスレ【講習会】 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト657:名前は開発中のものです。 07/04/05 03:22:08 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 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch