HSP 素数計算
最近HSPを始めた私は、repeat-loopを勉強して、ある値までの数字の素数判定が出来るようにプログラムしてみようと以下のように書いてみました。
(1・2は面倒だったので直接表示してしまいました)
しかし、repeat 10 と書いているのに、2~3倍近い値まで計算され表示されます。(10と入れると29まで)
何処が問題か指摘してください。
screen 2,200,900,,200,600
mes "1は素数である"
mes "2は素数である"
a=3
repeat 10
repeat a-2,2
if a\cnt == 0{
mes ""+a+"は素数じゃない"
goto *lipi
}
loop
mes ""+a+"は素数である"
*lipi
a = a+1
loop
stop
OSは関係ないとは思いますが、一応Win2000です。