- 307 名前：名無しさん＠５周年 [2008/04/25(金) 13:31:06 ]
- ↑の続きです
while(j==1) do,
if(modulo(x,n)!=0)then,//nで割った余りが０でない＝割り切れないとき
n = n+1;
//nで割った余りが０でない＝割り切れないとき。
//n+1で割れるかどうか試してみる。
elseif (x == n) then,//n=xのとき
soinsu = [soinsu,n];//2の時は上記
j = 0;//whileから抜け出す
//↑割ると１になるので、[soinsu]に割った値をいれて終了
elseif (soinsu != 1) then,//n!=xで割れ、soinsu!=1のとき
x = x/n;
soinsu = [soinsu,n];
//↑割ると１にならないので、再度同じ値で割れるかどうか試してみる。
//今回割れた数値はsoinsuに格納しておく
else //n!=xで割れ、soinsu=1のとき
x = x/n;
soinsu = n;
//↑の、一番最初に割れた場合。soinsuにはまだ何も入っていないので、nを入れる。
end
end
endfunction
|
 |
