無限級数からのエントリーです flg=0 for i=1 to 999999 inc flg,1/pow(2,i) next i 1+1/2+1/4+1/8+1/16+...=1となることを利用してます (==1にはなりませんが笑)