N=F C=0 FOR I=1 TO H　　　　　　　// 外側ループは結果格納配列数でよい 　LOCATE 1,1:PRINT N 　T=0 　FOR J=N-1 TO 1 STEP -1 　　D=2*J-1 　　W=T*J+Z[J]*B 　　T=FLOOR(W/D) 　　Z[J]=W-T*D 　NEXT