【初心者】課題をクリアしていくスレ【講習会】at GAMEDEV【初心者】課題をクリアしていくスレ【講習会】 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト297:HSPが初プログラム@生徒希望 04/07/09 22:49 nI9aNbgB.net 一応あってますか？ 課題２小さい方から1000個の素数 sdim m,4000 : notesel m mesbox m,640,480 n=2 : c=1 : j=1 *judge if n-1=j : goto *pn j+ if n \ j=0 : n+ : j=1 wait 1 goto *judge *pn c+ noteadd ""+n if c=1000 : goto *finish n+ : j=1 wait 1 goto *judge *finish objprm 0, m stop 激しく遅いですが… 298:名前は開発中のものです。 04/07/09 23:19 JPrr+eC9.net >>297 初期値の c は0にしないと、一つ少なくなるよ 299:HSPで素数 04/07/10 08:28 gc5EpECZ.net #include "hspext.as" False=0:True=1:count++:i=3 mes "計算中......" while count<1000 sosu=True j=3 emsqr chk,i chk=chk>>4 while j<=chk if (i \ j)=0 { sosu=False _break } j=j+2 wend if sosu=True { // cls // mes i EndNum=i count++ } i=i+2 gettime NowTime, 6 if (NowTime!=BeforeTime) { BeforeTime=NowTime wait 1 } wend mes "計算終了。"+count+"個目の素数は"+EndNum+"です。" stop mes 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch