【初心者】課題をクリアしていくスレ【講習会】

【初心者】課題をクリ ..

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
激しく遅いですが…

次ページ

続きを表示

1を表示